Kopf, Fusszeile - Schnelligkeit
13.10.2003 07:06:28
Erich M.
habe mir aus der Recherche bzw. dem Forum ein Makro
für den Ausdruck gebastelt, bei dem immer die Kopf-
und Fusszeilen eingestellt werden. Hintergrund ist,
dass durch die Nutzung verschiedener Dateien die
Einstellung immer wieder geändert wird.
Dabei wähle ich vor dem Ausdruck die Vorschau,
damit ich das Layout ggfls. anpassen kann.
Das Makro läuft soweit;
aber die Erstellung der Seitenvorschau dauert
eigentlich sehr (ungewohnt) lange; ist da meine Lösung
nicht optimal?:
Sub Vorschau()
With ActiveSheet.PageSetup
'' Left=Links; Center=Mitte; Right=Rechts
'' Header=Kopfzeile; Footer=Fußzeile
'' Kopfzeile Links
.LeftHeader = "" 'ThisWorkbook.Path & "\" '(nur Phad)
'' Kopfzeile Mitte
.CenterHeader = "Seite &P von" & Chr(13) & "&N Seiten"
'' Kopfzeile Rechts
.RightHeader = "" 'ThisWorkbook.Path & "\" '(nur Phad)
'' Fußzeile Links
.LeftFooter = "" 'ActiveWorkbook.FullName & "\" & ActiveSheet.Name '(Komplette Dateiname einschl. Phad + Register)
'' Fußzeile Mitte
.CenterFooter = "" 'ActiveWorkbook.FullName & "\" & ActiveSheet.Name '(Komplette Dateiname einschl. Phad + Register)
'' Fußzeile Rechts
.RightFooter = "" 'ActiveWorkbook.FullName & "\" & ActiveSheet.Name '(Komplette Dateiname einschl. Phad + Register)
End With
Selection.PrintOut Copies:=1, Preview:=True
End Sub
Besten Dank für eine Hilfe!
mfg
Erich