' NuGet: Install-Package IronPdf
Imports IronPdf
Imports IronPdf.Engines.Chrome
Imports IronPdf.Rendering

Dim renderer = New ChromePdfRenderer With {
    .RenderingOptions = New ChromePdfRenderOptions With {
        .EnableJavaScript = True,
        ' Page margins in millimetres
        .MarginTop = 20,
        .MarginBottom = 20,
        .MarginLeft = 15,
        .MarginRight = 15,
        .CssMediaType = PdfCssMediaType.Print,
        .ViewPortWidth = 1920,
        .FitToPaperMode = FitToPaperModes.Automatic
    }
}

' Render only after the page calls window.ironpdf.notifyRender(), or after 10 seconds at most
renderer.RenderingOptions.WaitFor.JavaScript(10000)

' The page loads Chart.js and a Google Font from their CDNs, so the renderer needs network access
Dim htmlContent = "
<!DOCTYPE html>
<html>
<head>
    <link href='https://fonts.googleapis.com/css2?family=Roboto:wght@300;400;700&display=swap' rel='stylesheet'>
    <style>
        body { font-family: 'Roboto', sans-serif; }
        .chart-container { width: 100%; height: 400px; }
        @media print {
            .no-print { display: none; }
        }
    </style>
    <script src='https://cdn.jsdelivr.net/npm/chart.js@4.4.1/dist/chart.umd.min.js'></script>
</head>
<body>
    <h1>Dynamic Sales Report</h1>
    <div class='chart-container'>
        <canvas id='salesChart'></canvas>
    </div>
    <script>
        new Chart(document.getElementById('salesChart'), {
            type: 'line',
            data: {
                labels: ['Jan', 'Feb', 'Mar', 'Apr', 'May'],
                datasets: [{
                    label: 'Sales 2025',
                    data: [65, 78, 90, 81, 96],
                    borderColor: 'rgb(75, 192, 192)',
                    tension: 0.4
                }]
            },
            options: { animation: false }
        });
        window.ironpdf.notifyRender();
    </script>
</body>
</html>"

Using pdf = renderer.RenderHtmlAsPdf(htmlContent)
    pdf.SaveAs("sales-report.pdf")
End Using

' NuGet: Install-Package IronPdf
Imports IronPdf
Imports IronPdf.Engines.Chrome
Imports IronPdf.Rendering

Dim renderer = New ChromePdfRenderer With {
    .RenderingOptions = New ChromePdfRenderOptions With {
        .EnableJavaScript = True,
        ' Page margins in millimetres
        .MarginTop = 20,
        .MarginBottom = 20,
        .MarginLeft = 15,
        .MarginRight = 15,
        .CssMediaType = PdfCssMediaType.Print,
        .ViewPortWidth = 1920,
        .FitToPaperMode = FitToPaperModes.Automatic
    }
}

' Render only after the page calls window.ironpdf.notifyRender(), or after 10 seconds at most
renderer.RenderingOptions.WaitFor.JavaScript(10000)

' The page loads Chart.js and a Google Font from their CDNs, so the renderer needs network access
Dim htmlContent = "
<!DOCTYPE html>
<html>
<head>
    <link href='https://fonts.googleapis.com/css2?family=Roboto:wght@300;400;700&display=swap' rel='stylesheet'>
    <style>
        body { font-family: 'Roboto', sans-serif; }
        .chart-container { width: 100%; height: 400px; }
        @media print {
            .no-print { display: none; }
        }
    </style>
    <script src='https://cdn.jsdelivr.net/npm/chart.js@4.4.1/dist/chart.umd.min.js'></script>
</head>
<body>
    <h1>Dynamic Sales Report</h1>
    <div class='chart-container'>
        <canvas id='salesChart'></canvas>
    </div>
    <script>
        new Chart(document.getElementById('salesChart'), {
            type: 'line',
            data: {
                labels: ['Jan', 'Feb', 'Mar', 'Apr', 'May'],
                datasets: [{
                    label: 'Sales 2025',
                    data: [65, 78, 90, 81, 96],
                    borderColor: 'rgb(75, 192, 192)',
                    tension: 0.4
                }]
            },
            options: { animation: false }
        });
        window.ironpdf.notifyRender();
    </script>
</body>
</html>"

Using pdf = renderer.RenderHtmlAsPdf(htmlContent)
    pdf.SaveAs("sales-report.pdf")
End Using

' NuGet: Install-Package EvoPdf.HtmlToPdf  (EvoPdf Classic, Windows)
Imports System.IO
Imports EvoPdf

Dim converter As New HtmlToPdfConverter()

' Production use needs a license key. Leave this line out to evaluate:
' the output then carries an evaluation watermark. An invalid key makes the conversion throw.
' converter.LicenseKey = "<your EvoPdf license key>"

converter.PdfDocumentOptions.PdfPageSize = PdfPageSize.A4
converter.PdfDocumentOptions.PdfPageOrientation = PdfPageOrientation.Portrait

' EvoPdf margins are in points (1/72 inch): 57 pt is about 20 mm, 43 pt about 15 mm,
' matching the IronPDF example above, whose margins are in millimetres
converter.PdfDocumentOptions.TopMargin = 57
converter.PdfDocumentOptions.BottomMargin = 57
converter.PdfDocumentOptions.LeftMargin = 43
converter.PdfDocumentOptions.RightMargin = 43

converter.JavaScriptEnabled = True
converter.ConversionDelay = 2 ' seconds

' For pages behind HTTP authentication, also set
' converter.AuthenticationOptions.Username and .Password

