Guten Tag,
Ich weiß, dass es bereits etliche Thread in etlichen Foren zu diesem Thema gibt. Ich schreibe dennoch hier, da ich leider immernoch keine Lösung gefunden habe.
Ich versuche lediglich per VBA eine Word-Datei zu öffnen und diese mit einem bestimmten Netzwerkdrucker zu drucken.
Das war der Ansatz, den ich am öfftesten gefunden hatte:
Private Sub CommandButton1_Click()
Dim objWord
Set objWord = CreateObject("Word.Application")
objWord.Visible = False
objWord.ActivePrinter = "\\ABC-123\Drucker 122 on NE03:"
Dim objDoc
Set objDoc = objWord.Documents.Open("M:\Ebene1\BSP.docx")
objDoc.PrintOut
objDoc.Close
objWord.Quit
End Sub
Wenn ich in Excel per Makrorecorder den gewünschten Drucker auswähle heißt er
"\\ABC-123\Drucker 122 auf Ne03:"
Wenn ich in Word per Makrorecorder den gewünschten Drucker auswähle heißt er
"\\ABC-123\Drucker 122"
Wenn ich in Word den gewünschten Drucker auswähle und ihn in Excel per
Word.Application.ActivePrinter abfrage, dann heißt er
"\\ABC-123\Drucker 122 on NE03:"
Ich habe das oben gepostete mit allen Varianten(und mir ersichtlichen Kombinationen) ausprobiert - hatte aber leider nie Erfolg mit dem Drucken.
Das Öffnen der Datei oder auch das Öffnen des Druckmenüs der Word-Datei klappt tadellos, aber eben nicht, direkt zu drucken.
Vielen Dank im Vorraus!