国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > VBScript > 正文

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

2020-06-26 18:17:36
字體:
來源:轉載
供稿:網友
在 IE 中用VBScript 實際不提示直接打印
 
首先在HTML 頁面中加入WebBrowser 的Object: 
<OBJECT classid="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2" height=0 id=wb name=wb width=0></OBJECT> 
之后,使用如下代碼進行打印: 
<script language="VBScript"> 
sub printvb() 
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_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>
發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 靖安县| 孝昌县| 开远市| 邯郸市| 白玉县| 安吉县| 惠安县| 吴堡县| 鲁山县| 高州市| 精河县| 原平市| 环江| 海淀区| 榆社县| 酉阳| 博爱县| 龙南县| 湟源县| 眉山市| 屏南县| 波密县| 东明县| 绥棱县| 集贤县| 宁南县| 昌图县| 应城市| 新安县| 德化县| 丽水市| 岱山县| 灵石县| 刚察县| 乌恰县| 濮阳县| 名山县| 惠东县| 湘潭市| 仁怀市| 宜城市|