Вот еще вариант:
Макрос в Word
Sub printfile()
' print
'
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
End Sub


Батник:
set word_path="C:\Program Files\Microsoft Office\Office12"
%word_path%\winword %1 /mprintfile

Закрывать можно через taskkill

В целом путей много