Ciao a tutti, vorrei sapere come si fa a passare la pagina in versione stampabile?

codice:
Risultato = Risultato & "<tr><td colspan=8 bgcolor=""#FFFFFF"">"
Risultato = Risultato & "<center><font color='#FF0000' size='4'>[B]Riavvia la ricerca</font>"
Risultato = Risultato & "</td></tr>"

Risultato = Risultato & "<tr>"
Risultato = Risultato & "<td bgcolor=""#FFFFFF"">"
Risultato = Risultato & "<table cellpadding=""2"" cellspacing=""1"" border=""0"" width=""100%"">"
Risultato = Risultato & "<tr height=""22"">"
Risultato = Risultato & "<td bgcolor=""#dddddd"" WIDTH=""4%""><font face=""verdana"" size=""2"" color=""#000000"">Rercord N.</font></td>"
Risultato = Risultato & "<td bgcolor=""#dddddd"" WIDTH=""4%""><font face=""verdana"" size=""2"" color=""#000000"">N. Badge</font></td>"
Risultato = Risultato & "<td bgcolor=""#dddddd"" WIDTH=""4%""><font face=""verdana"" size=""2"" color=""#000000"">Matricola</font></td>"
Risultato = Risultato & "<td bgcolor=""#dddddd"" WIDTH=""6%"" align=""center""><font face=""verdana"" size=""2"" color=""#000000"">Nome</font></td>"
Risultato = Risultato & "<td bgcolor=""#dddddd"" WIDTH=""6%"" align=""center""><font face=""verdana"" size=""2"" color=""#000000"">Cognome</font></td>"
Risultato = Risultato & "<td bgcolor=""#dddddd"" WIDTH=""5%"" align=""center""><font face=""verdana"" size=""2"" color=""#000000"">Tipologia</font></td>"
Risultato = Risultato & "<td bgcolor=""#dddddd"" WIDTH=""9%"" align=""center""><font face=""verdana"" size=""2"" color=""#000000"">"& text &"</font></td>"
Risultato = Risultato & "<td bgcolor=""#dddddd"" WIDTH=""6%"" align=""center""><font face=""verdana"" size=""2"" color=""#000000"">Giorni</font></td>"
Risultato = Risultato & "</tr>"

'Risultato = Risultato & "</table></table>"
'creaTabella (Risultato)
'response.End()

cont=1
								Do While iRecordsShown < iPageSize And Not RS.EOF

   
Dim Riga, bg
									Riga = Riga + 1
									If Riga Mod 2 = 0 then
										bg = "#E4E4E4"
										txcol = "#000000"
									Else
										bg = "#ccccff"	
										txcol = "#FFFFFF"
									End if	
Risultato = Risultato & "<tr bgcolor=" & bg & " onmouseover=""this.bgColor='#FFFF00'"" onmouseout=""this.bgColor='" & bg & "'""><a href=" & url & ""& Rs(""& tab & "") & " target='_new'><td><font color="& txcol &" size='4'>" & (iPageSize*iPageCurrent)-iPageSize+Cont & "</font></td>"
Risultato = Risultato & "<td><font color="& txcol &" size ='4'>" & Rs("num_badge")  & "</font></td>"
Risultato = Risultato & "<td><font color='#FF0000' size='4'>" 
if Rs("Matricola").Value = "0" then 
   Risultato = Risultato & "Nessuna" 
else 
Risultato = Risultato & "" & Rs("Matricola") &""
end if
Risultato = Risultato & "</font></td>"
Risultato = Risultato & "<td><font color='#FF0000' size='4'>" & Rs("nome")  & "</font></td>"
Risultato = Risultato & "<td><font color='#FF0000' size='4'>" & Rs("Cognome") & "</a></font></td>"
Risultato = Risultato & "<td><center><font color='#FF0000' size='4'>"  

if Rs("tipologia").Value = "1" then
Risultato = Risultato &"Dipendente"
end if
if Rs("tipologia").Value = "2" then
Risultato = Risultato & "Consulente"
end if

if Rs("tipologia").Value = "3" then
Risultato = Risultato & "Fornitore"
end if

if Rs("tipologia").Value = "4" then
Risultato = Risultato & "Cliente"
end if

Risultato = Risultato & "</font></center></td>"
Risultato = Risultato & "<td><center><font color='#FF0000' size='4'>" & Rs (""& data &"") &"</font></center></td>"
if check = 1 then
Risultato = Risultato &"<td><center><font color='#FF0000' size='4'>" & DateDiff("d", Rs ("data_cons"), Rs (""& data &"")) &"</font></center></td></tr>" 
else
Risultato = Risultato &"<td><center><font color='#FF0000' size='4'>" & DateDiff("d", Rs (""& data &""),Now ) &"</font></center></td></tr>" 
end if

Cont = Cont + 1
									'POSIZIONAMENTO ALLA RIGA SUCCESSIVA DEL DB
									iRecordsShown = iRecordsShown + 1
									RS.MoveNext
Loop 
End If

Risultato = Risultato &"</table></table>"
visto che con questo kilometrico codice, come si fa a passare alla pagina in versione stampato?
Grazie