WebBrowser control

[Jimbob]

Is there an easy way to print from a WebBrowser control?

[Lyla]

Make a command button and call it BtnPrint and paste the following code:

Private Sub BtnPrint_Click()
  Dim eQuery As OLECMDF   
  On Error Resume Next
  
  eQuery = WebBrowser1.QueryStatusWB(OLECMDID_PRINT)  
    If Err.Number = 0 Then
If eQuery And OLECMDF_ENABLED Then 
   WebBrowser1.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER, "", ""     
         Else
              MsgBox "The Print command is currently disabled."
        End If
    End If
 If Err.Number <> 0 Then MsgBox "Print command Error: " & Err.Description
End Sub

Good Luck.


[Edited by Lyla on 08-03-2000 at 11:28 AM]

[Jimbob]

Thnks very much

got me out of a major hole, there!