PageSetup, Seite einrichten
14.05.2003 12: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