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