IE中用VBScript不提示直接打印的代码
导读：收集整理的这篇文章主要介绍了IE中用VBScript不提示直接打印的代码，觉得挺不错的，现在分享给大家，也给大家做个参考。 首先在HTML 页面中加入Webbrowser 的Object...
收集整理的这篇文章主要介绍了IE中用VBScript不提示直接打印的代码，觉得挺不错的，现在分享给大家，也给大家做个参考。 首先在HTML 页面中加入Webbrowser 的Object: OBJECT classid="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2" height=0 id=wb name=wb width=0> /OBJECT>
之后，使用如下代码进行打印：
script language="vbScript">
sub PRintvb()
wb.execwb 6,2,3
End Sub
/script>
关键代码 wb.execwb 6,2,3 可以在 VBScript 方式下实际无需提示的直接打印，但奇怪的是用同样的参数，在 Javascript 方式下IE 依然会弹出打印对话窗口，也许是因为VBScript 是Microsoft 开发的专用于 IE 的吧，而 Javascript 毕竟是外人：）
另找到一个较全面的例子，如下:
6=OLECMDID_PRINT
2=OLECMDEXECOPT_DONTPromPTUSER,
2+1=PRINT_WaiTFORCOMPLETION + PRINT_DONTBOTHERUSER
WB.ExecWB 6, 2, 3, 0
HTML>
HEAD>
OBJECT ID="WB" WIDTH="0" HEIGHT="0" CLASSID="clsid:8856F961-340A-11D0-A96B-00C04FD705A2"> /OBJECT>
SCRIPT LANGUAGE="VBScript">
Sub window_onunload
On Error Resume Next
Set WB = nothing
End Sub
Sub vbPrintPage ( x , y , z )
OLECMDID_PRINT = 6
OLECMDEXECOPT_DODEFAULT = 0
OLECMDEXECOPT_PROMPTUSER = 1
OLECMDEXECOPT_DONTPROMPTUSER = 2
On Error Resume Next
WB.ExecWB x, y, z, 0
End Sub
/SCRIPT>
/HEAD>
BODY>
TABLE BORDER=1> TR> TD>
INPUT TYPE="BUTTON" VALUE="Print" ONCLICK="vbPrintPage 6, 2, 3"> BR>
INPUT TYPE="BUTTON" VALUE="Preview" ONCLICK="vbPrintPage 7, 1, 0"> BR>
INPUT TYPE="BUTTON" VALUE="Page SETUP" ONCLICK="vbPrintPage 8, 1, 0"> BR>
/TD>
TD bgcolor="green"> Print test
/TD> /TR> /TABLE>
/BODY>
/HTML>
声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！
若转载请注明出处： IE中用VBScript不提示直接打印的代码
本文地址： https://pptw.com/jishu/609729.html