Druckerwahl mit VBA
11.07.2020 11:47:41
Daniel
Ich habe ein Problem mit der Druckerwahl in VBA.
Ich bearbeite und drucke vom Server aus eine Exceldatei . Ich drucke die erste seite vom standarddrucker und die zweite seite von einem Virtuellen drucker (derselbe Drucker aber ein anderer Schacht).
Das funktioniert mit VBA code einwandfrei.
Nun will ich vom Lager aus auf diese Datei zugreifen und auf den Drucker im Lager ausdrucken. Das geht, wenn ich die Drucker manuell auswähle perfekt, aber sobald ich das ganze wieder mit VBA automatisiere, bekomme ich eine fehlermeldung, dass der Drucker nicht erkannt wird.
Ich sende Euch die nötigen Code Zeilen, damit ihr besser versteht was ich meine
StrDruckerAktiv = "OKI C841(PCL) auf Ne01:" 'Die Nummer Ne00 kann sich gelegentlich ändern!!
StrDruckerPDF = "OKI-C841-Manuell auf Ne00:" 'Die Nummer Ne00 kann sich gelegentlich ändern!!
StrDruckerLager = "OKI C810(umgeleitet 20) auf TS006:"
StrDruckerLagermanuell = "OKI C810 Manuell (umgeleitet 20) auf TS007:"
Hier werden die verschiedenen Drucker jeweils einer Variablen zugeordnet.
If User = "Eierraum" Then
Application.ActivePrinter = StrDruckerLagermanuell
Else
Application.ActivePrinter = StrDruckerPDF
End If
hier kommt der Fehler, wenn ich vom Lagerraum aus drucken will, wenn ich im Büro bin funktioniert es.
ich bie euch dankbar, wenn ihr mir weiterhelfen könnt
Gruss Dani aus der Schweiz