VBA - Seitenlayout steuern ist sehr langsam
30.09.2005 21:06:22
joko0803
könnt ihr mir bei meinem Problem helfen?
Ich habe einen VBA-Code, der das Drucklayout steuert. Die Makros in denen das eingebaut ist flutschen nur so. Allerdings die Steuerung des Layouts je Tabellenblatt ... und das sind bis zu 100 Sheets, dauert einfach ewig.
Ob ich hier vielleicht was besser machen kann?
Wäre schön wenn sich jemand zu diesem Thema äußern könnte.
Gruß
John
Hier der Code:
Sub Makro1()
With ActiveSheet.PageSetup
.CenterFooter = "&8Seite&P von &N"
.LeftMargin = Application.InchesToPoints(0.78740157480315)
.RightMargin = Application.InchesToPoints(0.78740157480315)
.TopMargin = Application.InchesToPoints(0.984251968503937)
.BottomMargin = Application.InchesToPoints(0.984251968503937)
.HeaderMargin = Application.InchesToPoints(0.511811023622047)
.FooterMargin = Application.InchesToPoints(0.511811023622047)
.CenterHorizontally = True
.Orientation = xlPortrait
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Zoom = 100
End With
End Sub