|
Ich bin ziemlich ratlos.
Ich möchte mittels VBA auf einen bestimmten Drucker drucken. Hier ein Beispielcode:
Sub Drucken_Schmierpapier()
Dim strDruckerAktiv As String, strDruckerSchmierpapier As String
strDruckerAktiv = Application.ActivePrinter 'Drucker merken
strDruckerSchmierpapier = "Canon TR8500 series Schmierpapier on Ne06:"
Application.ActivePrinter = strDruckerSchmierpapier '***
ActiveSheet.PrintOut preview:=False
Application.ActivePrinter = strDruckerAktiv 'Drucker zurücksetzen
End Sub
Bei der Zeile *** erhalte ich die Fehlermeldung:
Laufzeitfehler '1004':
Die Methode 'ActivePrinter' für das Objekt '_Application' ist fehlgeschlagen
Wenn ich stattdessen nur ActivePrinter = strDruckerSchmierpapier eingebe, erhalte ich die Fehlermeldung:
Die Methode 'ActivePrinter' für das Objekt '_Global' ist fehlgeschlagen
Was mache ich falsch?
Es liegt nicht an der Ne-Nummer, die habe ich kontrolliert!
Ich verwende Office Professional Plus 2019, Windows 10 Version 21H1 (Build 19043.1165)
|