Druckmakro dauert viel zu lang?

vielen Dank im voraus
wolfgang

ActiveSheet.Range("AUSDRUCK1").Select
ActiveSheet.PageSetup.PrintArea = "Ausdruck1" '[AUSDRUCK1]
If FmDrucken.OptionBQuer = True Then
With ActiveSheet.PageSetup
'Wiederholungszeile festlegen
.PrintTitleRows = "$10:$14" ' & ile & ":$" & zeile - 2
.CenterFooter = "Seite &P"
.LeftFooter = "Reisekostenabrechnung"
.RightFooter = "&D" '& S "Seiten"
.LeftMargin = Application.InchesToPoints(0.47244094488189)
.RightMargin = Application.InchesToPoints(0.47244094488189)
.TopMargin = Application.InchesToPoints(0.590551181102362)
.BottomMargin = Application.InchesToPoints(0.511811023622047)
.HeaderMargin = Application.InchesToPoints(5.74803149606299)
.FooterMargin = Application.InchesToPoints(0.196850393700787)
.Orientation = xlLandscape
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Zoom = False
.FitToPagesWide = 2
.FitToPagesTall = 59
End With
seitenzahl = ExecuteExcel4Macro("Get.Document(50)")
endif
'Selection.PrintOut 'Copies:=1
Selection.PrintPreview