打印html代码好用的控件,WebBrower控件显示html代码及打印

Private Sub Command1_Click()

WebBrowser1.ExecWB 6, 1

End Sub

Private Sub Command2_Click()

WebBrowser1.Navigate2 "http://www.google.com"

End Sub

Private Sub Command3_Click()

'WebBrowser1.Navigate "about:blank"

WebBrowser1.Document.open

WebBrowser1.Document.writeln ""

WebBrowser1.Document.writeln ""

WebBrowser1.Document.writeln ""

WebBrowser1.Document.writeln ""

WebBrowser1.Document.writeln "444"

WebBrowser1.Document.writeln "444ttt"

WebBrowser1.Document.Close

End Sub

Private Sub Command4_Click()

Dim wb As New WebBrowser_V1

wb.Navigate "about:blank"

wb.Document.open

wb.Document.writeln ""

wb.Document.writeln ""

wb.Document.writeln ""

wb.Document.writeln ""

wb.Document.writeln "444"

wb.Document.writeln "444ttt"

wb.Document.Close

wb.ExecWB 4, 1

End Sub