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

首先在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"&gt ;</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&gt ;<TR&gt ;<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>