Drucker für alle Blätter
Heinz
Habe unteren Code zum Drucker auswählen gefunden.Leider funkt.der Code nur für das Tab.Blatt,wo sich die Schaltfläche befindet.
Könnte man dieses Makro nicht für alle Tab.Blätter in dieser Mappe anwenden ?
Wie würde Bitte dieser Code abgeändert gehören ?
Danke für Eure Hilfe.
Gruss,Heinz
Option Explicit
Sub SelectPrinter()
Dim sPrinter As String
sPrinter = Application.ActivePrinter
Application.Dialogs(xlDialogPrinterSetup).Show
ActiveSheet.PrintPreview
Application.ActivePrinter = sPrinter
End Sub