Dim wd As Object
        Dim doc As Object
        Dim datei As String = "D:\blablabla.doc"
 
        wd = CreateObject("Word.Application")
 
        wd.visible = False
 
        doc = wd.documents.open(datei)
 
        doc.printout()
 
        doc.close()
 
        doc = Nothing
 
        wd.quit()
        wd = Nothing

EALA FREYA FRESENA