Develop Your Own Browser - Part 1

Insert this code into yourClick Event:

Dim eQuery As OLECMDF On Error Resume NexteQuery = webbrowser1.QueryStatusWB(OLECMDID_PAGESETUP)If Err.Number = 0 ThenIf eQuery And OLECMDF_ENABLED Thenwebbrowser1.ExecWB OLECMDID_PAGESETUP, _                   OLECMDEXECOPT_PROMPTUSER, _                   ,     Ok to Print?ElseMsgBox No contents of  WebbrowserEnd IfEnd If

Page 2 of 7



This article was originally published on November 20, 2002