VB在程序中调用Web实现打印

最新推荐文章于 2010-11-23 16:01:00 发布

cncco

最新推荐文章于 2010-11-23 16:01:00 发布

阅读量1.8k

点赞数 1

分类专栏： VB 文章标签： vb webbrowser web ie html

VB 专栏收录该内容

82 篇文章

订阅专栏

本文介绍如何在VB应用程序中使用WebBrowser控件实现网页加载、内容修改及打印功能。具体步骤包括：初始化控件、操作文档内容、实现打印预览与打印功能等。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

1、在窗口中放置打印按钮，打印预览，WebBrowser控件
2、在窗口Load中加入以下代码，初始化WebBrowser控件
Private Sub Form_Load()
WebBrowser1.Navigate2 "about:blank"

Do While (WebBrowser1.ReadyState <> READYSTATE_COMPLETE)
DoEvents
Loop
End Sub

3、通过以下代码操作WebBrowser控件内容
WebBrowser1.Document.Open
WebBrowser1.Document.write "asdf" & vbCrLf
WebBrowser1.Document.Close

4、打印和打印预览代码如下
Private Sub cmdPreview_Click()
On Error Resume Next
WebBrowser1.ExecWB OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_DODEFAULT, 0, 0
End Sub

Private Sub cmdPrint_Click()
On Error Resume Next
WebBrowser1.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULT, 0, 0
End Sub

5、VB引用HTML元素方法
WebBrowser1.Document.Form1.elements(i - 1).Value
WebBrowser1(0).Document.Form1.NoNum.Value = rs(0)
a=WebBrowser1(0).Document.Form1.NoNum.Value

6、不足之处，需要调整IE打印时页眉，页脚去掉，如果需要还要在IE选项中高级里，把打印背景色和背景图复选框给选中！