Individueller Standertdrucker über Makro

Computer: Software & Programmierung Office Software
1

Hallo
Kann mir jemand sagen wie ich folgendes lösen kann:

Ich will per makro einen anderen drucker als standart auswählen, dann drucken und dann wieder den alte als standart. Das habe ich dann auch so weit geschafft. Jetzt soll das Makro aber nicht nur für einen Recher benutzt werden sonern an mehreren. Jeder dieser Rechner hat einen anderen Standartdrucker und ich möchte nicht zich verschiedene Makros schreiben.

Das benutze ich derzeit als Drucker wechsel:

Application.ActivePrinter = „\cvua-fr-p821\Citizen CLP-621 auf Ne00:“
Application.ActivePrinter = „Lexmark E322 PS2 auf LPT1:“ 'Standartdrucker

Wer kann mir helfen?

MFG Sebbi

PS: Habe ma so was inder art gesehen, nur ich weis nicht mehr genau wie mans schreibt.

SVPrinter = Application.ActivePrinter
Application.ActivePrinter = „\cvua-fr-p821\Citizen CLP-621 auf Ne00:“
Application.ActivePrinter = SVPrinter

2

Hallo Sebbi,

es gibt anscheinend keinen „3Zeiler“, aber schau mal hier:
http://www.codeguru.com/forum/showpost.php?s=a82a72f…

Mit freundlichen Grüßen
Jadawin

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

3

Danke für dein Tipp.
Ich suche eingentlich was einfacheres. Habe auch schon ma was in dieser art gesehen, finde es aber net mehr.

Activprinter = SVPrinter
Application.Activprinter = Priner XZY
SVPrinter = Aktivprinter

MFG SEBBI

4

Hallo Sebbi,

das hatte ich so verstanden. Aber ich sehe keine einfachere Möglichkeit. Leider.

Mit freundlichen Grüßen
Jadawin

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]