Hallo

Das Makro läuft, aber meine Frage ,wenn ich den -ActiveSheet.PageSetup- Block auskommentiere läuft das Makro wesentlich schneller.

Gibt es einen Trick -PageSetup- schneller zu machen?


Mit freundlichen Grüßen
Wolfgang Virnich





Sub SeiteBestellung()
Dim lngR As Long, wks As Worksheet
Set wks = ActiveSheet
Application.ScreenUpdating = False
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$9" ' Druckwiederholung neue Seite
.PrintTitleColumns = ""
.LeftMargin = Application.InchesToPoints(0.78740157480315)
.RightMargin = Application.InchesToPoints(0.393700787401575)
.TopMargin = Application.InchesToPoints(0.590551181102362)
.BottomMargin = Application.InchesToPoints(1.37795275590551)
.HeaderMargin = Application.InchesToPoints(0)
.FooterMargin = Application.InchesToPoints(0.393700787401575)
.Orientation = xlPortrait
.PaperSize = xlPaperA4
End With
With wks
lngR = IIf(IsEmpty(.Range("A200")), .Range("A200").End(xlUp).Row, 200)
.Cells.PageBreak = xlPageBreakNone 'Seitenumbrüche löschen
.PageSetup.PrintArea = "" 'Druckbereich löschen
.PageSetup.PrintArea = "A1:I" & lngR + 2 'Druckbereich setzen,letzte Spalte anpassen und 2 Leerzeilen
End With
Range("A8").Select
ActiveSheet.DisplayAutomaticPageBreaks = False
Application.ScreenUpdating = True
End Sub