SelectPdf for .NET - Convert from Html Code to Pdf - VB.NET / ASP.NET Sample

This sample shows how to use SelectPdf html to pdf converter to convert a raw html code to pdf, also setting a few properties.

Html Code:

Base Url:

Pdf Page Size:

Pdf Page Orientation:

Web Page Width:

Web Page Height:
(leave empty to auto detect)

Sample Code Vb.Net

Imports System.Collections.Generic
Imports System.Linq
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports SelectPdf

Namespace SelectPdf.Samples
    Partial Public Class convert_html_code_to_pdf
        Inherits System.Web.UI.Page

        Protected Sub Page_Load(sender As Object, e As EventArgs)
            If Not IsPostBack Then
                TxtHtmlCode.Text = "<html>" & vbCr & vbLf & " <body>" & vbCr & vbLf & _
                    "  Hello World from" & vbCr & vbLf & " </body>" & _
                    vbCr & vbLf & "</html>" & vbCr & vbLf
            End If
        End Sub

        Protected Sub BtnCreatePdf_Click(sender As Object, e As EventArgs)
            ' read parameters from the webpage
            Dim htmlString As String = TxtHtmlCode.Text
            Dim baseUrl As String = TxtBaseUrl.Text

            Dim pdf_page_size As String = DdlPageSize.SelectedValue
            Dim pageSize As PdfPageSize = DirectCast([Enum].Parse(GetType(PdfPageSize), _
                    pdf_page_size, True), PdfPageSize)

            Dim pdf_orientation As String = DdlPageOrientation.SelectedValue
            Dim pdfOrientation As PdfPageOrientation = DirectCast( _
                    [Enum].Parse(GetType(PdfPageOrientation), _
                    pdf_orientation, True), PdfPageOrientation)

            Dim webPageWidth As Integer = 1024
                webPageWidth = Convert.ToInt32(TxtWidth.Text)
            End Try

            Dim webPageHeight As Integer = 0
                webPageHeight = Convert.ToInt32(TxtHeight.Text)
            End Try

            ' instantiate a html to pdf converter object
            Dim converter As New HtmlToPdf()

            ' set converter options
            converter.Options.PdfPageSize = pageSize
            converter.Options.PdfPageOrientation = pdfOrientation
            converter.Options.WebPageWidth = webPageWidth
            converter.Options.WebPageHeight = webPageHeight

            ' create a new pdf document converting an url
            Dim doc As PdfDocument = converter.ConvertHtmlString(htmlString, baseUrl)

            ' save pdf document
            doc.Save(Response, False, "Sample.pdf")

            ' close pdf document
        End Sub
    End Class
End Namespace