Office: Mit Hilfe von Button zwei Drucker anwählen

Hi an alle,

ich möchte mit zwei Button (oder ähnliches) zwei Drucker anwählen können.
Drucker 1 enthällt DINA4 - Normalpapier
Drucker 2 enthällt DINA5 - Ettiketten
Da ich immer wieder in den unterschiedlichen Formaten drucken muß möchte ich mir den Weg über Datei-Drucken-Drucker auswählen ersparen.
Ich habe bereits versucht über ein Makro mit Verlinkung auf eine Button das Problem zu beheben. Leider ohne Erfolg.

Könnte mir jemand einen Tip geben. :roll:

schon mal Danke an alle......

 

Hallo,

folgende 2 VBA-Makros am besten in ein allgem. Codemodul speichern und im Arbeitsblatt mit 2 Schaltflächen aus den Formularsteuerelementen (nicht ActiveX-Steuerelemente) verbinden:

Code:

Public Sub Drucker_A4_Hoch()
  With ActiveSheet
    .PageSetup.PaperSize = xlPaperA4
    .PageSetup.Orientation = xlPortrait
    .PrintOut
  End With
End Sub
Public Sub Drucker_A5_Quer()
  With ActiveSheet
    .PageSetup.PaperSize = xlPaperA5
    .PageSetup.Orientation = xlLandscape
    .PrintOut
  End With
End Sub

Beide Makros verwenden den Standarddrucker, wobei das 1. Makro A4 im Hochformat druckt, während das 2.Makro A5 im Querformat druckt.
Etikettendruck (vermutlich soll das heißen: besonders dickes Papier) oder ähnliche Spezialparameter können nur im Dialog des Druckertreibers eingestellt werden und nicht in Excel.