Hallo schönen Sonnatag,
ich habe in einer userform eine Schaltfläche. Bei Aktivierung kann ich mit folgenden Code einen Drucker auswählen.
' Druckerauswahl
Dim sPrinter As String
sPrinter = Application.ActivePrinter
Application.Dialogs(xlDialogPrinterSetup).Show
ActiveSheet.PrintPreview
Application.ActivePrinter = sPrinter
danach soll eine bestimmte Seite ausgedruckt werden. Das versuche ich mit folgendem Code.
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
Ich kann zwar den Drucker auswählen, aber dann bleibt das Makro stecken.
Kann mir bitte jemand weiterhelfen
Danke und lg