PageSetup, Seite einrichten
14.05.2003 10:28:53
Berns Kaiser
z.B.:
With ActiveSheet.PageSetup
.PrintArea = "$A$1:$AS$24"
.Orientation = xlLandscape
.Zoom = 100
.LeftHeader = "mein excel blatt"
.LeftFooter = "&F" & Chr(10) & "&D"
.CenterFooter = "&A"
.RightFooter = "Seite &P von &N"
End With
aktualisiert Excel nach jeder einzelnen Änderung den Blattaufbau was dazu führt, daß der oben angef. Programmausschnitt ewig lange Zeit benötigt.
Hat jemand eine Lösung den Vorgang zu beschleunigen?
Anzeige