Imports IronPdf

Dim renderer As New ChromePdfRenderer()

Dim bootstrapPricing As String = "
<!DOCTYPE html>
<html>
<head>
    <link href='___PROTECTED_URL_198___ rel='stylesheet'>
</head>
<body>
    <div class='container my-5'>
        <h1 class='text-center mb-5'>Service Plans</h1>

        <div class='row g-4'>
            <div class='col-md-4'>
                <div class='card h-100 shadow-sm'>
                    <div class='card-header bg-light text-center py-3'>
                        <h3>Starter</h3>
                    </div>
                    <div class='card-body d-flex flex-column'>
                        <div class='text-center mb-4'>
                            <span class='h2'>$29</span>
                            <span class='text-muted'>/month</span>
                        </div>
                        <ul class='list-unstyled flex-grow-1'>
                            <li class='mb-2'><i class='bi bi-check-circle text-success'></i> 100 PDF conversions/month</li>
                            <li class='mb-2'><i class='bi bi-check-circle text-success'></i> Basic templates</li>
                            <li class='mb-2'><i class='bi bi-check-circle text-success'></i> Email support</li>
                            <li class='mb-2'><i class='bi bi-check-circle text-success'></i> 5 GB storage</li>
                            <li class='mb-2 text-muted'><i class='bi bi-x-circle'></i> Priority processing</li>
                        </ul>
                        <button class='btn btn-outline-primary w-100 mt-auto'>Get Started</button>
                    </div>
                </div>
            </div>

            <div class='col-md-4'>
                <div class='card h-100 shadow border-primary'>
                    <div class='position-absolute top-0 start-50 translate-middle'>
                        <span class='badge bg-primary'>Most Popular</span>
                    </div>
                    <div class='card-header bg-primary text-white text-center py-3'>
                        <h3>Professional</h3>
                    </div>
                    <div class='card-body d-flex flex-column'>
                        <div class='text-center mb-4'>
                            <span class='h2'>$99</span>
                            <span class='text-muted'>/month</span>
                        </div>
                        <ul class='list-unstyled flex-grow-1'>
                            <li class='mb-2'><i class='bi bi-check-circle text-success'></i> 1,000 PDF conversions/month</li>
                            <li class='mb-2'><i class='bi bi-check-circle text-success'></i> Premium templates</li>
                            <li class='mb-2'><i class='bi bi-check-circle text-success'></i> Priority support</li>
                            <li class='mb-2'><i class='bi bi-check-circle text-success'></i> 50 GB storage</li>
                            <li class='mb-2'><i class='bi bi-check-circle text-success'></i> Priority processing</li>
                        </ul>
                        <button class='btn btn-primary w-100 mt-auto'>Get Started</button>
                    </div>
                </div>
            </div>

            <div class='col-md-4'>
                <div class='card h-100 shadow-sm'>
                    <div class='card-header bg-dark text-white text-center py-3'>
                        <h3>Enterprise</h3>
                    </div>
                    <div class='card-body d-flex flex-column'>
                        <div class='text-center mb-4'>
                            <span class='h2'>$299</span>
                            <span class='text-muted'>/month</span>
                        </div>
                        <ul class='list-unstyled flex-grow-1'>
                            <li class='mb-2'><i class='bi bi-check-circle text-success'></i> Unlimited conversions</li>
                            <li class='mb-2'><i class='bi bi-check-circle text-success'></i> Custom templates</li>
                            <li class='mb-2'><i class='bi bi-check-circle text-success'></i> Dedicated support</li>
                            <li class='mb-2'><i class='bi bi-check-circle text-success'></i> Unlimited storage</li>
                            <li class='mb-2'><i class='bi bi-check-circle text-success'></i> SLA guarantee</li>
                        </ul>
                        <button class='btn btn-dark w-100 mt-auto'>Contact Sales</button>
                    </div>
                </div>
            </div>
        </div>
    </div>
</body>
</html>"

Dim pdf = renderer.RenderHtmlAsPdf(bootstrapPricing)
pdf.SaveAs("pricing-table.pdf")

Imports IronPdf

Dim renderer As New ChromePdfRenderer()

