Warum dauert der Code solange?

Hallo@all,
folgender Code legt Druckbereich etc fest und dauert laaaanggeee:

With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "&""Arial,Fett""&22&A"
.RightHeader = ""
.LeftFooter = "xyz"
.CenterFooter = ""
.RightFooter = "&D"
.LeftMargin = Application.InchesToPoints(0.787401575)
.RightMargin = Application.InchesToPoints(0.787401575)
.TopMargin = Application.InchesToPoints(0.984251969)
.BottomMargin = Application.InchesToPoints(0.984251969)
.HeaderMargin = Application.InchesToPoints(0.4921259845)
.FooterMargin = Application.InchesToPoints(0.4921259845)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 56
.PrintErrors = xlPrintErrorsDisplayed
End With
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "&""Arial,Fett""&22&A"
.RightHeader = ""
.LeftFooter = "&12"
.CenterFooter = ""
.RightFooter = "&12&D"
.LeftMargin = Application.InchesToPoints(0.787401575)
.RightMargin = Application.InchesToPoints(0.787401575)
.TopMargin = Application.InchesToPoints(0.984251969)
.BottomMargin = Application.InchesToPoints(0.984251969)
.HeaderMargin = Application.InchesToPoints(0.4921259845)
.FooterMargin = Application.InchesToPoints(0.4921259845)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 56
.PrintErrors = xlPrintErrorsDisplayed
End With
ActiveWindow.SelectedSheets.PrintPreview

Warum dauert der Code so ewig?
(Makrorec)
Gruß
Michael

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Michael,

der Zugriff auf das PageSetup - Objekt ist sehr langsam. Wenn ich mich recht entsinne, waren es speziell die Header und Footer - Texte.

Wie dem auch sei, hier ein Code-Ausschnitt:

ExecuteExcel4Macro ("PAGE.SETUP(""&L&""""Arial""""&8" & strZeile & " &B&A"", " & _
"""&L&""""Arial""""&8" & strFullname & _
"&R&""""Arial""""&8&P / &N - " & Format(Now, "dd.MM.yyyy"" - ""hh:mm") & _
""", , " & Str(0.4 / 2.54) & _
", " & Str(1.7 / 2.54) & _
", " & Str(2.2 / 2.54) & _
", , , , , , , , , , , " & _
", " & Str(1 / 2.54) & _
", " & Str(1.5 / 2.54) & ")")

PAGE.SETUP hat unterschiedliche Parameter für Tabellenbätter und Diagramme. Die Parameter sind in einer Hilfedatei mit Namen MacroFun.hlp beschrieben (Google Macrofun.hlp oder *.zip). Einen Haken hat die Sache noch: der mit ExecuteExcel4Macro übergebene Text (Excel4-Makro) darf nicht länger als 255 Zeichen sein bzw. wird abgeschnitten.

aus dieser Hilfe-Datei:

Worksheets and macro sheets
PAGE.SETUP(head, foot, left, right, top, bot, hdng, grid, h_cntr, v_cntr, orient, paper_size, scale, pg_num, pg_order, bw_cells, quality, head_margin, foot_margin, notes, draft)

Ciao

der Bärnd

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread