161.htm

来自「VB的一些网络编程的例子,个人认为还不错。大家一起来研究一下.」· HTM 代码 · 共 17 行

<p>建立你自己的浏览器－打印</p>
<p></p>
<p></p>
<p>Insert these coding into yourClick Event:</p>
<p></p>
<p>On Error Resume Next</p>
<p>Dim eQuery As OLECMDF</p>
<p>eQuery = webbrowser1.QueryStatusWB(OLECMDID_PRINT)</p>
<p>If Err.Number = 0 Then</p>
<p>If eQuery And OLECMDF_ENABLED Then</p>
<p>Webbrowser1.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER, “”, “”    ‘Ok to Print?</p>
<p>Else</p>
<p>MsgBox “Printer Not Found or No Contents in Webbrowser”</p>
<p>End If</p>
<p>End If</p>
<p> </p>