Dim bootstrapPricing As String = "
<!DOCTYPE html>
<html>
<head>
    <link href='___PROTECTED_URL_198___ rel='stylesheet'>
</head>
<body>
    <div class='container my-5'>
        <h1 class='text-center mb-5'>Service Plans</h1>

        <div class='row g-4'>
            <div class='col-md-4'>
                <div class='card h-100 shadow-sm'>
                    <div class='card-header bg-light text-center py-3'>
                        <h3>Starter</h3>
                    </div>
                    <div class='card-body d-flex flex-column'>
                        <div class='text-center mb-4'>
                            <span class='h2'>$29</span>
                            <span class='text-muted'>/month</span>
                        </div>
                        <ul class='list-unstyled flex-grow-1'>
                            <li class='mb-2'><i class='bi bi-check-circle text-success'></i> 100 PDF conversions/month</li>
                            <li class='mb-2'><i class='bi bi-check-circle text-success'></i> Basic templates</li>
                            <li class='mb-2'><i class='bi bi-check-circle text-success'></i> Email support</li>
                            <li class='mb-2'><i class='bi bi-check-circle text-success'></i> 5 GB storage</li>
                            <li class='mb-2 text-muted'><i class='bi bi-x-circle'></i> Priority processing</li>
                        </ul>
                        <button class='btn btn-outline-primary w-100 mt-auto'>Get Started</button>
                    </div>
                </div>
            </div>

            <div class='col-md-4'>
                <div class='card h-100 shadow border-primary'>
                    <div class='position-absolute top-0 start-50 translate-middle'>
                        <span class='badge bg-primary'>Most Popular</span>
                    </div>
                    <div class='card-header bg-primary text-white text-center py-3'>
                        <h3>Professional</h3>
                    </div>
                    <div class='card-body d-flex flex-column'>
                        <div class='text-center mb-4'>
                            <span class='h2'>$99</span>
                            <span class='text-muted'>/month</span>
                        </div>
                        <ul class='list-unstyled flex-grow-1'>
                            <li class='mb-2'><i class='bi bi-check-circle text-success'></i> 1,000 PDF conversions/month</li>
                            <li class='mb-2'><i class='bi bi-check-circle text-success'></i> Premium templates</li>
                            <li class='mb-2'><i class='bi bi-check-circle text-success'></i> Priority support</li>
                            <li class='mb-2'><i class='bi bi-check-circle text-success'></i> 50 GB storage</li>
                            <li class='mb-2'><i class='bi bi-check-circle text-success'></i> Priority processing</li>
                        </ul>
                        <button class='btn btn-primary w-100 mt-auto'>Get Started</button>
                    </div>
                </div>
            </div>

            <div class='col-md-4'>
                <div class='card h-100 shadow-sm'>
                    <div class='card-header bg-dark text-white text-center py-3'>
                        <h3>Enterprise</h3>
                    </div>
                    <div class='card-body d-flex flex-column'>
                        <div class='text-center mb-4'>
                            <span class='h2'>$299</span>
                            <span class='text-muted'>/month</span>
                        </div>
                        <ul class='list-unstyled flex-grow-1'>
                            <li class='mb-2'><i class='bi bi-check-circle text-success'></i> Unlimited conversions</li>
                            <li class='mb-2'><i class='bi bi-check-circle text-success'></i> Custom templates</li>
                            <li class='mb-2'><i class='bi bi-check-circle text-success'></i> Dedicated support</li>
                            <li class='mb-2'><i class='bi bi-check-circle text-success'></i> Unlimited storage</li>
                            <li class='mb-2'><i class='bi bi-check-circle text-success'></i> SLA guarantee</li>
                        </ul>
                        <button class='btn btn-dark w-100 mt-auto'>Contact Sales</button>
                    </div>
                </div>
            </div>
        </div>
    </div>
</body>
</html>"

Dim pdf = renderer.RenderHtmlAsPdf(bootstrapPricing)
pdf.SaveAs("pricing-table.pdf")

Imports IronPdf

Imports IronPdf

' HTML String to PDF
' anchor-html-string-with-ironpdf
Imports IronPdf

