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