VB.NET中WebBrowser控件PrintPreviewDialog加载后显示过小求助

问题描述 #

WebBrowser控件调用ShowPrintPreviewDialog()弹出的预览窗口尺寸异常偏小，即使设置myWebBrowser.Parent = Me后问题仍未解决。

现有代码 #

按钮点击事件 #

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    Using dt = LoadData("A")
        myWebBrowser.DocumentText = DataTableToHtml(dt)
    End Using
End Sub

文档加载完成事件 #

Private Sub myWebBrowser_DocumentCompleted(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs) Handles myWebBrowser.DocumentCompleted
    myWebBrowser.ShowPrintPreviewDialog()
    'myWebBrowser.Print()
End Sub

控件初始化及父容器设置 #

Friend WithEvents myWebBrowser As New WebBrowser

Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    myWebBrowser.Parent = Me
End Sub

解决方法 #

1. 显式设置WebBrowser控件尺寸 #

WebBrowser控件本身尺寸过小可能导致预览窗口继承异常尺寸，先给控件设置合适大小：

Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    myWebBrowser.Parent = Me
    ' 设置控件尺寸与窗体匹配或自定义合适大小
    myWebBrowser.Size = New Size(Me.ClientSize.Width, Me.ClientSize.Height)
    myWebBrowser.Visible = False ' 不需要显示控件时可设为不可见
End Sub

2. 手动创建PrintPreviewDialog并配置尺寸 #

不直接使用WebBrowser内置方法，手动实例化对话框并指定初始尺寸：

Private Sub myWebBrowser_DocumentCompleted(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs) Handles myWebBrowser.DocumentCompleted
    Using printPreviewDialog As New PrintPreviewDialog()
        ' 绑定WebBrowser的打印文档
        Dim printDocument As Printing.PrintDocument = myWebBrowser.Document
        printPreviewDialog.Document = printDocument
        
        ' 设置对话框初始位置和尺寸
        printPreviewDialog.StartPosition = FormStartPosition.CenterScreen
        printPreviewDialog.Size = New Size(1000, 700) ' 根据需求调整宽高
        
        printPreviewDialog.ShowDialog()
    End Using
End Sub

3. 检查HTML内容的页面设置 #

若生成的HTML内容存在强制过小的宽度或缩放样式，会导致预览异常。确保DataTableToHtml(dt)生成的HTML包含合适的页面配置，比如在HTML头部添加：

<meta name="viewport" content="width=device-width, initial-scale=1.0">
<style>
    body { width: 210mm; /* A4标准宽度 */ margin: 0 auto; }
</style>

4. 适配高DPI屏幕 #

高DPI屏幕可能引发缩放异常，可在窗体初始化时启用DPI感知：

Imports System.Windows.Forms
Imports System.Runtime.InteropServices

Public Sub New()
    InitializeComponent()
    ' 启用高DPI支持
    If Environment.OSVersion.Version.Major >= 6 Then
        SetProcessDPIAware()
    End If
End Sub

<DllImport("user32.dll")>
Private Shared Function SetProcessDPIAware() As Boolean
End Function

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