Module Program
    Sub Main(args As String())
        ' Create rendering converter
        Dim renderer As New ChromePdfRenderer()
        
        ' HTML Source
        Dim html As String = "<h1>Hello World!</h1> <h2>Welcome to IronPDF</h2> "
        
        ' Convert HTML string to PDF file
        Dim pdf = renderer.RenderHtmlAsPdf(html)
        
        ' Save the file
        pdf.SaveAs("E:/sample.pdf")
    End Sub
End Module

' HTML String to PDF
' anchor-html-string-with-ironpdf
Imports IronPdf

Module Program
    Sub Main(args As String())
        ' Create rendering converter
        Dim renderer As New ChromePdfRenderer()
        
        ' HTML Source
        Dim html As String = "<h1>Hello World!</h1> <h2>Welcome to IronPDF</h2> "
        
        ' Convert HTML string to PDF file
        Dim pdf = renderer.RenderHtmlAsPdf(html)
        
        ' Save the file
        pdf.SaveAs("E:/sample.pdf")
    End Sub
End Module

Imports APWebGrabber

Module Module1

    Sub Main()
        ' Instantiate Object
        Dim wg As New WebGrabber()

        ' HTML Source
        Dim html As String = "<h1>Hello World!</h1> <h2>Welcome to ActivePDF WebGrabber</h2>"

        ' Assign source HTML to WebGrabber
        wg.CreateFromHTMLText = html

        ' Specify file directory
        wg.OutputDirectory = "E:/"

        ' File name
        wg.NewDocumentName = "sample.pdf"

        ' Convert source HTML to PDF file
        wg.ConvertToPDF()
    End Sub

End Module

Imports APWebGrabber

Module Module1

    Sub Main()
        ' Instantiate Object
        Dim wg As New WebGrabber()

        ' HTML Source
        Dim html As String = "<h1>Hello World!</h1> <h2>Welcome to ActivePDF WebGrabber</h2>"

        ' Assign source HTML to WebGrabber
        wg.CreateFromHTMLText = html

        ' Specify file directory
        wg.OutputDirectory = "E:/"

        ' File name
        wg.NewDocumentName = "sample.pdf"

        ' Convert source HTML to PDF file
        wg.ConvertToPDF()
    End Sub

End Module

Imports IronPdf

Private renderer = New ChromePdfRenderer()

' Configure rendering options
renderer.RenderingOptions.CssMediaType = PdfCssMediaType.Print
renderer.RenderingOptions.PrintHtmlBackgrounds = True
renderer.RenderingOptions.CreatePdfFormsFromHtml = True

