Code beschleunigen?
29.02.2004 11:39:35
Erich M.
habe mit Hilfe des Forums einen code für meine "PERSONL.XLS" erstellt, der
dazu dient, dass ich die Druckvorschau per Makro initialisiere. Allerdings
dauert das bis zur Erstellung der Vorschau "recht lange". Kann man das
beschleunigen, bzw. mach ich da was falsch?
Option Explicit
Sub Vorschau2()
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0.78740157480315)
.RightMargin = Application.InchesToPoints(0.590551181102362)
.TopMargin = Application.InchesToPoints(0.590551181102362)
.BottomMargin = Application.InchesToPoints(0.590551181102362)
.HeaderMargin = Application.InchesToPoints(0.31496062992126)
.FooterMargin = Application.InchesToPoints(0.31496062992126)
.Orientation = xlLandscape
.LeftHeader = "Datei: &F.xls, Tabelle: &A"
.CenterHeader = ""
.RightHeader = "Ausdruck vom: &D"
.LeftFooter = ""
.CenterFooter = "Seite &P von " & "&N Seiten"
.RightFooter = ""
End With
Selection.PrintOut Copies:=1, Preview:=True
End Sub
Code eingefügt mit: Excel Code Jeanie
Besten Dank für eine Info!
mfg
Erich