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

首頁 > 編程 > VBScript > 正文

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

2020-07-26 11:55:18
字體:
來源:轉載
供稿:網友
首先在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>
發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 静海县| 伊吾县| 大荔县| 措勤县| 巴林左旗| 潢川县| 泗阳县| 龙口市| 镇安县| 连城县| 祁门县| 霞浦县| 法库县| 凤翔县| 云南省| 龙口市| 南召县| 康平县| 汽车| 顺义区| 镇安县| 开鲁县| 怀化市| 迁西县| 铅山县| 隆德县| 崇文区| 广平县| 辽阳市| 怀安县| 易门县| 祁东县| 柘城县| 文化| 饶平县| 庆安县| 来安县| 如东县| 凤庆县| 永寿县| 玛纳斯县|