Dim advancedHtml As String = "
    <html>
    <head>
        <style>
            body { font-family: Arial, sans-serif; }
            .invoice { border: 1px solid #ccc; padding: 20px; }
            .header { background-color: #f0f0f0; padding: 10px; }
        </style>
    </head>
    <body>
        <div class='invoice'>
            <div class='header'>
                <h1>Invoice #12345</h1>
            </div>
            <form>
                <input type='text' name='customer' placeholder='Customer Name'>
            </form>
        </div>
    </body>
    </html>"

Dim pdf = renderer.RenderHtmlAsPdf(advancedHtml)
pdf.SaveAs("advanced-invoice.pdf")

Imports IronPdf

Private renderer = New ChromePdfRenderer()

' Configure rendering options
renderer.RenderingOptions.CssMediaType = PdfCssMediaType.Print
renderer.RenderingOptions.PrintHtmlBackgrounds = True
renderer.RenderingOptions.CreatePdfFormsFromHtml = True

Dim advancedHtml As String = "
    <html>
    <head>
        <style>
            body { font-family: Arial, sans-serif; }
            .invoice { border: 1px solid #ccc; padding: 20px; }
            .header { background-color: #f0f0f0; padding: 10px; }
        </style>
    </head>
    <body>
        <div class='invoice'>
            <div class='header'>
                <h1>Invoice #12345</h1>
            </div>
            <form>
                <input type='text' name='customer' placeholder='Customer Name'>
            </form>
        </div>
    </body>
    </html>"

Dim pdf = renderer.RenderHtmlAsPdf(advancedHtml)
pdf.SaveAs("advanced-invoice.pdf")

' HTML File to PDF
' anchor-html-file-with-ironpdf

Imports IronPdf

Sub Main(ByVal args As String())
    ' Create rendering converter
    Dim renderer As New ChromePdfRenderer()
    
    ' Render HTML file to PDF
    Dim pdf = renderer.RenderHtmlFileAsPdf("E:/myHtmlFile.html")
    
    ' Save to target location
    pdf.SaveAs("E:/Sample.pdf")
End Sub

' HTML File to PDF
' anchor-html-file-with-ironpdf

Imports IronPdf

Sub Main(ByVal args As String())
    ' Create rendering converter
    Dim renderer As New ChromePdfRenderer()
    
    ' Render HTML file to PDF
    Dim pdf = renderer.RenderHtmlFileAsPdf("E:/myHtmlFile.html")
    
    ' Save to target location
    pdf.SaveAs("E:/Sample.pdf")
End Sub

Imports APWebGrabber

Module Module1

    Sub Main()
        ' Instantiate Object
        Dim wg As New WebGrabber()

        ' Specify file path to be converted
        wg.URL = "E:/myHtmlFile.html"

        ' Specify the directory for newly generated file
        wg.OutputDirectory = "E:/"

        ' Newly generated file name
        wg.NewDocumentName = "Sample.pdf"

        ' Convert HTML file to PDF
        wg.ConvertToPDF()
    End Sub

End Module

Imports APWebGrabber

Module Module1

    Sub Main()
        ' Instantiate Object
        Dim wg As New WebGrabber()

        ' Specify file path to be converted
        wg.URL = "E:/myHtmlFile.html"

        ' Specify the directory for newly generated file
        wg.OutputDirectory = "E:/"

        ' Newly generated file name
        wg.NewDocumentName = "Sample.pdf"

        ' Convert HTML file to PDF
        wg.ConvertToPDF()
    End Sub

End Module

' URL to PDF
' anchor-url-with-ironpdf

Imports IronPdf

Module Module1

    Sub Main()
        ' Create rendering converter
        Dim renderer = New ChromePdfRenderer()

        ' Specify URL
        Dim pdf = renderer.RenderUrlAsPdf("___PROTECTED_URL_199___")

        ' Save the file
        pdf.SaveAs("E:/Sample.pdf")
    End Sub

End Module

' URL to PDF
' anchor-url-with-ironpdf

Imports IronPdf

Module Module1

    Sub Main()
        ' Create rendering converter
        Dim renderer = New ChromePdfRenderer()

        ' Specify URL
        Dim pdf = renderer.RenderUrlAsPdf("___PROTECTED_URL_199___")

        ' Save the file
        pdf.SaveAs("E:/Sample.pdf")
    End Sub

End Module

Imports IronPdf
Imports System.Threading.Tasks

Module Program
    Async Function Main(args As String()) As Task
        Dim renderer = New ChromePdfRenderer()

        ' Configure for complex pages
        renderer.RenderingOptions.WaitFor.RenderDelay(2000) ' Wait 2 seconds
        renderer.RenderingOptions.WaitFor.JavaScript(1500) ' Wait for JS

        ' Async conversion
        Dim pdf = Await renderer.RenderUrlAsPdfAsync("___PROTECTED_URL_200___")
        Await pdf.SaveAsAsync("E:/async-sample.pdf")
    End Function
End Module

Imports IronPdf
Imports System.Threading.Tasks

Module Program
    Async Function Main(args As String()) As Task
        Dim renderer = New ChromePdfRenderer()

        ' Configure for complex pages
        renderer.RenderingOptions.WaitFor.RenderDelay(2000) ' Wait 2 seconds
        renderer.RenderingOptions.WaitFor.JavaScript(1500) ' Wait for JS

        ' Async conversion
        Dim pdf = Await renderer.RenderUrlAsPdfAsync("___PROTECTED_URL_200___")
        Await pdf.SaveAsAsync("E:/async-sample.pdf")
    End Function
End Module

Imports APWebGrabber

Module Module1
    Sub Main()
        ' Instantiate Object
        Dim wg As New WebGrabber()
        
        ' Specify URL 
        wg.URL = "___PROTECTED_URL_201___"
        
        ' Specify the directory for newly generated file
        wg.OutputDirectory = "E:/"
        
        ' Specify file name
        wg.NewDocumentName = "Sample.pdf"
        
        ' Set timeout for conversion
        wg.TimeoutSpan = New TimeSpan(0, 0, 30)
        
        ' Convert specified URL webpage to PDF
        wg.ConvertToPDF()
    End Sub
End Module

Imports APWebGrabber

Module Module1
    Sub Main()
        ' Instantiate Object
        Dim wg As New WebGrabber()
        
        ' Specify URL 
        wg.URL = "___PROTECTED_URL_201___"
        
        ' Specify the directory for newly generated file
        wg.OutputDirectory = "E:/"
        
        ' Specify file name
        wg.NewDocumentName = "Sample.pdf"
        
        ' Set timeout for conversion
        wg.TimeoutSpan = New TimeSpan(0, 0, 30)
        
        ' Convert specified URL webpage to PDF
        wg.ConvertToPDF()
    End Sub
End Module

' Watermark PDF
' anchor-watermark-with-ironpdf
Imports IronPdf

Module Module1

    Sub Main()
        Dim renderer As New ChromePdfRenderer()

        ' Source HTML string
        Dim html As String = "<h1 style='text-align:center'>WaterMark Example</h1>"

        ' Create PDF
        Dim pdf = renderer.RenderHtmlAsPdf(html)

        ' Apply watermark with HTML/CSS
        pdf.ApplyWatermark("<h2 style='color:red; opacity:0.5'>CONFIDENTIAL</h2>",
                           rotation:=30,
                           opacity:=50)

        ' Save the document
        pdf.SaveAs("E:/Sample.pdf")
    End Sub

End Module

' Watermark PDF
' anchor-watermark-with-ironpdf
Imports IronPdf

Module Module1

    Sub Main()
        Dim renderer As New ChromePdfRenderer()

        ' Source HTML string
        Dim html As String = "<h1 style='text-align:center'>WaterMark Example</h1>"

        ' Create PDF
        Dim pdf = renderer.RenderHtmlAsPdf(html)

        ' Apply watermark with HTML/CSS
        pdf.ApplyWatermark("<h2 style='color:red; opacity:0.5'>CONFIDENTIAL</h2>",
                           rotation:=30,
                           opacity:=50)

        ' Save the document
        pdf.SaveAs("E:/Sample.pdf")
    End Sub

End Module

' Image watermark
pdf.ApplyWatermark($"<img src='logo.png' style='width:200px'>", rotation:= 0, opacity:= 30, verticalAlignment:= VerticalAlignment.Middle)

' Complex HTML watermark with positioning
Dim complexWatermark As String = "
    <div style='text-align:center; font-family:Arial'>
        <h1 style='color:#ff0000'>DRAFT</h1>
        <p>Generated: " & DateTime.Now.ToString() & "</p>
    </div>"

pdf.ApplyWatermark(complexWatermark, rotation:= 45, opacity:= 25)

' Image watermark
pdf.ApplyWatermark($"<img src='logo.png' style='width:200px'>", rotation:= 0, opacity:= 30, verticalAlignment:= VerticalAlignment.Middle)

' Complex HTML watermark with positioning
Dim complexWatermark As String = "
    <div style='text-align:center; font-family:Arial'>
        <h1 style='color:#ff0000'>DRAFT</h1>
        <p>Generated: " & DateTime.Now.ToString() & "</p>
    </div>"

pdf.ApplyWatermark(complexWatermark, rotation:= 45, opacity:= 25)

Imports APWebGrabber

Module Module1

    Sub Main()
        Dim wg As New WebGrabber()
        
        Dim html As String = "<h1 style='text-align:center'>WaterMark Example</h1>"
        wg.CreateFromHTMLText = html
        
        ' Add text stamp as watermark
        wg.AddStampText(270.0F, 350.0F, "WaterMark")
        
        ' Configure stamp appearance
        wg.StampFontSize = 20
        wg.StampFont = "Times New Roman"
        wg.StampFontTransparency = 1.0F
        wg.StampRotation = 45.0F
        wg.StampColorNET = New ADK.PDF.Color() With {
            .Red = 255,
            .Green = 0,
            .Blue = 0,
            .Gray = 0
        }
        
        wg.OutputDirectory = "E:/"
        wg.NewDocumentName = "Sample.pdf"
        wg.ConvertToPDF()
    End Sub

End Module

Imports APWebGrabber

Module Module1

    Sub Main()
        Dim wg As New WebGrabber()
        
        Dim html As String = "<h1 style='text-align:center'>WaterMark Example</h1>"
        wg.CreateFromHTMLText = html
        
        ' Add text stamp as watermark
        wg.AddStampText(270.0F, 350.0F, "WaterMark")
        
        ' Configure stamp appearance
        wg.StampFontSize = 20
        wg.StampFont = "Times New Roman"
        wg.StampFontTransparency = 1.0F
        wg.StampRotation = 45.0F
        wg.StampColorNET = New ADK.PDF.Color() With {
            .Red = 255,
            .Green = 0,
            .Blue = 0,
            .Gray = 0
        }
        
        wg.OutputDirectory = "E:/"
        wg.NewDocumentName = "Sample.pdf"
        wg.ConvertToPDF()
    End Sub

End Module

Imports IronPdf

Module Module1

    Sub Main()
        Dim renderer = New ChromePdfRenderer()

        ' Configure text header/footer
        renderer.RenderingOptions.TextHeader = New TextHeaderFooter() With {
            .LeftText = "Company Name",
            .CenterText = "{page} of {total-pages}",
            .RightText = "{date} {time}",
            .DrawDividerLine = True,
            .FontSize = 12,
            .FontFamily = "Arial"
        }

        renderer.RenderingOptions.TextFooter = New TextHeaderFooter() With {
            .CenterText = "Copyright © 2025",
            .RightText = "Page {page}",
            .FontSize = 10
        }

        ' HTML content
        Dim html As String = "<h1>Document Content</h1><p>Lorem ipsum...</p>"
        Dim pdf = renderer.RenderHtmlAsPdf(html)
        pdf.SaveAs("E:/document.pdf")
    End Sub

End Module

Imports IronPdf

Module Module1

    Sub Main()
        Dim renderer = New ChromePdfRenderer()

        ' Configure text header/footer
        renderer.RenderingOptions.TextHeader = New TextHeaderFooter() With {
            .LeftText = "Company Name",
            .CenterText = "{page} of {total-pages}",
            .RightText = "{date} {time}",
            .DrawDividerLine = True,
            .FontSize = 12,
            .FontFamily = "Arial"
        }

        renderer.RenderingOptions.TextFooter = New TextHeaderFooter() With {
            .CenterText = "Copyright © 2025",
            .RightText = "Page {page}",
            .FontSize = 10
        }

        ' HTML content
        Dim html As String = "<h1>Document Content</h1><p>Lorem ipsum...</p>"
        Dim pdf = renderer.RenderHtmlAsPdf(html)
        pdf.SaveAs("E:/document.pdf")
    End Sub

End Module

' HTML headers with dynamic content
renderer.RenderingOptions.HtmlHeader = New HtmlHeaderFooter() With {
	.HtmlFragment = "
        <div style='display: flex; justify-content: space-between; padding: 10px;'>
            <img src='logo.png' style='height: 30px;'>
            <div>{page} / {total-pages}</div>
        </div>",
	.Height = 50
}

' HTML headers with dynamic content
renderer.RenderingOptions.HtmlHeader = New HtmlHeaderFooter() With {
	.HtmlFragment = "
        <div style='display: flex; justify-content: space-between; padding: 10px;'>
            <img src='logo.png' style='height: 30px;'>
            <div>{page} / {total-pages}</div>
        </div>",
	.Height = 50
}

Imports APWebGrabber

Module Module1

    Sub Main(args As String())
        Dim wg As New WebGrabber()

        Dim html As String = "<h1 style='text-align:center;'>Page Content</h1>"
        wg.CreateFromHTMLText = html

        ' Configure header
        wg.HeaderHeight = 0.5F
        wg.HeaderHTML = "<div style='float: left;'>Header Text</div>"
        wg.HeaderHTML += $"<div style='float: right;'>{DateTime.Now.ToShortDateString()}</div>"

        ' Configure footer
        wg.FooterHeight = 0.5F
        wg.FooterHTML = "<div style='text-align: right;'>%cp% of %tp%</div>"

        wg.OutputDirectory = "E:/"
        wg.NewDocumentName = "Sample.pdf"
        wg.ConvertToPDF()
    End Sub

End Module

Imports APWebGrabber

Module Module1

    Sub Main(args As String())
        Dim wg As New WebGrabber()

        Dim html As String = "<h1 style='text-align:center;'>Page Content</h1>"
        wg.CreateFromHTMLText = html

        ' Configure header
        wg.HeaderHeight = 0.5F
        wg.HeaderHTML = "<div style='float: left;'>Header Text</div>"
        wg.HeaderHTML += $"<div style='float: right;'>{DateTime.Now.ToShortDateString()}</div>"

        ' Configure footer
        wg.FooterHeight = 0.5F
        wg.FooterHTML = "<div style='text-align: right;'>%cp% of %tp%</div>"

        wg.OutputDirectory = "E:/"
        wg.NewDocumentName = "Sample.pdf"
        wg.ConvertToPDF()
    End Sub

End Module

Imports IronPdf

' Create a PDF with form fields
Private renderer = New ChromePdfRenderer()
renderer.RenderingOptions.CreatePdfFormsFromHtml = True

Dim formHtml As String = "
    <form>
        <label>Name: <input type='text' name='fullname'></label><br>
        <label>Email: <input type='email' name='email'></label><br>
        <label>Subscribe: <input type='checkbox' name='subscribe'></label><br>
        <label>
            Plan:
            <select name='plan'>
                <option>Basic</option>
                <option>Premium</option>
            </select>
        </label>
    </form>"

Dim pdf = renderer.RenderHtmlAsPdf(formHtml)

' Fill form fields programmatically
pdf.Form.FindFormField("fullname").Value = "John Doe"
pdf.Form.FindFormField("email").Value = "john@example.com"
pdf.Form.FindFormField("subscribe").Value = "Yes"

pdf.SaveAs("filled-form.pdf")

Imports IronPdf

' Create a PDF with form fields
Private renderer = New ChromePdfRenderer()
renderer.RenderingOptions.CreatePdfFormsFromHtml = True

Dim formHtml As String = "
    <form>
        <label>Name: <input type='text' name='fullname'></label><br>
        <label>Email: <input type='email' name='email'></label><br>
        <label>Subscribe: <input type='checkbox' name='subscribe'></label><br>
        <label>
            Plan:
            <select name='plan'>
                <option>Basic</option>
                <option>Premium</option>
            </select>
        </label>
    </form>"

Dim pdf = renderer.RenderHtmlAsPdf(formHtml)

' Fill form fields programmatically
pdf.Form.FindFormField("fullname").Value = "John Doe"
pdf.Form.FindFormField("email").Value = "john@example.com"
pdf.Form.FindFormField("subscribe").Value = "Yes"

pdf.SaveAs("filled-form.pdf")

' ActivePDF requires separate Toolkit component for forms
Dim toolkit As New APToolkitNET.Toolkit()

' Open existing PDF
toolkit.OpenInputFile("form-template.pdf")

' Set form field values
toolkit.SetFormFieldData("fullname", "John Doe", -997)
toolkit.SetFormFieldData("email", "john@example.com", -997)

' Save filled form
toolkit.CopyForm(0, 0)
toolkit.SaveAs("filled-form.pdf")

' ActivePDF requires separate Toolkit component for forms
Dim toolkit As New APToolkitNET.Toolkit()

' Open existing PDF
toolkit.OpenInputFile("form-template.pdf")

' Set form field values
toolkit.SetFormFieldData("fullname", "John Doe", -997)
toolkit.SetFormFieldData("email", "john@example.com", -997)

' Save filled form
toolkit.CopyForm(0, 0)
toolkit.SaveAs("filled-form.pdf")

Imports IronPdf

Private renderer = New ChromePdfRenderer()
Private pdf = renderer.RenderHtmlAsPdf("<h1>Archival Document</h1>")

' Convert to PDF/A-3B
pdf.SaveAsPdfA("archive.pdf", PdfAVersions.PdfA3B)

Imports IronPdf

Private renderer = New ChromePdfRenderer()
Private pdf = renderer.RenderHtmlAsPdf("<h1>Archival Document</h1>")

' Convert to PDF/A-3B
pdf.SaveAsPdfA("archive.pdf", PdfAVersions.PdfA3B)

' Requires DocConverter component
Dim dc As New DocConverter()
dc.SetPDFACompliance(PDFACompliance.PDFA2B)
dc.ConvertToPDF("input.html", "output.pdf")

' Requires DocConverter component
Dim dc As New DocConverter()
dc.SetPDFACompliance(PDFACompliance.PDFA2B)
dc.ConvertToPDF("input.html", "output.pdf")

Imports IronPdf
Imports IronPdf.Signing

' Load or create PDF
Private pdf = PdfDocument.FromFile("document.pdf")

' Create signature with certificate
Private signature = New PdfSignature("certificate.pfx", "password")

' Configure signature appearance
signature.SignatureImage = New PdfSignatureImage("signature.png")
signature.SigningContact = "john@company.com"
signature.SigningReason = "Document Approval"

' Apply signature
pdf.Sign(signature)
pdf.SaveAs("signed.pdf")

Imports IronPdf
Imports IronPdf.Signing

' Load or create PDF
Private pdf = PdfDocument.FromFile("document.pdf")

' Create signature with certificate
Private signature = New PdfSignature("certificate.pfx", "password")

' Configure signature appearance
signature.SignatureImage = New PdfSignatureImage("signature.png")
signature.SigningContact = "john@company.com"
signature.SigningReason = "Document Approval"

' Apply signature
pdf.Sign(signature)
pdf.SaveAs("signed.pdf")

Imports IronPdf
Imports System.Threading.Tasks
Imports System.IO

Private Shared Async Function BatchConvertAsync() As Task
    Dim renderer = New ChromePdfRenderer()
    Dim tasks = New List(Of Task)()

    For Each file In Directory.GetFiles("input", "*.html")
        tasks.Add(Task.Run(Async Function()
                               Dim pdf = Await renderer.RenderHtmlFileAsPdfAsync(file)
                               Dim outputPath = Path.Combine("output", Path.GetFileNameWithoutExtension(file) & ".pdf")
                               Await pdf.SaveAsAsync(outputPath)
                           End Function))
    Next

    Await Task.WhenAll(tasks)
End Function

Imports IronPdf
Imports System.Threading.Tasks
Imports System.IO

Private Shared Async Function BatchConvertAsync() As Task
    Dim renderer = New ChromePdfRenderer()
    Dim tasks = New List(Of Task)()

    For Each file In Directory.GetFiles("input", "*.html")
        tasks.Add(Task.Run(Async Function()
                               Dim pdf = Await renderer.RenderHtmlFileAsPdfAsync(file)
                               Dim outputPath = Path.Combine("output", Path.GetFileNameWithoutExtension(file) & ".pdf")
                               Await pdf.SaveAsAsync(outputPath)
                           End Function))
    Next

    Await Task.WhenAll(tasks)
End Function

' DocConverter supports watched folders for automatic conversion
Dim dc As New DocConverter()

' Configure watched folder
dc.AddWatchedFolder("C:\Input", "C:\Output", "*.html")
dc.StartWatching()

' Files dropped in the input folder are automatically converted

' DocConverter supports watched folders for automatic conversion
Dim dc As New DocConverter()

' Configure watched folder
dc.AddWatchedFolder("C:\Input", "C:\Output", "*.html")
dc.StartWatching()

' Files dropped in the input folder are automatically converted

' Dispose of resources properly
Using renderer = New ChromePdfRenderer()
	Using pdf = renderer.RenderHtmlAsPdf(html)
		pdf.SaveAs("output.pdf")
	End Using
End Using

' For large documents, use streaming
Await pdf.Stream.CopyToAsync(fileStream)

' Dispose of resources properly
Using renderer = New ChromePdfRenderer()
	Using pdf = renderer.RenderHtmlAsPdf(html)
		pdf.SaveAs("output.pdf")
	End Using
End Using

' For large documents, use streaming
Await pdf.Stream.CopyToAsync(fileStream)