VB.NET中WebBrowser控件设置A5纸型、打印方向及打印机名问题求助

常见问题原因及解决方案 #

1. 未正确匹配打印机支持的纸型 #

直接调用PaperKind.A5可能无效，部分打印机的A5纸型枚举值并非标准定义，需从打印机的PaperSizes集合中精准匹配：

Dim printDoc As New PrintDocument()
printDoc.PrinterSettings.PrinterName = "你的目标打印机名称"
' 遍历打印机支持的纸型列表，找到A5
For Each paperSize As PaperSize In printDoc.PrinterSettings.PaperSizes
    If paperSize.PaperName = "A5" Then
        printDoc.DefaultPageSettings.PaperSize = paperSize
        Exit For
    End If
Next

2. 未在文档加载完成后设置参数 #

WebBrowser的打印参数必须在文档完全加载后配置，否则会被默认设置覆盖，需在DocumentCompleted事件中执行操作：

Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
    Dim printSettings As New PrinterSettings()
    printSettings.PrinterName = "目标打印机名称"
    
    Dim pageSettings As New PageSettings(printSettings)
    ' 设置打印方向（True为横向，False为纵向）
    pageSettings.Landscape = True
    ' 匹配A5纸型
    For Each ps As PaperSize In printSettings.PaperSizes
        If ps.PaperName = "A5" Then
            pageSettings.PaperSize = ps
            Exit For
        End If
    Next
    
    ' 绑定设置并触发打印
    WebBrowser1.Print()
End Sub

3. 未通过COM接口强制覆盖默认配置 #

WebBrowser底层依赖IE打印组件，可通过IWebBrowser2接口直接控制打印参数，绕过系统默认设置：

Imports SHDocVw

' 在DocumentCompleted事件内执行
Dim webBrowserCOM As IWebBrowser2 = DirectCast(WebBrowser1.ActiveXInstance, IWebBrowser2)
' 直接触发打印，不弹出设置窗口
webBrowserCOM.ExecWB(OLECMDID.OLECMDID_PRINT, OLECMDEXECOPT.OLECMDEXECOPT_DONTPROMPTUSER)

注意：需添加对Microsoft Internet Controls的引用才能使用该接口。

4. 打印机名称不匹配 #

确认打印机名称与系统中显示的完全一致（包括大小写、特殊字符），可通过以下代码遍历所有可用打印机：

' 输出所有已安装打印机名称
For Each printerName As String In PrinterSettings.InstalledPrinters
    Console.WriteLine(printerName)
Next

关键注意事项 #

• 部分打印机不支持A5纸型，需先通过PrinterSettings.IsValid验证打印机是否可用。
• WebBrowser的打印行为可能受IE兼容性模式影响，可在项目中添加app.manifest指定IE版本。

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