Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Imports iTextSharp.text
- Imports System.IO
- Imports iTextSharp.text.html.simpleparser
- Imports iTextSharp.text.pdf
- Protected Sub btnExport_Click(sender As Object, e As EventArgs)
- Response.ContentType = "application/pdf"
- Response.AddHeader("content-disposition", "attachment;filename=TestPage.pdf")
- Response.Cache.SetCacheability(HttpCacheability.NoCache)
- Dim sw As New StringWriter()
- Dim hw As New HtmlTextWriter(sw)
- Me.Page.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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement