Усовершенствованный пример от alexii:
Option Explicit
Const wdDoNotSaveChanges = 0
Const wdPromptToSaveChanges = -2
Const wdSaveChanges = -1
Dim objWord
Dim objDoc
Set objWord = WScript.CreateObject("Word.Application")
With objWord
' .Documents.Open(FileName, ConfirmConversions, ReadOnly, AddToRecentFiles)
Set objDoc = .Documents.Open("C:\Temp\01.doc", False, True, False)
'
'- Метод 1. Печать в фоновом режиме -----------------------------------------
objDoc.PrintOut True ' .PrintOut(Background)
' Здесь, при необходимости, можно делать что-то ещё
Do
WScript.Sleep 500
Loop Until .BackgroundPrintingStatus = 0 ' Ждём окончания фоновой печати
'----------------------------------------------------------------------------
'- Метод 2. Печать напрямую -------------------------------------------------
objDoc.PrintOut False ' .PrintOut(Background)
'----------------------------------------------------------------------------
Set objDoc = Nothing
.Quit wdDoNotSaveChanges ' .Quit(SaveChanges)
End With
Set objWord = Nothing
WScript.Quit 0
Предложения в русском языке начинаются с большой буквы и заканчиваются точкой.
В названии ветки всегда должен быть указан язык программирования или среда исполнения скрипта, если это возможно.