Carissimi,
con questo script arrivo al mio risultato cioè avere 2 ricevute a pagina tramite il page-break, quando si stampano su carta direttamente dal web, solo che ora mi lascia una pagina bianca , cioè :
- PAGINA 2 RICEVUTE
- PAGINA BIANCA
- PAGINA 2 RICEVUTE
etc, come posso evitare di farmi stampare la pagina bianca?
Ecco la mia pag:
Graziecodice:<style> div.saltopagina {page-break-after:always;} </style> <% Function FormatText(ByVal strMessage) Dim word, m, k strMessage = Split(strMessage,VbCrLf) For m=0 To Ubound(strMessage) word = Split(strMessage(m)," ") For k = 0 To UBound(word) If Mid(word(k),1,7) = "http://" Then word(k) = "" & word(k) & "" End If If Mid(word(k),1,4) = "www." Then word(k) = "" & word(k) & "" End If If (InStr(word(k),"@") <> 0) And (InStr(word(k),".") <> 0) Then word(k) = "" & word(k) & "" End If Next strMessage(m) = Join(word," ") Next strMessage = Join(strMessage,VbCrLf) strMessage = Replace(strMessage, VbCrLf, " ") FormatText = strMessage End Function %> </head> <body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <% SQL = "SELECT COUNT(*) FROM user" sql = "SELECT * FROM user WHERE condominio = '" & request.form("condominio") & "' order by id asc" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3, 3 %> <% Dim strTesto strTesto = rs.Fields("indirizzo") %> <% If rs.EOF Then %> Nessun dato <% Else rs.MoveFirst i = request.form("numeroricevuta") conta = 0 Do Until rs.EOF %> <table border="0" width="58%" id="table1" height="400"> <tr> <td> <table border="1" width="711" id="table2" height="391" bordercolorlight="#000000" bordercolordark="#000000"> <tr> <td width="258" height="93"><font face="Tahoma" size="2"> Condominio: <%=rs.fields("condominio")%> <%=FormatText(strTesto)%> Cod. Fiscale: <%=rs.fields("codice_fiscale")%> </font> </td> <td width="230" height="93"> <p align="center"><font face="Tahoma" size="2"> Amministrazione Condomini</font><font face="Tahoma" size="5"> aa </font><font face="Tahoma" size="2">Via ABC, 21 - MILANObr> Tel 02-00000000000 miamail@io.com</font></td> <td width="201" height="93"><font face="Tahoma" size="4"> Ricevuta n°</font><font face="Tahoma" size="4"> <%=i%></font> <font face="Tahoma" size="2">Data: <%=request.form("data")%></font></td> </tr> <tr> <td colspan="3" height="62"><font face="Tahoma" size="2"> Ricevuti dal <u> <% if rs.fields("titolo") = "RA" then elseif rs.fields("titolo") = "RINA" then %> la <% else end if %> </u> Sig.<font face="Tahoma" size="4"><u> <%=rs.fields("nome")%> </u></font> - <font face="Tahoma" size="2"> Scala:<font face="Tahoma" size="4"> <u><%=rs.fields("scala")%> </u></font> </td> </tr> <tr> <td colspan="2" width="497"> <table border="1" width="100%" id="table3" height="244" bordercolorlight="#000000" bordercolordark="#000000" style="border-collapse: collapse"> <tr> <td valign="top" height="196" bordercolorlight="#000000" bordercolordark="#000000"> <font face="Tahoma" size="2">Spese</font> <font face="Tahoma" size="2"> <%=rs.fields("spesa1")%></font></p> <font face="Tahoma" size="2"> <%=rs.fields("spesa2")%></font></p> <font face="Tahoma" size="2"> <%=rs.fields("spesa3")%></font></p> <font face="Tahoma" size="2"> <%=rs.fields("spesa4")%></font></td> <td width="98" valign="top" height="196"> <font face="Tahoma" size="2">€</font> <font face="Tahoma" size="2"><%=rs.fields("euro1")%></font></p> <font face="Tahoma" size="2"><%=rs.fields("euro2")%></font></p> <font face="Tahoma" size="2"><%=rs.fields("euro3")%></font></p> <font face="Tahoma" size="2"><%=rs.fields("euro4")%></font></p> </td> </tr> <tr> <td valign="top"> <p align="center">L'amministratore ________________________________________</td> <td width="98" valign="middle">€ <font face="Tahoma" size="2"><%=rs.fields("totale")%></font></td> </tr> </table> </td> <td width="201"></td> </tr> </table> </div> </td> </tr> </table> <% i=i+1 conta = conta+1 if conta = 2 then response.write ("<div class=""saltopagina""></div>") conta = 0 end if rs.MoveNext Loop %> <% End If %> <% rs.close set rs=Nothing %> <% SQL = "SELECT COUNT(*) FROM user" sql = "SELECT * FROM user WHERE condominio = '" & request.form("condominio") & "' order by id asc" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3, 3 %> <table border="0" width="708" id="table4" height="67"> <tr> <td width="248"><font face="Tahoma" size="2"> Condominio: <%=rs.fields("condominio")%> <%=FormatText(strTesto)%> Cod. Fiscale: <%=rs.fields("codice_fiscale")%> </font> </td> <td width="193"><font face="Tahoma" size="2">Data: <%=request.form("data")%></font></td> <td width="253"> <p align="center"><font face="Tahoma" size="2">Amministrazione Condomini abc Via abc - milano Tel 0000000000000000 miamail@io.com </font> </td> </tr> </table><% If rs.EOF Then %> Nessun dato <% Else rs.MoveFirst i = request.form("numeroricevuta") Do Until rs.EOF %> <table border="1" width="71%" id="table5" style="border-collapse: collapse" bordercolor="#FFFFFF" bordercolorlight="#000000" bordercolordark="#000000" height="91"> <tr> <td width="384" height="46"><font face="Tahoma" size="2">Sig. <%=rs.fields("nome")%></font></td> <td rowspan="2"><font face="Tahoma" size="1"><%=rs.fields("spesa1")%> - <%=rs.fields("euro1")%> <%=rs.fields("spesa2")%> - <%=rs.fields("euro2")%> <%=rs.fields("spesa3")%> - <%=rs.fields("euro3")%> <%=rs.fields("spesa4")%> - <%=rs.fields("euro4")%></font> <font face="Tahoma" size="2">Importo:<%=rs.fields("totale")%></font></td> </tr> <tr> <td width="384" height="46"><font face="Tahoma" size="2">Ricevuta n° <%=i%></font></td> </tr> </table> <% i=i+1 rs.MoveNext Loop %> <% End If %> <% rs.close set rs=Nothing %>
G.
Rispondi quotando