Printing a web browser 1

[JonathonC]

How can I allow the user to print the HTML page displayed in a web Browser when they click on on a Toolbar button.

Thanks in advance,
Jonathon.

 

[JohnYingling]

Dim eQuery As OLECMDF       'return value type for QueryStatusWB
        On Error Resume Next
            eQuery = wbIntranet.QueryStatusWB(OLECMDID_PRINT)  'get print command status
            If Err.Number = 0 Then
                    If eQuery And OLECMDF_ENABLED Then
                        wbIntranet.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER, "", ""    'Ok to Print?
                    Else
                        MsgBox "The Print command is currently disabled."
                    End If
            End If
            If Err.Number <> 0 Then MsgBox &quot;Print command Error: &quot; & Err.Description
        On Error GoTo 0

http://www.VBCompare.com

http://www.VBSortGen.com

 

[JonathonC]

Thanks John, thats great, i've looked everywhere for a piece of code like that and now i've found it.

Thanks again

Jonathon.