在VB桌面程序开发中，打印HTML内容是一个比较常见的需求，使用WebBrowser控件可以很方便地实现这个功能，无需额外引入复杂的打印组件，直接利用系统自带的IE打印内核完成操作。
准备工作
首先需要在VB的窗体中添加WebBrowser控件，默认工具箱可能没有该控件，需要先手动添加。具体操作是右键点击工具箱，选择部件，在弹出的窗口中找到Microsoft Internet Controls，勾选后点击确定，就可以在工具箱中找到WebBrowser控件并拖放到窗体上。
加载HTML内容
加载HTML内容有两种常见方式，一种是加载本地或远程的HTML文件，另一种是加载动态生成的HTML字符串。
加载HTML文件
如果需要打印已经存在的HTML文件，可以直接使用WebBrowser控件的Navigate方法，代码如下：
Private Sub LoadHtmlFile()
' 加载本地HTML文件，路径根据实际位置调整
WebBrowser1.Navigate "C:testprint_content.html"
End Sub
加载动态HTML字符串
如果是动态生成的HTML内容，不需要先保存为文件，可以通过DocumentText属性直接赋值，代码如下：
Private Sub LoadHtmlString()
Dim htmlContent As String
' 拼接需要打印的HTML内容
htmlContent = "<html><head><title>打印测试</title></head>"
htmlContent = htmlContent & "<body><h1>VB打印HTML示例</h1>"
htmlContent = htmlContent & "<p>这是一段动态生成的HTML内容，用于测试打印功能。</p>"
htmlContent = htmlContent & "</body></html>"
' 将HTML字符串赋值给WebBrowser控件
WebBrowser1.DocumentText = htmlContent
End Sub
触发打印操作
HTML内容加载完成后，不能直接触发打印，需要等待WebBrowser控件完成文档加载，否则可能会出现打印空白的问题。可以监听WebBrowser控件的DocumentCompleted事件，在文档加载完成后执行打印。
Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
' 确保当前加载的文档是目标文档，避免多次触发
If WebBrowser1.Url = e.Url Then
' 调用打印方法，弹出打印设置对话框
WebBrowser1.Print()
' 如果需要静默打印，不弹出打印对话框，可以使用下面的代码
' WebBrowser1.Document.execCommand("Print", False, Nothing)
End If
End Sub
上面的代码中，WebBrowser1.Print()会弹出系统自带的打印设置对话框，用户可以选择打印机、设置打印份数等参数。如果不需要用户干预，直接使用静默打印的方式，调用execCommand方法执行Print命令即可。
打印参数配置
如果需要设置页眉、页脚、页边距等打印参数，可以通过修改注册表的方式实现，WebBrowser控件的打印参数存储在注册表的HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerPageSetup路径下。
Private Sub SetPrintParam()
Dim regKey As Object
' 打开注册表项
Set regKey = CreateObject("WScript.Shell").RegWrite("HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerPageSetupheader", "", "REG_SZ")
Set regKey = CreateObject("WScript.Shell").RegWrite("HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerPageSetupfooter", "", "REG_SZ")
' 设置页边距，单位是英寸，这里设置为0.5英寸
Set regKey = CreateObject("WScript.Shell").RegWrite("HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerPageSetupmargin_left", "0.5", "REG_SZ")
Set regKey = CreateObject("WScript.Shell").RegWrite("HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerPageSetupmargin_right", "0.5", "REG_SZ")
Set regKey = CreateObject("WScript.Shell").RegWrite("HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerPageSetupmargin_top", "0.5", "REG_SZ")
Set regKey = CreateObject("WScript.Shell").RegWrite("HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerPageSetupmargin_bottom", "0.5", "REG_SZ")
End Sub
需要注意修改注册表会影响系统中所有IE内核的打印设置，如果只想针对当前程序生效，可以在打印完成后恢复原来的注册表值。
常见问题及解决方法
- 打印空白：通常是没有等待文档加载完成就触发了打印，需要确保在DocumentCompleted事件中执行打印操作。
- HTML样式不生效：WebBrowser控件使用的是IE内核，部分CSS属性不支持，尽量使用兼容性好的CSS写法，避免使用过新的CSS特性。
- 静默打印无效：部分系统环境下静默打印可能被限制，需要检查打印机权限，或者尝试先调用打印设置对话框再执行打印。
完整示例流程
下面是把所有步骤整合起来的完整示例，点击按钮后加载HTML内容并自动打印：
Public Class Form1
Private Sub btnPrint_Click(sender As Object, e As EventArgs) Handles btnPrint.Click
' 先设置打印参数
SetPrintParam()
' 加载动态HTML内容
LoadHtmlString()
End Sub
Private Sub LoadHtmlString()
Dim htmlContent As String
htmlContent = "<html><head><title>打印测试</title></head>"
htmlContent = htmlContent & "<body><h1>VB打印HTML完整示例</h1>"
htmlContent = htmlContent & "<p>这是完整的打印流程示例，包含参数设置和自动打印。</p>"
htmlContent = htmlContent & "</body></html>"
WebBrowser1.DocumentText = htmlContent
End Sub
Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
If WebBrowser1.Url = e.Url Then
' 触发静默打印
WebBrowser1.Document.execCommand("Print", False, Nothing)
End If
End Sub
Private Sub SetPrintParam()
Dim shell As Object
Set shell = CreateObject("WScript.Shell")
shell.RegWrite "HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerPageSetupheader", ""
shell.RegWrite "HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerPageSetupfooter", ""
End Sub
End Class
按照上面的步骤操作，就可以在VB程序中顺利实现HTML内容的打印功能，根据实际需求调整HTML内容和打印参数即可满足不同的业务场景。
VBWebBrowserHTML_printprint_HTML修改时间：2026-06-22 05:30:54