'd''abord ouvrir le fichier word
Dim oWord As Word.Application
Set oWord = New Word.Application
oWord.Visible = True
oWord.DisplayAlerts = wdAlertsNone
oWord.Documents.Add "c:\test.doc"
'selectioner une imprimante
oWord.ActivePrinter = "CutePdF Writer"
'imprimer
oWord.ActiveDocument.PrintOut
dans Outils > Référence ajoute la librairie Microsoft word