主页 > 知识库 > IE中用VBScript不提示直接打印的代码

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>

标签:长治 上海 新疆 沧州 红河 河南 沈阳 乐山

巨人网络通讯声明:本文标题《IE中用VBScript不提示直接打印的代码》,本文关键词  ;如发现本文内容存在版权问题,烦请提供相关信息告之我们,我们将及时沟通与处理。本站内容系统采集于网络,涉及言论、版权与本站无关。
  • 相关文章
  • 收缩
    • 微信客服
    • 微信二维码
    • 电话咨询

    • 400-1100-266