
Originariamente inviata da
alka
E l'esportazione in PDF come verrebbe fatta?

chiamo una routine già testata piu volte
codice:
Private Sub exportToPDF() Response.ContentType = "application/pdf"
Response.AddHeader("content-disposition", "attachment;filename=Statistiche.pdf")
Response.Cache.SetCacheability(HttpCacheability.NoCache)
Dim sw As New StringWriter()
Dim hw As New HtmlTextWriter(sw)
Me.frmMain.RenderControl(hw)
Dim sr As New StringReader(sw.ToString())
Dim pdfDoc As New Document(PageSize.A4, 10.0F, 10.0F, 100.0F, 0.0F)
Dim htmlparser As New HTMLWorker(pdfDoc)
PdfWriter.GetInstance(pdfDoc, Response.OutputStream)
pdfDoc.Open()
htmlparser.Parse(sr)
pdfDoc.Close()
Response.Write(pdfDoc)
Response.[End]()
End Sub