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选项中高级里,把打印背景色和背景图复选框给选中!
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选项中高级里,把打印背景色和背景图复选框给选中!