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

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