首先在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>
萨主机(lisahost)新上了美国cn2 gia国际精品网络 – 精品线路,支持解锁美区Netflix所有资源,HULU, DISNEY, StartZ, HBO MAX,ESPN, Amazon Prime Video等,同时支持Tiktok。套餐原价基础上加价20元可更换23段美国原生ip。支持Tiktok。成功下单后,在线充值相应差价,提交工单更换美国原生IP。!!!注意是加价20换原生I...
vpsdime上了新产品系列-Windows VPS,配置依旧很高但是价格依旧是走低端线路。或许vpsdime的母公司Nodisto IT想把核心产品集中到vpsdime上吧,当然这只是站长个人的猜测,毕竟winity.io也是专业卖Windows vps的,而且也是他们自己的品牌。vpsdime是一家新上来不久的奇葩VPS提供商,实际是和backupspy以及crowncloud等都是同一家公司...
艾云怎么样?艾云是一家去年年底成立的国人主机商家,商家主要销售基于KVM虚拟架构的VPS服务,机房目前有美国洛杉矶、圣何塞和英国伦敦,目前商家推出了一些年付特价套餐,性价比非常高,洛杉矶套餐低至85元每年,给500M带宽,可解奈飞,另外圣何塞也有特价机器;1核/1G/20G SSD/3T/2.5Gbps,有需要的朋友以入手。点击进入:艾云官方网站艾云vps促销套餐:KVM虚拟架构,自带20G的防御...