Private Sub OnAfterRenderPage(sender As Object, e As PdfPageEventArgs)
        'Use ACM to output a page header on the
        'page. See ACM documentation for more
        'information on how to use ACM
        Dim render As New AcmRender(e.Page, 0.0F, New AcmPageLayout(New AcmPadding(1, 0.5F, 1, 0.5F)))

        Dim text As New AcmText(String.Format("Page {0}", e.Page.Index + 1))

        render.Render(text)
    End Sub

    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load

        Dim contents As String = File.ReadAllText(Server.MapPath("test.html"))
        Dim stamp = Today.Year & "-" & Today.Month & "-" & Now.Day & "-" & Now.Hour & "-" & Now.Minute & ".pdf"

        Dim fileName = Server.MapPath("~/BidGeneration/Contracts/" & stamp)

        If (System.IO.File.Exists(fileName)) Then
            stamp = Today.Year & "-" & Today.Month & "-" & Now.Day & "-" & Now.Hour & "-" & Now.Minute & "-" & Now.Millisecond & ".pdf"
            fileName = Server.MapPath("~/BidGeneration/Contracts/" & stamp)
        End If

        EO.Pdf.Runtime.AddLicense(Resources.Resources.EopdfKey)
        HtmlToPdf.Options.AfterRenderPage = New PdfPageEventHandler(AddressOf OnAfterRenderPage)


        'Zoom out slightly to fit more contents on one page
        HtmlToPdf.Options.FirstPageNumber = 1

        HtmlToPdf.Options.ZoomLevel = 0.8F
        HtmlToPdf.ConvertHtml(contents, fileName)

        Dim resp = System.Web.HttpContext.Current.Response
        resp.Clear()
        resp.ContentType = "text/pdf"
        resp.AddHeader("Content-Disposition", "attachment; filename=" & stamp & ";")
        resp.TransmitFile(fileName)
        resp.Flush()
        resp.End()

    End Sub