Article ID: 188271
Article Last Modified on 7/15/2004
Option Explicit
Private Sub Command1_Click()
' print the contents of the Web Browser control.
WebBrowser1.ExecWB _
OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER, 0, 0
End Sub
Private Sub Form_Load()
' set the caption of the command button.
Command1.Caption = "&Print"
' position the print command button at the top-left.
Command1.Move 0, 0
' position the Web Browser control below the command button.
WebBrowser1.Move 0, 750
' navigate to a Web site for testing purposes.
WebBrowser1.Navigate "http://www.microsoft.com"
End Sub
Private Sub Form_Resize()
' when the form is resized, the Web Browser control should
' remain the same size as the form.
WebBrowser1.Width = Form1.Width
WebBrowser1.Height = Form1.Height
End Sub
Additional query words: kbDSupport kbdss kbVBp500 kbprint kbVBp kbVBp600 kbWebBrowser
Keywords: kbhowto kbprint kbfaq KB188271