欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

IE中用VBScript不提示直接打印的代码

程序员文章站 2022-11-14 10:31:24
首先在html 页面中加入webbrowser 的object: 首先在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>