' Convert HTML string
Dim htmlString As String = "
<html>
<head>
    <style>
        body { font-family: Arial, sans-serif; }
        table { border-collapse: collapse; width: 100%; }
        th, td { border: 1px solid #ddd; padding: 8px; }
    </style>
</head>
<body>
    <h1>Invoice</h1>
    <table>
        <tr>
            <th>Item</th>
            <th>Quantity</th>
            <th>Price</th>
        </tr>
        <tr>
            <td>Product A</td>
            <td>5</td>
            <td>$50.00</td>
        </tr>
    </table>
</body>
</html>"

' Perform conversion
Dim pdfBytes() As Byte = converter.ConvertHtml(htmlString, "")

' Save to file
File.WriteAllBytes("invoice.pdf", pdfBytes)

' NuGet: Install-Package EvoPdf.HtmlToPdf  (EvoPdf Classic, Windows)
Imports System.IO
Imports EvoPdf

Dim converter As New HtmlToPdfConverter()

' Production use needs a license key. Leave this line out to evaluate:
' the output then carries an evaluation watermark. An invalid key makes the conversion throw.
' converter.LicenseKey = "<your EvoPdf license key>"

converter.PdfDocumentOptions.PdfPageSize = PdfPageSize.A4
converter.PdfDocumentOptions.PdfPageOrientation = PdfPageOrientation.Portrait

' EvoPdf margins are in points (1/72 inch): 57 pt is about 20 mm, 43 pt about 15 mm,
' matching the IronPDF example above, whose margins are in millimetres
converter.PdfDocumentOptions.TopMargin = 57
converter.PdfDocumentOptions.BottomMargin = 57
converter.PdfDocumentOptions.LeftMargin = 43
converter.PdfDocumentOptions.RightMargin = 43

converter.JavaScriptEnabled = True
converter.ConversionDelay = 2 ' seconds

' For pages behind HTTP authentication, also set
' converter.AuthenticationOptions.Username and .Password

' Convert HTML string
Dim htmlString As String = "
<html>
<head>
    <style>
        body { font-family: Arial, sans-serif; }
        table { border-collapse: collapse; width: 100%; }
        th, td { border: 1px solid #ddd; padding: 8px; }
    </style>
</head>
<body>
    <h1>Invoice</h1>
    <table>
        <tr>
            <th>Item</th>
            <th>Quantity</th>
            <th>Price</th>
        </tr>
        <tr>
            <td>Product A</td>
            <td>5</td>
            <td>$50.00</td>
        </tr>
    </table>
</body>
</html>"

' Perform conversion
Dim pdfBytes() As Byte = converter.ConvertHtml(htmlString, "")

' Save to file
File.WriteAllBytes("invoice.pdf", pdfBytes)

' NuGet: Install-Package IronPdf
Imports System
Imports IronPdf
Imports IronPdf.Editing
Imports IronPdf.Security
Imports IronPdf.Signing
Imports IronSoftware.Drawing

Dim pdf = PdfDocument.FromFile("confidential-report.pdf")

' Finish every content change before signing
pdf.ApplyWatermark("<h2 style='color:red; opacity:0.5;'>CONFIDENTIAL</h2>", 45, VerticalAlignment.Middle, HorizontalAlignment.Center)

' Descriptive document properties (these do not restrict access)
pdf.MetaData.Author = "Finance Team"
pdf.MetaData.Title = "Quarterly Report (Internal)"
pdf.MetaData.ModifiedDate = DateTime.UtcNow

' Owner password: required to change the permissions below
pdf.SecuritySettings.OwnerPassword = "owner-password"

' User password: required to open the document
pdf.SecuritySettings.UserPassword = "user-password"

pdf.SecuritySettings.AllowUserCopyPasteContentForAccessibility = False
pdf.SecuritySettings.AllowUserAnnotations = False
pdf.SecuritySettings.AllowUserCopyPasteContent = False
pdf.SecuritySettings.AllowUserFormData = True
pdf.SecuritySettings.AllowUserEdits = PdfEditSecurity.NoEdit
pdf.SecuritySettings.AllowUserPrinting = PdfPrintSecurity.PrintLowQuality
pdf.SecuritySettings.EncryptionType = PdfEncryptionType.Aes_256

' Visible digital signature: image file, page index, and position/size on the page
Dim signature = New PdfSignature("certificate.pfx", "cert-password") With {
    .SigningReason = "Document Approval",
    .SigningLocation = "Head Office",
    .SigningContact = "security@example.com",
    .SignatureImage = New PdfSignatureImage("signature.png", 0, New Rectangle(100, 100, 200, 50))
}
pdf.Sign(signature)

' The signature is applied when the file is saved
pdf.SaveAs("secured-document.pdf")

' NuGet: Install-Package IronPdf
Imports System
Imports IronPdf
Imports IronPdf.Editing
Imports IronPdf.Security
Imports IronPdf.Signing
Imports IronSoftware.Drawing

Dim pdf = PdfDocument.FromFile("confidential-report.pdf")

' Finish every content change before signing
pdf.ApplyWatermark("<h2 style='color:red; opacity:0.5;'>CONFIDENTIAL</h2>", 45, VerticalAlignment.Middle, HorizontalAlignment.Center)

' Descriptive document properties (these do not restrict access)
pdf.MetaData.Author = "Finance Team"
pdf.MetaData.Title = "Quarterly Report (Internal)"
pdf.MetaData.ModifiedDate = DateTime.UtcNow

' Owner password: required to change the permissions below
pdf.SecuritySettings.OwnerPassword = "owner-password"

' User password: required to open the document
pdf.SecuritySettings.UserPassword = "user-password"

pdf.SecuritySettings.AllowUserCopyPasteContentForAccessibility = False
pdf.SecuritySettings.AllowUserAnnotations = False
pdf.SecuritySettings.AllowUserCopyPasteContent = False
pdf.SecuritySettings.AllowUserFormData = True
pdf.SecuritySettings.AllowUserEdits = PdfEditSecurity.NoEdit
pdf.SecuritySettings.AllowUserPrinting = PdfPrintSecurity.PrintLowQuality
pdf.SecuritySettings.EncryptionType = PdfEncryptionType.Aes_256

' Visible digital signature: image file, page index, and position/size on the page
Dim signature = New PdfSignature("certificate.pfx", "cert-password") With {
    .SigningReason = "Document Approval",
    .SigningLocation = "Head Office",
    .SigningContact = "security@example.com",
    .SignatureImage = New PdfSignatureImage("signature.png", 0, New Rectangle(100, 100, 200, 50))
}
pdf.Sign(signature)

' The signature is applied when the file is saved
pdf.SaveAs("secured-document.pdf")

' NuGet: Install-Package EvoPdf.PdfSecurity
' (licensed with the EVO PDF Toolkit; not included in the standalone HTML to PDF license)
Imports EvoPdf.PdfSecurity

Dim securityOptions As New PdfSecurityOptions()

' Set basic security parameters
securityOptions.UserPassword = "user123"
securityOptions.OwnerPassword = "owner456"
securityOptions.EncryptionAlgorithm = EncryptionAlgorithm.AES
securityOptions.KeySize = EncryptionKeySize.EncryptKey256Bit

' Configure permissions
securityOptions.CanPrint = True
securityOptions.CanCopyContent = False
securityOptions.CanEditContent = False
securityOptions.CanEditAnnotations = False
securityOptions.CanFillFormFields = True
securityOptions.CanAssembleDocument = False

' Apply security to existing PDF
Dim securityManager As New PdfSecurityManager(securityOptions)
securityManager.SaveSecuredPdfToFile("input.pdf", "secured-output.pdf")

' NuGet: Install-Package EvoPdf.PdfSecurity
' (licensed with the EVO PDF Toolkit; not included in the standalone HTML to PDF license)
Imports EvoPdf.PdfSecurity

Dim securityOptions As New PdfSecurityOptions()

' Set basic security parameters
securityOptions.UserPassword = "user123"
securityOptions.OwnerPassword = "owner456"
securityOptions.EncryptionAlgorithm = EncryptionAlgorithm.AES
securityOptions.KeySize = EncryptionKeySize.EncryptKey256Bit

' Configure permissions
securityOptions.CanPrint = True
securityOptions.CanCopyContent = False
securityOptions.CanEditContent = False
securityOptions.CanEditAnnotations = False
securityOptions.CanFillFormFields = True
securityOptions.CanAssembleDocument = False

' Apply security to existing PDF
Dim securityManager As New PdfSecurityManager(securityOptions)
securityManager.SaveSecuredPdfToFile("input.pdf", "secured-output.pdf")

' NuGet: Install-Package IronPdf
Imports IronPdf
Imports IronSoftware.Drawing

' This example expects a PDF with at least three pages
Dim pdf = PdfDocument.FromFile("customer-records.pdf")

' 1. Redact a specific value on every page
pdf.RedactTextOnAllPages("123-45-6789")

' 2. Redact a word on specific pages (zero-based page indexes)
pdf.RedactTextOnPages(New Integer() {0, 1, 2}, "Confidential", CaseSensitive:=False)

' 3. Redact a rectangular region on the first page
pdf.RedactRegionOnPage(0, New RectangleF(100, 200, 300, 50))

' 4. Replace a complete sensitive value with a label instead of drawing a black box
pdf.RedactTextOnAllPages("ACCT-0042-7781", DrawRectangles:=False, ReplacementText:="[REDACTED]")

pdf.SaveAs("redacted-records.pdf")

' NuGet: Install-Package IronPdf
Imports IronPdf
Imports IronSoftware.Drawing

' This example expects a PDF with at least three pages
Dim pdf = PdfDocument.FromFile("customer-records.pdf")

' 1. Redact a specific value on every page
pdf.RedactTextOnAllPages("123-45-6789")

' 2. Redact a word on specific pages (zero-based page indexes)
pdf.RedactTextOnPages(New Integer() {0, 1, 2}, "Confidential", CaseSensitive:=False)

' 3. Redact a rectangular region on the first page
pdf.RedactRegionOnPage(0, New RectangleF(100, 200, 300, 50))

' 4. Replace a complete sensitive value with a label instead of drawing a black box
pdf.RedactTextOnAllPages("ACCT-0042-7781", DrawRectangles:=False, ReplacementText:="[REDACTED]")

pdf.SaveAs("redacted-records.pdf")

' NuGet: Install-Package IronPdf
Imports System
Imports IronPdf

' Create a new PDF with an HTML form
Dim html = "
<html>
<body>
    <h2>Employee Information Form</h2>
    <form>
        <label>Full Name:</label>
        <input type='text' name='fullName' required />
        
        <label>Email:</label>
        <input type='email' name='email' required />
        
        <label>Department:</label>
        <select name='department'>
            <option value=''>Select Department</option>
            <option value='IT'>Information Technology</option>
            <option value='HR'>Human Resources</option>
            <option value='Sales'>Sales</option>
        </select>
        
        <label>Start Date:</label>
        <input type='text' name='startDate' placeholder='YYYY-MM-DD' />
        
        <label>
            <input type='checkbox' name='agreement' />
            I agree to the terms and conditions
        </label>
        
        <button type='submit'>Submit</button>
    </form>
</body>
</html>"

Dim renderer = New ChromePdfRenderer With {
    .RenderingOptions = New ChromePdfRenderOptions With {
        .CreatePdfFormsFromHtml = True ' Enable form field creation
    }
}

Using pdf = renderer.RenderHtmlAsPdf(html)
    ' Programmatically fill form fields
    pdf.Form.FindFormField("fullName").Value = "John Doe"
    pdf.Form.FindFormField("email").Value = "john.doe@example.com"
    ' A dropdown takes one of its displayed choices, not the HTML option value ("IT")
    pdf.Form.FindFormField("department").Value = "Information Technology"
    pdf.Form.FindFormField("startDate").Value = DateTime.Now.ToString("yyyy-MM-dd")
    ' "Yes" is the checkbox's checked state
    pdf.Form.FindFormField("agreement").Value = "Yes"

    ' Make specific fields read-only
    pdf.Form.FindFormField("email").ReadOnly = True

    ' Save as fillable form
    pdf.SaveAs("fillable-form.pdf")

    ' Or flatten the form (convert to static content)
    pdf.Flatten()
    pdf.SaveAs("completed-form.pdf")
End Using

' NuGet: Install-Package IronPdf
Imports System
Imports IronPdf

' Create a new PDF with an HTML form
Dim html = "
<html>
<body>
    <h2>Employee Information Form</h2>
    <form>
        <label>Full Name:</label>
        <input type='text' name='fullName' required />
        
        <label>Email:</label>
        <input type='email' name='email' required />
        
        <label>Department:</label>
        <select name='department'>
            <option value=''>Select Department</option>
            <option value='IT'>Information Technology</option>
            <option value='HR'>Human Resources</option>
            <option value='Sales'>Sales</option>
        </select>
        
        <label>Start Date:</label>
        <input type='text' name='startDate' placeholder='YYYY-MM-DD' />
        
        <label>
            <input type='checkbox' name='agreement' />
            I agree to the terms and conditions
        </label>
        
        <button type='submit'>Submit</button>
    </form>
</body>
</html>"

Dim renderer = New ChromePdfRenderer With {
    .RenderingOptions = New ChromePdfRenderOptions With {
        .CreatePdfFormsFromHtml = True ' Enable form field creation
    }
}

Using pdf = renderer.RenderHtmlAsPdf(html)
    ' Programmatically fill form fields
    pdf.Form.FindFormField("fullName").Value = "John Doe"
    pdf.Form.FindFormField("email").Value = "john.doe@example.com"
    ' A dropdown takes one of its displayed choices, not the HTML option value ("IT")
    pdf.Form.FindFormField("department").Value = "Information Technology"
    pdf.Form.FindFormField("startDate").Value = DateTime.Now.ToString("yyyy-MM-dd")
    ' "Yes" is the checkbox's checked state
    pdf.Form.FindFormField("agreement").Value = "Yes"

    ' Make specific fields read-only
    pdf.Form.FindFormField("email").ReadOnly = True

    ' Save as fillable form
    pdf.SaveAs("fillable-form.pdf")

    ' Or flatten the form (convert to static content)
    pdf.Flatten()
    pdf.SaveAs("completed-form.pdf")
End Using

' NuGet: Install-Package IronPdf
Imports System
Imports System.Diagnostics
Imports System.Linq
Imports System.Threading
Imports System.Threading.Tasks
Imports IronPdf

' Timing harness for a batch of documents. Replace the generated HTML with your own templates.
Const documentCount As Integer = 100
Const maxConcurrency As Integer = 4

Dim htmlDocuments = Enumerable.Range(1, documentCount) _
    .Select(Function(i) $"<html><body><h1>Invoice {i}</h1><p>Amount due: {i * 10} USD</p></body></html>") _
    .ToList()

Dim renderer = New ChromePdfRenderer With {
    .RenderingOptions = New ChromePdfRenderOptions With {
        .EnableJavaScript = False ' static content only
    }
}

' Cap how many renders run at once instead of starting every render immediately
Using gate As New SemaphoreSlim(maxConcurrency)
    Dim stopwatch = Stopwatch.StartNew()

    Dim tasks = htmlDocuments.Select(Async Function(html, index)
        Await gate.WaitAsync()
        Try
            Using pdf = Await renderer.RenderHtmlAsPdfAsync(html)
                pdf.SaveAs($"invoice-{index + 1}.pdf")
            End Using
        Finally
            gate.Release()
        End Try
    End Function)
    Await Task.WhenAll(tasks)

    stopwatch.Stop()
    Console.WriteLine($"Documents: {documentCount}, at most {maxConcurrency} at a time")
    Console.WriteLine($"Total elapsed: {stopwatch.ElapsedMilliseconds} ms")
    ' Elapsed time divided by the document count: an amortized figure, not the latency of one request
    Console.WriteLine($"Amortized time per document: {stopwatch.ElapsedMilliseconds / CDbl(documentCount):F1} ms")
    ' Resident memory of this process only, sampled once at the end; the Chromium helper
    ' processes are not included, and this is not the peak
    Console.WriteLine($"Working set of this process at end: {Process.GetCurrentProcess().WorkingSet64 / 1024 / 1024} MB")
End Using

' NuGet: Install-Package IronPdf
Imports System
Imports System.Diagnostics
Imports System.Linq
Imports System.Threading
Imports System.Threading.Tasks
Imports IronPdf

' Timing harness for a batch of documents. Replace the generated HTML with your own templates.
Const documentCount As Integer = 100
Const maxConcurrency As Integer = 4

Dim htmlDocuments = Enumerable.Range(1, documentCount) _
    .Select(Function(i) $"<html><body><h1>Invoice {i}</h1><p>Amount due: {i * 10} USD</p></body></html>") _
    .ToList()

Dim renderer = New ChromePdfRenderer With {
    .RenderingOptions = New ChromePdfRenderOptions With {
        .EnableJavaScript = False ' static content only
    }
}

' Cap how many renders run at once instead of starting every render immediately
Using gate As New SemaphoreSlim(maxConcurrency)
    Dim stopwatch = Stopwatch.StartNew()

    Dim tasks = htmlDocuments.Select(Async Function(html, index)
        Await gate.WaitAsync()
        Try
            Using pdf = Await renderer.RenderHtmlAsPdfAsync(html)
                pdf.SaveAs($"invoice-{index + 1}.pdf")
            End Using
        Finally
            gate.Release()
        End Try
    End Function)
    Await Task.WhenAll(tasks)

    stopwatch.Stop()
    Console.WriteLine($"Documents: {documentCount}, at most {maxConcurrency} at a time")
    Console.WriteLine($"Total elapsed: {stopwatch.ElapsedMilliseconds} ms")
    ' Elapsed time divided by the document count: an amortized figure, not the latency of one request
    Console.WriteLine($"Amortized time per document: {stopwatch.ElapsedMilliseconds / CDbl(documentCount):F1} ms")
    ' Resident memory of this process only, sampled once at the end; the Chromium helper
    ' processes are not included, and this is not the peak
    Console.WriteLine($"Working set of this process at end: {Process.GetCurrentProcess().WorkingSet64 / 1024 / 1024} MB")
End Using

' NuGet: Install-Package IronPdf
Imports IronPdf

Dim renderer As New ChromePdfRenderer()

Dim bootstrapTimeline As String = "
<!DOCTYPE html>
<html>
<head>
    <link href='https://cdn.jsdelivr.net/npm/bootstrap@5.3.0/dist/css/bootstrap.min.css' rel='stylesheet'>
    <style>
        .timeline { position: relative; padding: 20px 0; }
        .timeline::before {
            content: '';
            position: absolute;
            left: 50%;
            width: 2px;
            height: 100%;
            background: #dee2e6;
        }
        .timeline-item { position: relative; margin: 20px 0; }
    </style>
</head>
<body>
    <div class='container py-5'>
        <h2 class='text-center mb-5'>Project Timeline</h2>
        <div class='timeline'>
            <div class='timeline-item'>
                <div class='row'>
                    <div class='col-md-6'>
                        <div class='card shadow-sm'>
                            <div class='card-body'>
                                <h5 class='card-title'>Phase 1: Planning</h5>
                                <p class='text-muted'>Q1 2025</p>
                                <p class='card-text'>Initial project scope and requirements gathering completed.</p>
                                <span class='badge bg-success'>Completed</span>
                            </div>
                        </div>
                    </div>
                </div>
            </div>
            <!-- Additional timeline items... -->
        </div>
    </div>
</body>
</html>"

' The page loads Bootstrap from a CDN, so the renderer needs network access
Using pdf = renderer.RenderHtmlAsPdf(bootstrapTimeline)
    pdf.SaveAs("project-timeline.pdf")
End Using

' NuGet: Install-Package IronPdf
Imports IronPdf

Dim renderer As New ChromePdfRenderer()

Dim bootstrapTimeline As String = "
<!DOCTYPE html>
<html>
<head>
    <link href='https://cdn.jsdelivr.net/npm/bootstrap@5.3.0/dist/css/bootstrap.min.css' rel='stylesheet'>
    <style>
        .timeline { position: relative; padding: 20px 0; }
        .timeline::before {
            content: '';
            position: absolute;
            left: 50%;
            width: 2px;
            height: 100%;
            background: #dee2e6;
        }
        .timeline-item { position: relative; margin: 20px 0; }
    </style>
</head>
<body>
    <div class='container py-5'>
        <h2 class='text-center mb-5'>Project Timeline</h2>
        <div class='timeline'>
            <div class='timeline-item'>
                <div class='row'>
                    <div class='col-md-6'>
                        <div class='card shadow-sm'>
                            <div class='card-body'>
                                <h5 class='card-title'>Phase 1: Planning</h5>
                                <p class='text-muted'>Q1 2025</p>
                                <p class='card-text'>Initial project scope and requirements gathering completed.</p>
                                <span class='badge bg-success'>Completed</span>
                            </div>
                        </div>
                    </div>
                </div>
            </div>
            <!-- Additional timeline items... -->
        </div>
    </div>
</body>
</html>"

' The page loads Bootstrap from a CDN, so the renderer needs network access
Using pdf = renderer.RenderHtmlAsPdf(bootstrapTimeline)
    pdf.SaveAs("project-timeline.pdf")
End Using

' NuGet: Install-Package IronPdf
Imports System.Net
Imports IronPdf
Imports IronPdf.Security
Imports IronPdf.Signing

Dim patient = New PatientRecord("P-10442", "Jane <Q.> Doe & Family", "123-45-6789", "open-sesame")

' HTML-encode text values, so characters such as & and < print as text instead of changing the markup
Dim html = $"
<html>
<body>
    <h1>Patient Summary</h1>
    <p>Patient ID: {WebUtility.HtmlEncode(patient.PatientId)}</p>
    <p>Name: {WebUtility.HtmlEncode(patient.Name)}</p>
    <p>SSN: {WebUtility.HtmlEncode(patient.Ssn)}</p>
</body>
</html>"

Dim renderer = New ChromePdfRenderer()
Using pdf = renderer.RenderHtmlAsPdf(html)

    ' Remove the SSN from the page content wherever it appears
    pdf.RedactTextOnAllPages(patient.Ssn)

    ' Descriptive document properties
    pdf.MetaData.Author = "Records System"
    pdf.MetaData.Title = $"Patient Summary {patient.PatientId}"

    ' Require a password to open the file, restrict copying, and encrypt with AES-256
    pdf.SecuritySettings.UserPassword = patient.AccessCode
    pdf.SecuritySettings.OwnerPassword = "records-owner-password"
    pdf.SecuritySettings.AllowUserCopyPasteContent = False
    pdf.SecuritySettings.AllowUserPrinting = PdfPrintSecurity.FullPrintRights
    pdf.SecuritySettings.EncryptionType = PdfEncryptionType.Aes_256

    ' Sign last, so changes made to the file after signing can be detected
    pdf.Sign(New PdfSignature("records-cert.pfx", "password") With {
        .SigningReason = "Record export",
        .SigningLocation = "Records Department"
    })

    pdf.SaveAs("patient-summary.pdf")

End Using

Public Record PatientRecord(PatientId As String, Name As String, Ssn As String, AccessCode As String)

' NuGet: Install-Package IronPdf
Imports System.Net
Imports IronPdf
Imports IronPdf.Security
Imports IronPdf.Signing

Dim patient = New PatientRecord("P-10442", "Jane <Q.> Doe & Family", "123-45-6789", "open-sesame")

' HTML-encode text values, so characters such as & and < print as text instead of changing the markup
Dim html = $"
<html>
<body>
    <h1>Patient Summary</h1>
    <p>Patient ID: {WebUtility.HtmlEncode(patient.PatientId)}</p>
    <p>Name: {WebUtility.HtmlEncode(patient.Name)}</p>
    <p>SSN: {WebUtility.HtmlEncode(patient.Ssn)}</p>
</body>
</html>"

Dim renderer = New ChromePdfRenderer()
Using pdf = renderer.RenderHtmlAsPdf(html)

    ' Remove the SSN from the page content wherever it appears
    pdf.RedactTextOnAllPages(patient.Ssn)

    ' Descriptive document properties
    pdf.MetaData.Author = "Records System"
    pdf.MetaData.Title = $"Patient Summary {patient.PatientId}"

    ' Require a password to open the file, restrict copying, and encrypt with AES-256
    pdf.SecuritySettings.UserPassword = patient.AccessCode
    pdf.SecuritySettings.OwnerPassword = "records-owner-password"
    pdf.SecuritySettings.AllowUserCopyPasteContent = False
    pdf.SecuritySettings.AllowUserPrinting = PdfPrintSecurity.FullPrintRights
    pdf.SecuritySettings.EncryptionType = PdfEncryptionType.Aes_256

    ' Sign last, so changes made to the file after signing can be detected
    pdf.Sign(New PdfSignature("records-cert.pfx", "password") With {
        .SigningReason = "Record export",
        .SigningLocation = "Records Department"
    })

    pdf.SaveAs("patient-summary.pdf")

End Using

Public Record PatientRecord(PatientId As String, Name As String, Ssn As String, AccessCode As String)

' NuGet: Install-Package EvoPdf.HtmlToPdf  (EvoPdf Classic, Windows)
Imports System
Imports System.Globalization
Imports System.IO
Imports System.Net
Imports EvoPdf

Dim invoice = New InvoiceData("INV-2026-0042", New DateTime(2026, 9, 1), "Smith & Sons <Ltd>", 1250.00D)

Dim converter = New HtmlToPdfConverter With {
    ' LicenseKey = "<your EvoPdf license key>",
    .JavaScriptEnabled = False, ' not needed for static invoices
    .ConversionDelay = 0
}
converter.PdfDocumentOptions.PdfPageSize = PdfPageSize.A4
converter.PdfDocumentOptions.TopMargin = 30    ' points
converter.PdfDocumentOptions.BottomMargin = 30 ' points

Dim template As String =
    "<html><body><h1>Invoice {{InvoiceNumber}}</h1>" +
    "<p>Date: {{Date}}</p><p>Customer: {{CustomerName}}</p><p>Total: {{Total}}</p></body></html>"

' HTML-encode text values, so characters such as & and < print as text instead of changing the markup
Dim html As String = template _
    .Replace("{{InvoiceNumber}}", WebUtility.HtmlEncode(invoice.InvoiceNumber)) _
    .Replace("{{Date}}", invoice.Date.ToString("yyyy-MM-dd")) _
    .Replace("{{CustomerName}}", WebUtility.HtmlEncode(invoice.CustomerName)) _
    .Replace("{{Total}}", invoice.Total.ToString("C", CultureInfo.GetCultureInfo("en-US")))

File.WriteAllBytes($"invoice-{invoice.InvoiceNumber}.pdf", converter.ConvertHtml(html, ""))

Public Class InvoiceData
    Public Property InvoiceNumber As String
    Public Property Date As DateTime
    Public Property CustomerName As String
    Public Property Total As Decimal

    Public Sub New(invoiceNumber As String, [date] As DateTime, customerName As String, total As Decimal)
        Me.InvoiceNumber = invoiceNumber
        Me.Date = [date]
        Me.CustomerName = customerName
        Me.Total = total
    End Sub
End Class

' NuGet: Install-Package EvoPdf.HtmlToPdf  (EvoPdf Classic, Windows)
Imports System
Imports System.Globalization
Imports System.IO
Imports System.Net
Imports EvoPdf

Dim invoice = New InvoiceData("INV-2026-0042", New DateTime(2026, 9, 1), "Smith & Sons <Ltd>", 1250.00D)

Dim converter = New HtmlToPdfConverter With {
    ' LicenseKey = "<your EvoPdf license key>",
    .JavaScriptEnabled = False, ' not needed for static invoices
    .ConversionDelay = 0
}
converter.PdfDocumentOptions.PdfPageSize = PdfPageSize.A4
converter.PdfDocumentOptions.TopMargin = 30    ' points
converter.PdfDocumentOptions.BottomMargin = 30 ' points

Dim template As String =
    "<html><body><h1>Invoice {{InvoiceNumber}}</h1>" +
    "<p>Date: {{Date}}</p><p>Customer: {{CustomerName}}</p><p>Total: {{Total}}</p></body></html>"

' HTML-encode text values, so characters such as & and < print as text instead of changing the markup
Dim html As String = template _
    .Replace("{{InvoiceNumber}}", WebUtility.HtmlEncode(invoice.InvoiceNumber)) _
    .Replace("{{Date}}", invoice.Date.ToString("yyyy-MM-dd")) _
    .Replace("{{CustomerName}}", WebUtility.HtmlEncode(invoice.CustomerName)) _
    .Replace("{{Total}}", invoice.Total.ToString("C", CultureInfo.GetCultureInfo("en-US")))

File.WriteAllBytes($"invoice-{invoice.InvoiceNumber}.pdf", converter.ConvertHtml(html, ""))

Public Class InvoiceData
    Public Property InvoiceNumber As String
    Public Property Date As DateTime
    Public Property CustomerName As String
    Public Property Total As Decimal

    Public Sub New(invoiceNumber As String, [date] As DateTime, customerName As String, total As Decimal)
        Me.InvoiceNumber = invoiceNumber
        Me.Date = [date]
        Me.CustomerName = customerName
        Me.Total = total
    End Sub
End Class

Imports System
Imports System.IO
Imports System.Linq
Imports System.Threading
Imports System.Threading.Tasks
Imports IronPdf
Imports IronPdf.Engines.Chrome
Imports IronPdf.Rendering

' Global engine settings: set once at startup, before the first render
Installation.ChromeGpuMode = ChromeGpuModes.Disabled ' servers usually have no GPU
' Set to false only if the Linux dependencies are already installed in your image
Installation.LinuxAndDockerDependenciesAutoConfig = False

Dim service = New PdfService(MaxConcurrency:=4)
Dim pages = Enumerable.Range(1, 8).Select(Function(i) $"<h1>Report {i}</h1>")
Dim results As Byte()() = Await Task.WhenAll(pages.Select(Function(page) service.GeneratePdfAsync(page)))

For i As Integer = 0 To results.Length - 1
    File.WriteAllBytes($"report-{i + 1}.pdf", results(i))
Next
Console.WriteLine($"Generated {results.Length} PDFs")

Public Class PdfService
    Private ReadOnly _renderer As ChromePdfRenderer
    Private ReadOnly _gate As SemaphoreSlim

    Public Sub New(maxConcurrency As Integer)
        ' Caps how many renders run at once
        _gate = New SemaphoreSlim(maxConcurrency)

        _renderer = New ChromePdfRenderer With {
            .RenderingOptions = New ChromePdfRenderOptions With {
                .EnableJavaScript = False, ' only if the pages need no JavaScript
                .CssMediaType = PdfCssMediaType.Screen,
                .Timeout = 30 ' seconds
            }
        }
    End Sub

    Public Async Function GeneratePdfAsync(html As String) As Task(Of Byte())
        Await _gate.WaitAsync()
        Try
            Using pdf = Await _renderer.RenderHtmlAsPdfAsync(html)
                Return pdf.BinaryData
            End Using
        Finally
            _gate.Release()
        End Try
    End Function
End Class

Imports System
Imports System.IO
Imports System.Linq
Imports System.Threading
Imports System.Threading.Tasks
Imports IronPdf
Imports IronPdf.Engines.Chrome
Imports IronPdf.Rendering

' Global engine settings: set once at startup, before the first render
Installation.ChromeGpuMode = ChromeGpuModes.Disabled ' servers usually have no GPU
' Set to false only if the Linux dependencies are already installed in your image
Installation.LinuxAndDockerDependenciesAutoConfig = False

Dim service = New PdfService(MaxConcurrency:=4)
Dim pages = Enumerable.Range(1, 8).Select(Function(i) $"<h1>Report {i}</h1>")
Dim results As Byte()() = Await Task.WhenAll(pages.Select(Function(page) service.GeneratePdfAsync(page)))

For i As Integer = 0 To results.Length - 1
    File.WriteAllBytes($"report-{i + 1}.pdf", results(i))
Next
Console.WriteLine($"Generated {results.Length} PDFs")

Public Class PdfService
    Private ReadOnly _renderer As ChromePdfRenderer
    Private ReadOnly _gate As SemaphoreSlim

    Public Sub New(maxConcurrency As Integer)
        ' Caps how many renders run at once
        _gate = New SemaphoreSlim(maxConcurrency)

        _renderer = New ChromePdfRenderer With {
            .RenderingOptions = New ChromePdfRenderOptions With {
                .EnableJavaScript = False, ' only if the pages need no JavaScript
                .CssMediaType = PdfCssMediaType.Screen,
                .Timeout = 30 ' seconds
            }
        }
    End Sub

    Public Async Function GeneratePdfAsync(html As String) As Task(Of Byte())
        Await _gate.WaitAsync()
        Try
            Using pdf = Await _renderer.RenderHtmlAsPdfAsync(html)
                Return pdf.BinaryData
            End Using
        Finally
            _gate.Release()
        End Try
    End Function
End Class

Imports System
Imports System.IO
Imports System.Linq
Imports System.Threading
Imports System.Threading.Tasks
Imports EvoPdf

Dim service = New EvoPdfService(maxConcurrency:=4)
Dim pages = Enumerable.Range(1, 8).[Select](Function(i) $"<h1>Report {i}</h1>")
Dim results As Byte()() = Await Task.WhenAll(pages.[Select](Function(page) service.GeneratePdfAsync(page)))

For i As Integer = 0 To results.Length - 1
    File.WriteAllBytes($"evopdf-report-{i + 1}.pdf", results(i))
Next
Console.WriteLine($"Generated {results.Length} PDFs")

Public Class EvoPdfService
    Private ReadOnly _gate As SemaphoreSlim

    ' Caps how many conversions run at once
    Public Sub New(maxConcurrency As Integer)
        _gate = New SemaphoreSlim(maxConcurrency)
    End Sub

    Public Async Function GeneratePdfAsync(html As String) As Task(Of Byte())
        Await _gate.WaitAsync()
        Try
            ' A new converter for each conversion, as EVO documents for parallel conversions
            Dim converter = New HtmlToPdfConverter With {
                ' LicenseKey = "<your EvoPdf license key>",
                .JavaScriptEnabled = False,
                .ConversionDelay = 0
            }

            ' The Classic API is synchronous, so run it on a thread-pool thread
            Return Await Task.Run(Function() converter.ConvertHtml(html, ""))
        Finally
            _gate.Release()
        End Try
    End Function
End Class

Imports System
Imports System.IO
Imports System.Linq
Imports System.Threading
Imports System.Threading.Tasks
Imports EvoPdf

Dim service = New EvoPdfService(maxConcurrency:=4)
Dim pages = Enumerable.Range(1, 8).[Select](Function(i) $"<h1>Report {i}</h1>")
Dim results As Byte()() = Await Task.WhenAll(pages.[Select](Function(page) service.GeneratePdfAsync(page)))

For i As Integer = 0 To results.Length - 1
    File.WriteAllBytes($"evopdf-report-{i + 1}.pdf", results(i))
Next
Console.WriteLine($"Generated {results.Length} PDFs")

Public Class EvoPdfService
    Private ReadOnly _gate As SemaphoreSlim

    ' Caps how many conversions run at once
    Public Sub New(maxConcurrency As Integer)
        _gate = New SemaphoreSlim(maxConcurrency)
    End Sub

    Public Async Function GeneratePdfAsync(html As String) As Task(Of Byte())
        Await _gate.WaitAsync()
        Try
            ' A new converter for each conversion, as EVO documents for parallel conversions
            Dim converter = New HtmlToPdfConverter With {
                ' LicenseKey = "<your EvoPdf license key>",
                .JavaScriptEnabled = False,
                .ConversionDelay = 0
            }

            ' The Classic API is synchronous, so run it on a thread-pool thread
            Return Await Task.Run(Function() converter.ConvertHtml(html, ""))
        Finally
            _gate.Release()
        End Try
    End Function
End Class

' NuGet: Install-Package IronPdf
Imports System
Imports System.IO
Imports System.Threading.Tasks
Imports IronPdf
Imports IronPdf.Exceptions

' Write IronPDF's own diagnostics to a log file
IronPdf.Logging.Logger.LogFilePath = "ironpdf.log"
IronPdf.Logging.Logger.LoggingMode = IronPdf.Logging.Logger.LoggingModes.All

Dim renderer = New ChromePdfRenderer()
renderer.RenderingOptions.Timeout = 60 ' seconds

Dim page As Byte() = Await TryRenderUrlAsync(renderer, "https://example.com/")
If page IsNot Nothing Then
    File.WriteAllBytes("example.pdf", page)
    Console.WriteLine($"Rendered {page.Length} bytes")
End If

' A host that does not resolve makes the render throw, which exercises the error path
Dim missing As Byte() = Await TryRenderUrlAsync(renderer, "https://nonexistent.invalid/")
Console.WriteLine(If(missing Is Nothing, "Second render failed and was handled", "Second render succeeded"))

' Returns the PDF bytes, or null if the page could not be rendered
Private Shared Async Function TryRenderUrlAsync(renderer As ChromePdfRenderer, url As String) As Task(Of Byte())
    Try
        Using pdf = Await renderer.RenderUrlAsPdfAsync(url)
            If pdf.PageCount = 0 Then
                Console.Error.WriteLine($"No pages rendered for {url}")
                Return Nothing
            End If
            Return pdf.BinaryData
        End Using
    Catch ex As IronPdfNativeException
        ' Raised by the rendering engine, for example when the page cannot be loaded
        Console.Error.WriteLine($"Rendering failed for {url}: {ex.Message}")
        Return Nothing
    End Try
End Function

' NuGet: Install-Package IronPdf
Imports System
Imports System.IO
Imports System.Threading.Tasks
Imports IronPdf
Imports IronPdf.Exceptions

' Write IronPDF's own diagnostics to a log file
IronPdf.Logging.Logger.LogFilePath = "ironpdf.log"
IronPdf.Logging.Logger.LoggingMode = IronPdf.Logging.Logger.LoggingModes.All

Dim renderer = New ChromePdfRenderer()
renderer.RenderingOptions.Timeout = 60 ' seconds

Dim page As Byte() = Await TryRenderUrlAsync(renderer, "https://example.com/")
If page IsNot Nothing Then
    File.WriteAllBytes("example.pdf", page)
    Console.WriteLine($"Rendered {page.Length} bytes")
End If

' A host that does not resolve makes the render throw, which exercises the error path
Dim missing As Byte() = Await TryRenderUrlAsync(renderer, "https://nonexistent.invalid/")
Console.WriteLine(If(missing Is Nothing, "Second render failed and was handled", "Second render succeeded"))

' Returns the PDF bytes, or null if the page could not be rendered
Private Shared Async Function TryRenderUrlAsync(renderer As ChromePdfRenderer, url As String) As Task(Of Byte())
    Try
        Using pdf = Await renderer.RenderUrlAsPdfAsync(url)
            If pdf.PageCount = 0 Then
                Console.Error.WriteLine($"No pages rendered for {url}")
                Return Nothing
            End If
            Return pdf.BinaryData
        End Using
    Catch ex As IronPdfNativeException
        ' Raised by the rendering engine, for example when the page cannot be loaded
        Console.Error.WriteLine($"Rendering failed for {url}: {ex.Message}")
        Return Nothing
    End Try
End Function

' NuGet: Install-Package IronPdf
Imports System
Imports IronPdf
Imports IronPdf.Editing
Imports IronPdf.Security
Imports IronPdf.Signing
Imports IronSoftware.Drawing

Dim renderer = New ChromePdfRenderer()
Using pdf = renderer.RenderHtmlAsPdf(
    "<h1>Quarterly Statement: Q3 2026</h1>" &
    "<table><tr><td>Revenue</td><td>1,250,000</td></tr><tr><td>Expenses</td><td>980,000</td></tr></table>")

    ' Mark the document as a draft
    pdf.ApplyWatermark("
    <div style='color: rgba(0,0,0,0.1); font-size: 120px; transform: rotate(-45deg); font-family: Arial;'>
        DRAFT
    </div>", 30, VerticalAlignment.Middle, HorizontalAlignment.Center)

    ' Descriptive document properties: useful for search and filing, not a record of who changed what
    pdf.MetaData.Author = "Financial Reporting System"
    pdf.MetaData.Keywords = "Quarterly Statement, Q3 2026"
    pdf.MetaData.CustomProperties.Add("ReportPeriod", "2026-Q3")
    pdf.MetaData.CustomProperties.Add("GeneratedAt", DateTime.UtcNow.ToString("O"))

    ' Restrict editing; the owner password is needed to change these permissions
    pdf.SecuritySettings.OwnerPassword = "finance-owner-password"
    pdf.SecuritySettings.AllowUserEdits = PdfEditSecurity.NoEdit
    pdf.SecuritySettings.AllowUserCopyPasteContent = True
    pdf.SecuritySettings.AllowUserPrinting = PdfPrintSecurity.FullPrintRights
    pdf.SecuritySettings.EncryptionType = PdfEncryptionType.Aes_256

    ' Sign last: readers can then detect changes made after signing
    pdf.Sign(New PdfSignature("financial-cert.pfx", "password") With {
        .SigningReason = "Statement approval",
        .SigningLocation = "Finance Department",
        ' Visible signature image on the first page
        .SignatureImage = New PdfSignatureImage("cfo-signature.png", 0, New Rectangle(50, 50, 200, 60))
    })

    pdf.SaveAs("quarterly-statement.pdf")
End Using

' NuGet: Install-Package IronPdf
Imports System
Imports IronPdf
Imports IronPdf.Editing
Imports IronPdf.Security
Imports IronPdf.Signing
Imports IronSoftware.Drawing

Dim renderer = New ChromePdfRenderer()
Using pdf = renderer.RenderHtmlAsPdf(
    "<h1>Quarterly Statement: Q3 2026</h1>" &
    "<table><tr><td>Revenue</td><td>1,250,000</td></tr><tr><td>Expenses</td><td>980,000</td></tr></table>")

    ' Mark the document as a draft
    pdf.ApplyWatermark("
    <div style='color: rgba(0,0,0,0.1); font-size: 120px; transform: rotate(-45deg); font-family: Arial;'>
        DRAFT
    </div>", 30, VerticalAlignment.Middle, HorizontalAlignment.Center)

    ' Descriptive document properties: useful for search and filing, not a record of who changed what
    pdf.MetaData.Author = "Financial Reporting System"
    pdf.MetaData.Keywords = "Quarterly Statement, Q3 2026"
    pdf.MetaData.CustomProperties.Add("ReportPeriod", "2026-Q3")
    pdf.MetaData.CustomProperties.Add("GeneratedAt", DateTime.UtcNow.ToString("O"))

    ' Restrict editing; the owner password is needed to change these permissions
    pdf.SecuritySettings.OwnerPassword = "finance-owner-password"
    pdf.SecuritySettings.AllowUserEdits = PdfEditSecurity.NoEdit
    pdf.SecuritySettings.AllowUserCopyPasteContent = True
    pdf.SecuritySettings.AllowUserPrinting = PdfPrintSecurity.FullPrintRights
    pdf.SecuritySettings.EncryptionType = PdfEncryptionType.Aes_256

    ' Sign last: readers can then detect changes made after signing
    pdf.Sign(New PdfSignature("financial-cert.pfx", "password") With {
        .SigningReason = "Statement approval",
        .SigningLocation = "Finance Department",
        ' Visible signature image on the first page
        .SignatureImage = New PdfSignatureImage("cfo-signature.png", 0, New Rectangle(50, 50, 200, 60))
    })

    pdf.SaveAs("quarterly-statement.pdf")
End Using

' NuGet: Install-Package IronPdf
Imports System
Imports System.Globalization
Imports System.Linq
Imports System.Net
Imports IronPdf
Imports IronPdf.Rendering

Dim order = New Order("INV-1001", New DateTime(2026, 9, 1), {
    New OrderItem("Widget <Deluxe> & Co. edition", 2, 19.99D),
    New OrderItem("Gift wrap", 1, 4.5D)
})

Dim renderer = New ChromePdfRenderer With {
    .RenderingOptions = New ChromePdfRenderOptions With {
        .MarginTop = 10,   ' millimetres
        .MarginBottom = 10,
        .PaperSize = PdfPaperSize.A4
    }
}

Dim usd = CultureInfo.GetCultureInfo("en-US")

' HTML-encode text values, so characters such as & and < print as text instead of changing the markup
Dim rows As String = String.Concat(order.Items.Select(Function(item) $"
        <tr>
            <td>{WebUtility.HtmlEncode(item.Name)}</td>
            <td>{item.Quantity}</td>
            <td>{item.Price.ToString("C", usd)}</td>
            <td>{item.Total.ToString("C", usd)}</td>
        </tr>"))

Dim html = $"
<html>
<head>
    <style>
        body {{ font-family: Arial, sans-serif; }}
        .invoice-header {{ background: #f0f0f0; padding: 20px; }}
        table {{ width: 100%; border-collapse: collapse; }}
        th, td {{ padding: 10px; border-bottom: 1px solid #ddd; text-align: left; }}
    </style>
</head>
<body>
    <div class='invoice-header'>
        <h1>Invoice #{WebUtility.HtmlEncode(order.InvoiceNumber)}</h1>
        <p>Date: {order.Date:yyyy-MM-dd}</p>
    </div>
    <table>
        <tr><th>Item</th><th>Quantity</th><th>Price</th><th>Total</th></tr>
        {rows}
        <tr><td colspan='3'><strong>Total</strong></td><td><strong>{order.Total.ToString("C", usd)}</strong></td></tr>
    </table>
    <p>Thank you for your business!</p>
</body>
</html>"

Using pdf = Await renderer.RenderHtmlAsPdfAsync(html)
    pdf.SaveAs($"invoice-{order.InvoiceNumber}.pdf")
End Using

Public Record OrderItem(Name As String, Quantity As Integer, Price As Decimal)
    Public ReadOnly Property Total As Decimal
        Get
            Return Price * Quantity
        End Get
    End Property
End Record

Public Record Order(InvoiceNumber As String, [Date] As DateTime, Items As OrderItem())
    Public ReadOnly Property Total As Decimal
        Get
            Return Items.Sum(Function(item) item.Total)
        End Get
    End Property
End Record

' NuGet: Install-Package IronPdf
Imports System
Imports System.Globalization
Imports System.Linq
Imports System.Net
Imports IronPdf
Imports IronPdf.Rendering

Dim order = New Order("INV-1001", New DateTime(2026, 9, 1), {
    New OrderItem("Widget <Deluxe> & Co. edition", 2, 19.99D),
    New OrderItem("Gift wrap", 1, 4.5D)
})

Dim renderer = New ChromePdfRenderer With {
    .RenderingOptions = New ChromePdfRenderOptions With {
        .MarginTop = 10,   ' millimetres
        .MarginBottom = 10,
        .PaperSize = PdfPaperSize.A4
    }
}

Dim usd = CultureInfo.GetCultureInfo("en-US")

' HTML-encode text values, so characters such as & and < print as text instead of changing the markup
Dim rows As String = String.Concat(order.Items.Select(Function(item) $"
        <tr>
            <td>{WebUtility.HtmlEncode(item.Name)}</td>
            <td>{item.Quantity}</td>
            <td>{item.Price.ToString("C", usd)}</td>
            <td>{item.Total.ToString("C", usd)}</td>
        </tr>"))

Dim html = $"
<html>
<head>
    <style>
        body {{ font-family: Arial, sans-serif; }}
        .invoice-header {{ background: #f0f0f0; padding: 20px; }}
        table {{ width: 100%; border-collapse: collapse; }}
        th, td {{ padding: 10px; border-bottom: 1px solid #ddd; text-align: left; }}
    </style>
</head>
<body>
    <div class='invoice-header'>
        <h1>Invoice #{WebUtility.HtmlEncode(order.InvoiceNumber)}</h1>
        <p>Date: {order.Date:yyyy-MM-dd}</p>
    </div>
    <table>
        <tr><th>Item</th><th>Quantity</th><th>Price</th><th>Total</th></tr>
        {rows}
        <tr><td colspan='3'><strong>Total</strong></td><td><strong>{order.Total.ToString("C", usd)}</strong></td></tr>
    </table>
    <p>Thank you for your business!</p>
</body>
</html>"

Using pdf = Await renderer.RenderHtmlAsPdfAsync(html)
    pdf.SaveAs($"invoice-{order.InvoiceNumber}.pdf")
End Using

Public Record OrderItem(Name As String, Quantity As Integer, Price As Decimal)
    Public ReadOnly Property Total As Decimal
        Get
            Return Price * Quantity
        End Get
    End Property
End Record

Public Record Order(InvoiceNumber As String, [Date] As DateTime, Items As OrderItem())
    Public ReadOnly Property Total As Decimal
        Get
            Return Items.Sum(Function(item) item.Total)
        End Get
    End Property
End Record

Imports System.IO
Imports EvoPdf
Imports IronPdf
Imports IronPdf.Rendering

Dim url As String = "https://example.com/"

' EvoPdf pattern
Dim evoPdfConverter As New HtmlToPdfConverter()
evoPdfConverter.PdfDocumentOptions.PdfPageSize = PdfPageSize.A4
File.WriteAllBytes("evopdf.pdf", evoPdfConverter.ConvertUrl(url))

' Equivalent IronPDF pattern
Dim ironPdfRenderer As New ChromePdfRenderer With {
    .RenderingOptions = New ChromePdfRenderOptions With {
        .PaperSize = PdfPaperSize.A4
    }
}
Using pdf = ironPdfRenderer.RenderUrlAsPdf(url)
    File.WriteAllBytes("ironpdf.pdf", pdf.BinaryData)
End Using

' During a gradual migration, both libraries can sit behind one interface
Dim converter As IPdfConverter = New IronPdfAdapter()
File.WriteAllBytes("adapter.pdf", converter.ConvertUrlToPdf(url))

Public Interface IPdfConverter
    Function ConvertHtmlToPdf(html As String) As Byte()
    Function ConvertUrlToPdf(url As String) As Byte()
End Interface

Public Class IronPdfAdapter
    Implements IPdfConverter

    Private ReadOnly _renderer As New ChromePdfRenderer()

    Public Function ConvertHtmlToPdf(html As String) As Byte() Implements IPdfConverter.ConvertHtmlToPdf
        Using pdf = _renderer.RenderHtmlAsPdf(html)
            Return pdf.BinaryData
        End Using
    End Function

    Public Function ConvertUrlToPdf(url As String) As Byte() Implements IPdfConverter.ConvertUrlToPdf
        Using pdf = _renderer.RenderUrlAsPdf(url)
            Return pdf.BinaryData
        End Using
    End Function
End Class

Public Class EvoPdfAdapter
    Implements IPdfConverter

    Private ReadOnly _converter As New HtmlToPdfConverter()

    Public Function ConvertHtmlToPdf(html As String) As Byte() Implements IPdfConverter.ConvertHtmlToPdf
        Return _converter.ConvertHtml(html, "")
    End Function

    Public Function ConvertUrlToPdf(url As String) As Byte() Implements IPdfConverter.ConvertUrlToPdf
        Return _converter.ConvertUrl(url)
    End Function
End Class

Imports System.IO
Imports EvoPdf
Imports IronPdf
Imports IronPdf.Rendering

Dim url As String = "https://example.com/"

' EvoPdf pattern
Dim evoPdfConverter As New HtmlToPdfConverter()
evoPdfConverter.PdfDocumentOptions.PdfPageSize = PdfPageSize.A4
File.WriteAllBytes("evopdf.pdf", evoPdfConverter.ConvertUrl(url))

' Equivalent IronPDF pattern
Dim ironPdfRenderer As New ChromePdfRenderer With {
    .RenderingOptions = New ChromePdfRenderOptions With {
        .PaperSize = PdfPaperSize.A4
    }
}
Using pdf = ironPdfRenderer.RenderUrlAsPdf(url)
    File.WriteAllBytes("ironpdf.pdf", pdf.BinaryData)
End Using

' During a gradual migration, both libraries can sit behind one interface
Dim converter As IPdfConverter = New IronPdfAdapter()
File.WriteAllBytes("adapter.pdf", converter.ConvertUrlToPdf(url))

Public Interface IPdfConverter
    Function ConvertHtmlToPdf(html As String) As Byte()
    Function ConvertUrlToPdf(url As String) As Byte()
End Interface

Public Class IronPdfAdapter
    Implements IPdfConverter

    Private ReadOnly _renderer As New ChromePdfRenderer()

    Public Function ConvertHtmlToPdf(html As String) As Byte() Implements IPdfConverter.ConvertHtmlToPdf
        Using pdf = _renderer.RenderHtmlAsPdf(html)
            Return pdf.BinaryData
        End Using
    End Function

    Public Function ConvertUrlToPdf(url As String) As Byte() Implements IPdfConverter.ConvertUrlToPdf
        Using pdf = _renderer.RenderUrlAsPdf(url)
            Return pdf.BinaryData
        End Using
    End Function
End Class

Public Class EvoPdfAdapter
    Implements IPdfConverter

    Private ReadOnly _converter As New HtmlToPdfConverter()

    Public Function ConvertHtmlToPdf(html As String) As Byte() Implements IPdfConverter.ConvertHtmlToPdf
        Return _converter.ConvertHtml(html, "")
    End Function

    Public Function ConvertUrlToPdf(url As String) As Byte() Implements IPdfConverter.ConvertUrlToPdf
        Return _converter.ConvertUrl(url)
    End Function
End Class