Druckerauswahl über Makro
Heike
ich habe gesamt 4 Drucker, die ich über 4 Symbole anwählen möchte.
HP1, HP2, HP3, Hp4 wobei HP2 immer der Standarddrucker sein soll. Die Drucker sind lokal installiert.
Folgenden Code habe ich mir zusammengebastelt, aber als nicht VBA-Kennerin, funktioniert er nicht.
Kann mir jemand helfen? Wäre toll und danke schön.
Sub HP1()
'Hier den aktiven Drucker festlegen:
Application.ActivePrinter = "HP1" 'Hier gehört der Druckername rein
'Druckmenü aufrufen:
Application.Dialogs(xlDialogPrinter).Show 'wird aber nicht zum Standarddrucker, also den _
wieder auswählen:
ActivePrinter = "HP2"
End Sub
Gruß Heike