Udskriv til .pdf

Hejsa

Her:

<% strSQL = "select * from skemal where telefon = '" & request.querystring("id") & "' and fby in ('Andre', 'Chef', 'Kollega','Medarbejder')"
set rs200 = DataConn.Execute(strSQL)
Do
Response.Write rs200("text1") & "<br>"
rs200.MoveNext
Loop While Not rs200.EOF
Conn.Close
%>

Trækker jeg noget data ud og det listes fint frem, nu vil jeg gerne kunne klikke på en submit knap så den udskriver indholdet til en pdf.

Er der et smart program til det og hvordan gør man...