Dim wrd As Object
        wrd = CreateObject("word.application")
        wrd.visible = False
        wrd.Documents.Open(FileName:=OrginalDatei)
 
        wrd.ActivePrinter = DruckerName()
 
        [...]

wrd.Documents.Open(FileName:=OrginalDatei)

        Dim doc As Word.Document = wr.Documents.Open(OrginalDatei, , , , , , , _
          , , , , False)
 
        If Not doc Is Nothing Then
            wr.ActivePrinter = Druckername()
 
            wr.ActiveWindow.PrintOut(False, False, , ZielDatei, , , 0, , , , , _
              , OrginalDatei)
 
            wr.Application.Quit(0)
            wr = Nothing
        Else
            Throw New IOException("Word-Dokument konnte nicht geöffnet werden!")
        End If

Gru?
(Bash)