IE中用VBScript不提示直接打印的代碼
更新時(shí)間：2008年11月04日 12:18:19 作者：
在 IE 中用VBScript 實(shí)際不提示直接打印
首先在HTML 頁面中加入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í)際無需提示的直接打印，但奇怪的是用同樣的參數(shù)，在 Javascript 方式下IE 依然會(huì)彈出打印對(duì)話窗口，也許是因?yàn)閂BScript 是Microsoft 開發(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>
<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í)際無需提示的直接打印，但奇怪的是用同樣的參數(shù)，在 Javascript 方式下IE 依然會(huì)彈出打印對(duì)話窗口，也許是因?yàn)閂BScript 是Microsoft 開發(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>
相關(guān)文章
VBS教程：屬性-DateLastModified 屬性...2006-11-11
vbs腳本實(shí)現(xiàn)批量轉(zhuǎn)換文件編碼
這篇文章主要介紹了vbs腳本實(shí)現(xiàn)批量轉(zhuǎn)換文件編碼,可以批量對(duì)文件在Gb2312和UTF-8編碼間互相轉(zhuǎn)換,需要的朋友可以參考下2014-06-06
VBS數(shù)組函數(shù)學(xué)習(xí)實(shí)例分析
VBS數(shù)組在應(yīng)用中沒有像其他語句那么廣泛，VBS數(shù)組存在不少功能上的局限性（如二維數(shù)組的定義、賦值），在使用上也沒有java等語言那么便捷2013-04-04
查看系統(tǒng)C盤剩下的空間方法有很多，在本文要為大家介紹的是通過VBS腳本是如何實(shí)現(xiàn)的，感興趣的朋友不要錯(cuò)過2013-11-11
Shell.Application執(zhí)行命令的五種方法小結(jié)
可能很多人發(fā)現(xiàn)了在海陽頂端2006+版本中Shell.Application執(zhí)行命令的方法在win2003中不好用了。2010-11-11
vbs 注冊(cè)表實(shí)現(xiàn)木馬自啟動(dòng)
自己搗鼓了半天，終于寫出了個(gè)腳本，實(shí)現(xiàn)flux在注冊(cè)表中的啟動(dòng)，當(dāng)然是更隱蔽的方法，別人知道了這個(gè)地方也就沒戲了。2009-05-05
VBS教程：運(yùn)算符-\ 運(yùn)算符...2006-11-11
VBS教程：屬性-DriveLetter 屬性...2006-11-11
VBS腳本加密/解密VBS腳本(簡(jiǎn)易免殺版1.1)
由于殺軟的原因使得“加密/解密VBS腳本”版不能正常使用，于是修改了一下加密函數(shù)逃避殺軟，但同 1.0版一樣由宿主解釋執(zhí)行腳本的特性注定了這種加密是可逆并非常脆弱的，WScript.Echo 一下Execute 后的內(nèi)容即可顯示源碼了。 算法大家可任意改。。。。。2008-01-01
VBS合并一個(gè)文件夾里的TXT的實(shí)現(xiàn)代碼
有時(shí)從網(wǎng)上的電子書網(wǎng)站上下載解壓后。得到的是多個(gè)TXT文本。有沒有辦法把多個(gè)TXT合在一起看呢？寫了個(gè)代碼。不是很完美，歡迎高手批評(píng)指教。 我只是個(gè)菜鳥，需要大家的關(guān)懷才能進(jìn)步哇2013-01-01