Druckerauswahl
16.08.2017 13:41:57
DMDET
ich möchte bei meinen VBA Code mit dem Drucker flexibel sein ohne jedesmal den Code wechseln müssen. Aber es funktioniert bei mir nicht! Vielleicht kann mir jemand helfen. Danke!
Erläuterung ("=Übersicht!T23") verweißt auf eine Zell wo bei mir "Ne08" steht! Gehört zum Netzwerkdrucker!
Mein bisheriger Code der funktioniert:
Application.ActivePrinter = "HP M3035 - A4 auf " & Range("=Übersicht!T23").Value & ":"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Mein neuer Code der auf auf die Seite "Einst" verweist mit der Zelle "B2":
Application.ActivePrinter = ("=Einst!B2") & Range("=Übersicht!T23").Value & ":"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False