发表评论(0)作者:Soma Sundaram, 平台:VB6.0+Win98, 阅读:7290, 日期: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
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