trovato, posto se può servire a qualcuno. Ciao

Dim oApp As Object


Set oApp = CreateObject("Word.Application")
With oApp
.Documents.Open "c:\test"
.Visible = False
.PrintOut
.Quit
End With
Set oApp = Nothing