Druckvorschau
07.03.2004 11:16:35
Erich M.
ich habe einen code erstellt, der mir für einen Druck immer zuerst das
Seitenlayout nach bestimmten Kriterien erstellt. Nun versuche ich vergebens,
trotz mehrmaliger Aufzeichnung mit Makrorecorder, den Befehl zu finden,
der in dem Layout die "Ränder" einzeichnet/markiert (damit können leichter
die Ränder verschoben werden) - allerdings umsonst; kann es wirklich sein,
dass es dafür keinen Code gibt?:
Sub Vorschau_hoch()
With ActiveSheet.PageSetup
.TopMargin = Application.InchesToPoints(0.7)
.HeaderMargin = Application.InchesToPoints(0.45)
.RightMargin = Application.InchesToPoints(0.4)
.BottomMargin = Application.InchesToPoints(0.81)
.Orientation = xlPortrait
.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
Besten Dank für eine Hilfe!
mfg
Erich
Anzeige