首先在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>
DogYun是一家2019年成立的国人主机商,提供VPS和独立服务器租用等,数据中心包括中国香港、美国洛杉矶、日本、韩国、德国、荷兰等,其中VPS包括常规VPS(经典云)和按小时计费VPS(动态云),使用自行开发的面板和管理系统,支持自定义配置,动态云各个硬件独立按小时计费,带宽按照用户使用量计费(不使用不计费)或者购买流量包,线路也可以自行切换。目前商家发布了6.18促销方案,新购动态云7折,经...
pacificrack又追加了3款特价便宜vps搞促销,而且是直接7折优惠(一次性),低至年付7.2美元。这是本月第3波便宜vps了。熟悉pacificrack的知道机房是QN的洛杉矶,接入1Gbps带宽,KVM虚拟,纯SSD RAID10,自带一个IPv4。官方网站:https://pacificrack.com支持PayPal、支付宝等方式付款7折秒杀优惠码:R3UWUYF01T内存CPUSS...
6元虚拟主机是否值得购买?近期各商家都纷纷推出了优质便宜的虚拟主机产品,其中不少6元的虚拟主机,这种主机是否值得购买,下面我们一起来看看。1、百度云6元体验三个月(活动时间有限抓紧体验)体验地址:https://cloud.baidu.com/campaign/experience/index.html?from=bchPromotion20182、Ucloud 10元云主机体验地址:https:...