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

來(lái)源：本站原創(chuàng)|時(shí)間：2020-01-10|欄目：vb|點(diǎn)擊：次

首先在HTML 頁(yè)面中加入WebBrowser 的Object:
<OBJECT classid="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2" height=0 id=wb name=wb width=0></OBJECT>
之后，使用如下代碼進(jìn)行打?。?
<script language="VBScript">
sub printvb()
wb.execwb 6,2,3
End Sub
</script>
關(guān)鍵代碼 wb.execwb 6,2,3 可以在 VBScript 方式下實(shí)際無(wú)需提示的直接打印，但奇怪的是用同樣的參數(shù)，在 Javascript 方式下IE 依然會(huì)彈出打印對(duì)話窗口，也許是因?yàn)閂BScript 是Microsoft 開(kāi)發(fā)的專用于 IE 的吧，而 Javascript 畢竟是外人：）
另找到一個(gè)較全面的例子，如下:
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>

上一篇：vbs后臺(tái)運(yùn)行bat刪除自身的代碼

欄目：vb

下一篇：SendKeys clip.exe 發(fā)送中文的代碼

本文標(biāo)題：IE中用VBScript不提示直接打印的代碼

本文地址：http://mengdiqiu.com.cn/a1/vb/7621.html

更多vb

欧美大屁股bbbbxxxx,狼人大香伊蕉国产www亚洲,男ji大巴进入女人的视频小说,男人把ji大巴放进女人免费视频,免费情侣作爱视频

vb

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

您可能感興趣的文章

閱讀排行

本欄相關(guān)

隨機(jī)閱讀