发表评论(0)作者：Soma Sundaram, 平台：VB6.0+Win98, 阅读：7328, 日期：2001-04-28

Copy


Dim eQuery As OLECMDF       ‘return value type for QueryStatusWB
On Error Resume Next
eQuery = brwwebbrowser.QueryStatusWB(OLECMDID_COPY)
If Err.Number = 0 Then
If eQuery And OLECMDF_ENABLED Then
brwwebbrowser.ExecWB OLECMDID_COPY, OLECMDEXECOPT_PROMPTUSER, “”, “”      ‘Ok to Print?
End If
End If