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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen