Parameter 3 options : Undocumented feature !!
See also (elaborating on parameter 3 options):
http://home.att.net/~wshvbs/wshPrinting_fromPureScript.htm
And finally a complete suggestion for the solution
<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>
Try this to print the document
6=OLECMDID_PRINT 2=OLECMDEXECOPT_DONTPROMPTUSER, 2+1=PRINT_WAITFORCOMPLETION + PRINT_DONTBOTHERUSER
WB.ExecWB 6, 2, 3, 0
Parameter 1 options http://msdn.microsoft.com/library/default.asp?url=/library/en-us/com/htm/oen_a2z _22sk.asp
Parameter 2 options http://msdn.microsoft.com/library/default.asp?url=/library/en-us/com/htm/oen_a2z _5k38.asp
Parameter 3 options : Undocumented feature !! See also (elaborating on parameter 3 options): http://home.att.net/~wshvbs/wshPrinting_fromPureScript.htm
And finally a complete suggestion for the solution
<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>