首先在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>
tmhhost放出了2021年的端午佳节+618年中大促的优惠活动:日本软银、洛杉矶200G高防cn2 gia、洛杉矶三网cn2 gia、香港200M直连BGP、韩国cn2,全都是高端优化线路,所有这些VPS直接8折,部分已经做了季付8折然后再在此基础上继续8折(也就是6.4折)。 官方网站:https://www.tmhhost.com 香港BGP线路VPS ,200M带宽 200M带...
BGP.TO目前针对日本和新加坡服务器进行促销,其中日本东京服务器6.5折,而新加坡服务器7.5折起。这是一家专门的独立服务器租售网站,提供包括中国香港、日本、新加坡和洛杉矶的服务器租用业务,基本上都是自有硬件、IP资源等,国内优化直连线路,机器自动化部署上架,并提供产品的基本管理功能(自助开关机重启重装等)。新加坡服务器 $93.75/月CPU:E3-1230v3内存:16GB硬盘:480GB ...
欧路云(oulucloud) 商家在前面的文章中也有陆续介绍过几次,这不今天有看到商家新增加美国Cera线路的VPS主机,而且有提供全场八折优惠。按照最低套餐最低配置的折扣,月付VPS主机低至22元,还是比较便宜的。不过我们需要注意的是,欧路云是一家2021年新成立的国人主机商,据说是由深圳和香港的几名大佬创建。如果我们有介意新商家的话,选择的时候谨慎且月付即可,注意数据备份。商家目前主营高防VP...