如何將 VB.NET 表單列印為 PDF

using IronPdf;
using IronPdf.Security;
using System.Security.Cryptography.X509Certificates;

// Create the base PDF
var doc = new ChromePdfRenderer().RenderHtmlAsPdf("<h1>Confidential Report</h1>");

// Apply password protection
doc.SecuritySettings.UserPassword = "user_pass";
doc.SecuritySettings.OwnerPassword = "owner_pass";

// Configure permissions
doc.SecuritySettings.AllowUserPrinting = IronPdf.Security.PdfPrintSecurity.FullPrintRights;
doc.SecuritySettings.AllowUserCopyPasteContent = false;
doc.SecuritySettings.AllowUserAnnotations = false;
doc.SecuritySettings.AllowUserFormData = false;

// Load certificate and add digital signature
var cert = X509CertificateLoader.LoadPkcs12FromFile(
    "certificate.pfx",
    "password",
    X509KeyStorageFlags.Exportable |
    X509KeyStorageFlags.MachineKeySet |
    X509KeyStorageFlags.EphemeralKeySet
);

var signature = new PdfSignature(cert)
{
    ContactInformation = "you@example.com",
    SigningLocation = "Office",
    SigningReason = "Approval"
};

// Add a visible signature image
signature.SignatureImage = new PdfSignatureImage(
    "signatureImage.png",
    pageIndex: 0,
    new IronSoftware.Drawing.Rectangle(x: 0, y: 600, width: 100, height: 100)
);

doc.Sign(signature);
doc.SaveAs("secured_document.pdf");

Imports IronPdf
Imports IronPdf.Security
Imports System.Security.Cryptography.X509Certificates

' Create the base PDF
Dim doc = New ChromePdfRenderer().RenderHtmlAsPdf("<h1>Confidential Report</h1>")

' Apply password protection
doc.SecuritySettings.UserPassword = "user_pass"
doc.SecuritySettings.OwnerPassword = "owner_pass"

' Configure permissions
doc.SecuritySettings.AllowUserPrinting = IronPdf.Security.PdfPrintSecurity.FullPrintRights
doc.SecuritySettings.AllowUserCopyPasteContent = False
doc.SecuritySettings.AllowUserAnnotations = False
doc.SecuritySettings.AllowUserFormData = False

' Load certificate and add digital signature
Dim cert = X509CertificateLoader.LoadPkcs12FromFile(
    "certificate.pfx",
    "password",
    X509KeyStorageFlags.Exportable Or
    X509KeyStorageFlags.MachineKeySet Or
    X509KeyStorageFlags.EphemeralKeySet
)

Dim signature = New PdfSignature(cert) With {
    .ContactInformation = "you@example.com",
    .SigningLocation = "Office",
    .SigningReason = "Approval"
}

' Add a visible signature image
signature.SignatureImage = New PdfSignatureImage(
    "signatureImage.png",
    pageIndex:=0,
    New IronSoftware.Drawing.Rectangle(x:=0, y:=600, width:=100, height:=100)
)

doc.Sign(signature)
doc.SaveAs("secured_document.pdf")

using IronPdf;
using IronPdf.Editing;
using System;
using System.Collections.Generic;
using System.Threading.Tasks;

// Process a batch of HTML templates in parallel
var htmlTemplates = new List<string>
{
    "<h1>Invoice #1001</h1><p>Amount due: $500</p>",
    "<h1>Invoice #1002</h1><p>Amount due: $750</p>",
    "<h1>Invoice #1003</h1><p>Amount due: $1200</p>"
};

var renderer = new ChromePdfRenderer();
var tasks = new List<Task>();

foreach (var template in htmlTemplates)
{
    tasks.Add(Task.Run(() =>
    {
        var page = renderer.RenderHtmlAsPdf(template);

        // Apply a draft watermark
        page.ApplyWatermark(
            "<h2 style='color:gray;'>DRAFT</h2>",
            rotation: 45,
            opacity: 50,
            verticalAlignment: VerticalAlignment.Middle,
            horizontalAlignment: HorizontalAlignment.Center
        );

        // Set metadata for organization
        page.MetaData.Author = "Document Management System";
        page.MetaData.CreationDate = DateTime.Now;

        page.SaveAs($"processed_{Guid.NewGuid()}.pdf");
    }));
}

await Task.WhenAll(tasks);

Imports IronPdf
Imports IronPdf.Editing
Imports System
Imports System.Collections.Generic
Imports System.Threading.Tasks

' Process a batch of HTML templates in parallel
Dim htmlTemplates As New List(Of String) From {
    "<h1>Invoice #1001</h1><p>Amount due: $500</p>",
    "<h1>Invoice #1002</h1><p>Amount due: $750</p>",
    "<h1>Invoice #1003</h1><p>Amount due: $1200</p>"
}

Dim renderer As New ChromePdfRenderer()
Dim tasks As New List(Of Task)()

For Each template In htmlTemplates
    tasks.Add(Task.Run(Sub()
                           Dim page = renderer.RenderHtmlAsPdf(template)

                           ' Apply a draft watermark
                           page.ApplyWatermark(
                               "<h2 style='color:gray;'>DRAFT</h2>",
                               rotation:=45,
                               opacity:=50,
                               verticalAlignment:=VerticalAlignment.Middle,
                               horizontalAlignment:=HorizontalAlignment.Center
                           )

                           ' Set metadata for organization
                           page.MetaData.Author = "Document Management System"
                           page.MetaData.CreationDate = DateTime.Now

                           page.SaveAs($"processed_{Guid.NewGuid()}.pdf")
                       End Sub))
Next

Await Task.WhenAll(tasks)

apt-get install -y libgdiplus libc6-dev