This automation code I posted is missing one important line.
Use this instead:

oWord = Createobject("word.application")
printername = getprinter() && if you need to select a printer
If !Empty(printername)
With oWord
.documents.open(getfile())
.activeprinter = printername
.Printout
EndWith
EndIf