[Iska]

Bigsom85, попробуйте так (по этому коду):

Код:

Option Explicit

Const READYSTATE_COMPLETE = 4

Const OLECMDID_PRINT = 6
Const OLECMDEXECOPT_DONTPROMPTUSER = 2

Dim strAddress
Dim boolDone


With WScript.CreateObject("InternetExplorer.Application", "IE_")
	.Visible = True
	
	For Each strAddress In Array("http://www.script-coding.com", "http://pda.mail.ru", "http://www.google.com")
		.Navigate strAddress
		
		Do
			WScript.Sleep 100
		Loop Until Not .Busy And .ReadyState = READYSTATE_COMPLETE
		
		boolDone = False
		
		.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER
		
		Do
			WScript.Sleep 100
		Loop Until boolDone
	Next
	
	.Quit
End With

WScript.Quit 0
'=============================================================================

'=============================================================================
Sub IE_PrintTemplateTeardown(ByVal pDisp)
	boolDone = True
End Sub
'=============================================================================

«"http://www.script-coding.com", "http://pda.mail.ru", "http://www.google.com"» — меняете на адреса/Url страниц Ваших принтеров. После того, как убедитесь, что всё работает как надо — строку «.Visible = True» можно будет закомментировать.