I tried this:
Sub Print_Test()
Dim ExecStr, wrd, WordFileName
WordFileName = "C:\temp\SampleWordFile.doc"
ExecStr = """C:\Program Files\Microsoft Office\OFFICE11\WINWORD.EXE""" &
WordFileName & " /x /n /dde"
WID = Shell(ExecStr, 1)
Set wrd = GetObject(, "Word.Application")
wrd.PrintOut
wrd.Documents.Close
wrd.Quit
End Sub