Develop Your Own Browser - Part 2

• facebook
• twitter
• google+
• in
• Email

Dim eQuery As OLECMDF    return value type for QueryStatusWBOn Error Resume NexteQuery = brwwebbrowser.QueryStatusWB(OLECMDID_COPY)If Err.Number = 0 ThenIf eQuery And OLECMDF_ENABLED Thenbrwwebbrowser.ExecWB OLECMDID_COPY, _                     OLECMDEXECOPT_PROMPTUSER, _                     ,       Ok to Print?End IfEnd If

Page 2 of 6