如何在VB.NET中通过iText7调用打印对话框打印PDF至指定打印机？

首先直接给你结论：iText 7本身并不直接提供系统打印对话框或打印机交互的能力——它是一个专注于PDF创建、编辑和解析的库，系统级的打印操作需要结合.NET自带的打印框架来实现。你之前的代码依赖Adobe Reader的命令行工具，这种方式不仅依赖第三方软件，而且/p参数确实只会打印到默认打印机，没法直接指定目标设备。

下面是不依赖Adobe Reader，用iText 7 + .NET打印API实现指定打印机打印的方案：

步骤说明 #

1. 首先确保你已经通过NuGet安装了iText 7的必要包：iText.Kernel（核心PDF处理）和iText.Layout（页面渲染）。
2. 利用.NET的PrintDocument类控制打印流程，指定目标打印机。
3. 通过iText 7读取PDF页面内容，渲染到打印的Graphics对象上。

VB.NET 代码示例 #

Imports iText.Kernel.Pdf
Imports iText.Layout
Imports System.Drawing.Printing

Public Sub PrintPdfToSpecificPrinter(pdfPath As String, printerName As String)
    ' 加载PDF文档
    Using pdfDoc As New PdfDocument(New PdfReader(pdfPath))
        Dim document As New Document(pdfDoc)
        Dim pageCount As Integer = pdfDoc.GetNumberOfPages()
        Dim currentPage As Integer = 1

        ' 创建打印文档实例
        Using printDoc As New PrintDocument()
            ' 指定目标打印机
            printDoc.PrinterSettings.PrinterName = printerName

            ' 检查打印机是否存在
            If Not printDoc.PrinterSettings.IsValid Then
                Throw New Exception($"指定的打印机 {printerName} 不存在或不可用")
            End If

            ' 处理打印页面事件
            AddHandler printDoc.PrintPage, Sub(sender, e)
                                              ' 获取当前PDF页面的尺寸，适配打印区域
                                              Dim pageSize = pdfDoc.GetPage(currentPage).GetPageSize()
                                              Dim scaleX As Single = e.MarginBounds.Width / pageSize.GetWidth()
                                              Dim scaleY As Single = e.MarginBounds.Height / pageSize.GetHeight()
                                              Dim scale As Single = Math.Min(scaleX, scaleY)

                                              ' 用iText7渲染页面到打印Graphics
                                              document.Render(e.Graphics, currentPage, scale, scale, 0, 0)

                                              ' 准备下一页
                                              currentPage += 1
                                              ' 是否还有更多页面需要打印
                                              e.HasMorePages = currentPage <= pageCount
                                          End Sub

            ' 可选：显示打印对话框让用户确认（如果不需要直接打印可以跳过这部分）
            Using printDialog As New PrintDialog()
                printDialog.Document = printDoc
                If printDialog.ShowDialog() = DialogResult.OK Then
                    printDoc.Print()
                End If
            End Using

            ' 如果不需要对话框，直接打印的话用下面这行
            ' printDoc.Print()
        End Using
    End Using
End Sub

调用示例 #

' 替换为你的PDF路径和目标打印机名称
PrintPdfToSpecificPrinter("C:\your-file.pdf", "你的打印机名称")

关于你原来的代码的问题 #

你之前用AcroRd32.exe的方式，/p参数确实没有指定打印机的选项——Adobe Reader的命令行打印默认就是用系统默认打印机，而且即使设置WindowStyle.Hidden，有时候还是会短暂弹出窗口。这种方式的局限性很大，依赖用户机器上安装的Adobe Reader版本，还没法控制打印机选择。

内容的提问来源于stack exchange，提问作者Michael