VS2019中VB代码实现Word文档打印指定打印机纸盒问题求助

我完全理解你现在的困扰：在VS2019用VB开发Word操作功能时，默认纸盒打印一切正常，但指定特定纸盒始终没效果，试了两种方案都没解决，还要兼容各种品牌型号的打印机。下面我来帮你分析问题根源并给出可行的解决方案：

问题出在哪？ #

你的两种方案都存在跨打印机兼容性的硬伤：

• 第一种用的Word.WdPaperTray枚举值，是Word定义的通用纸盒标识，但不同打印机厂商对纸盒的编号映射完全不统一——比如有的打印机把下纸盒对应wdPrinterLowerBin，有的品牌却把这个枚举对应到其他纸盒。
• 第二种直接硬编码纸盒名称（"Tray 1"等），但不同打印机的纸盒命名差异极大，比如有些叫"上层进纸器"、"手动送纸槽"，甚至是本地化的名称，Word根本匹配不到正确的纸盒。

可行解决方案 #

核心思路是获取当前打印机实际支持的纸盒原始ID（RawKind），再将这个ID赋值给Word的PageSetup纸盒属性——因为Word的FirstPageTray和OtherPagesTray本质上接受的是打印机驱动返回的原始纸盒编号，而非Word自己的枚举或自定义名称。

具体实现步骤 #

1. 获取目标打印机的所有纸盒信息，拿到每个纸盒的RawKind值（这是打印机驱动识别纸盒的唯一标识）
2. 根据用户选择的纸盒序号（比如1对应第一个纸盒），找到对应的RawKind
3. 将这个RawKind赋值给Word文档的PageSetup纸盒属性

VB代码示例 #

' 第一步：获取目标打印机的纸盒信息，这里可以用Word当前使用的打印机名称
Dim printerName As String = oWord.ActivePrinter.Split(" on ")(0) ' 提取Word当前打印机名称
Dim printerSettings As New System.Drawing.Printing.PrinterSettings()
printerSettings.PrinterName = printerName

' 第二步：根据用户选择的纸盒序号（intTray）获取对应的RawKind
Dim targetRawKind As Integer = CInt(Word.WdPaperTray.wdPrinterDefaultBin) ' 默认用打印机默认纸盒
If intTray >= 1 AndAlso intTray <= printerSettings.PaperSources.Count Then
    ' 注意：PaperSources索引从0开始，用户选的1对应第一个纸盒（索引0）
    targetRawKind = printerSettings.PaperSources(intTray - 1).RawKind
End If

' 第三步：设置Word文档的纸盒属性
oWord.ActiveDocument.PageSetup.FirstPageTray = targetRawKind
oWord.ActiveDocument.PageSetup.OtherPagesTray = targetRawKind

' 执行打印
modPrint.printWordDoc(oWord)

额外调试技巧 #

测试时可以先遍历打印机的所有纸盒，打印出每个纸盒的名称和RawKind，直观看到不同打印机的纸盒对应关系，方便排查问题：

For Each source As System.Drawing.Printing.PaperSource In printerSettings.PaperSources
    Debug.WriteLine($"纸盒名称：{source.SourceName}，RawKind：{source.RawKind}")
Next

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