Private Sub Drucken_Click()
    Dim appWord As Object
    Dim doc As Object
    Set appWord = CreateObject("Word.Application")
    Set doc = appWord.Documents.Open(ThisWorkbook.Path & "\worddatei.doc")
    doc.PrintOut
    doc.Close
    appWord.Quit
    Set doc = Nothing
    Set appWord = Nothing
End Sub