ich habe das in anhängender Datei beschriebene Problem:
https://www.herber.de/bbs/user/13147.xls
und hoffe auf die Hilfe eines Spezialisten.
Gruss Werner
Option Explicit
Sub drucken0202_01()
Dim drucken
Application.ScreenUpdating = False
Sheets("0202-01").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$T$21"
drucken = Application.Dialogs(xlDialogPrint).Show
If drucken = False Then Exit Sub
ActiveSheet.PageSetup.PrintArea = "$U$1:$AB$21"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Application.ScreenUpdating = True
Sheets("Deckblatt").Select
End Sub