首先在HTML页面中加入WebBrowser的Object:
<OBJECT classid="CLSID:8856F961-340A-1 1D0-A96B-00C04FD705A2" height=0id=wb name=wb width=0></OBJECT>
之后使用如下代码进行打印
&t;script Ian guage="VBScript">sub prin tvb()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_W AITFORCOMPLETION+PRINT_DONTBOTHERUSER
WB.ExecWB 6,2,3,0
<HTML>
<HEAD>
<OBJECT ID="WB" WIDTH="0" HEIGHT="0"CLASSID="clsid:8856F961-340A-1 1 D0-A96B-00C04FD705A2"> ;</OBJECT>
<SCRIPT LANGUAGE="VBScript">
Subwindow_onunl oad
On Error Resume Next
Set WB=noth ing
End Sub
Sub vbPrin tPage(x,y,z)
OLECMDID_PRINT=6
OLECMDEXECOPT_DODEFAULT=0
OLECMDEXECOPT_PROMPTUSER= 1
OLECMDEXECOPT_DONTPROMPTUSER=2
On Error Resume Next
WB.ExecWB x,y,乙0
End Sub
</SCRIPT>
</HEAD>
<BOD Y>
<TABLE BORDER=1> ;<TR> ;<TD>
< INPUT TYPE="BUTTON" VALUE="Pri nt" ONCLICK="vbPri ntPage 6,2,3"><BR>
< INPUT TYPE="BUTTON"VALUE="Preview" ONCLICK="vbPri ntPage 7, 1,
0"><BR>
< INPUT TYPE="BUTTON"VALUE="Page Setup" ONCLICK="vbPri ntPage 8, 1,0"><BR>
</TD>
<TD bgcolor="gree n">Pri nt Test
</TD></TR></TABLE>
</BOD Y>
</HTML>
puaex怎么样?puaex是一家去年成立的国人商家,本站也分享过几次,他家主要销售香港商宽的套餐,给的全部为G口带宽,而且是不限流量的,目前有WTT和HKBN两种线路的方面,虽然商家的价格比较贵,但是每次补一些货,就会被抢空,之前一直都是断货的状态,目前商家进行了补货,有需要这种类型机器的朋友可以入手。点击进入:puaex商家官方网站Puaex香港vds套餐:全部为KVM虚拟架构,G口的带宽,可...
Contabo自4月份在新加坡增设数据中心以后,这才短短的过去不到3个月,现在同时新增了美国纽约和西雅图数据中心。可见Contabo加速了全球布局,目前可选的数据中心包括:德国本土、美国东部(纽约)、美国西部(西雅图)、美国中部(圣路易斯)和亚洲的新加坡数据中心。为了庆祝美国独立日和新增数据中心,自7月4日开始,购买美国地区的VPS、VDS和独立服务器均免设置费。Contabo是德国的老牌服务商,...
ZJI发布了9月份促销信息,针对香港华为云线路物理服务器华为一型提供立减300元优惠码,优惠后香港华为一型月付仅450元起。ZJI是原来Wordpress圈知名主机商家:维翔主机,成立于2011年,2018年9月更名为ZJI,提供中国香港、台湾、日本、美国独立服务器(自营/数据中心直营)租用及VDS、虚拟主机空间、域名注册等业务,商家所选数据中心均为国内访问质量高的机房和线路,比如香港阿里云、华为...