Otvorený súbor môžete tlačiť pomocou metódy PrintOut objektu Document

Dim myWord As Word.Application, myDoc As Document
Set myWord = New Word.Application
Set myDoc = myWord.Documents.Open("C:\dokument.doc")
'tlač od 1. po 3. stranu, 2 kópie
myDoc.PrintOut Range:=wdPrintFromTo, From:="1", To:="3", _
               Copies:="2"
'tlač 1 strany
myDoc.PrintOut Range:=wdPrintRangeOfPages, Pages:="1"
'tlač všetkých párnych strán
myDoc.PrintOut pagetype:=wdPrintEvenPagesOnly
'tlač všetkých nepárnych strán
myDoc.PrintOut pagetype:=PrintOddPagesOnly
myWord.Quit