Dim objWord As Object
Dim objDoc As Object

Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Open(FileName:="c:\blaha.doc")

objDoc.PrintOut

objWord.Visible = True

Set objDoc = Nothing
Set objWord = Nothing