Sie wollen einer Seite gewisse Parameter mitgeben, damit diese optimal gedruckt wird.
Programmzeilen zum kopieren:
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$3"
.CenterFooter = "&8Seite &P von &N"
.LeftMargin = Application.InchesToPoints(0.196850393700787)
.RightMargin = Application.InchesToPoints(0.196850393700787)
.TopMargin = Application.InchesToPoints(0.393700787401575)
.BottomMargin = Application.InchesToPoints(0.393700787401575)
.HeaderMargin = Application.InchesToPoints(0.196850393700787)
.FooterMargin = Application.InchesToPoints(0.196850393700787)
.Orientation = xlLandscape
.Zoom = 85
End With
Die Zeilen 1 bis 3 werden auf jeder Seite gedruckt
.PrintTitleRows = "$1:$3"
Die mittlere Fussnote wird ausgegeben mit z.B.: Seite 1 von 12 in Schriftgrösse 8
.CenterFooter = "&8Seite &P von &N"
Der linke Seitenrand ist 0.5cm
.LeftMargin = Application.InchesToPoints(0.196850393700787)
Der rechte Seitenrand ist 0.5cm
.RightMargin = Application.InchesToPoints(0.196850393700787)
Der Rand im Kopf beträgt 1.0cm
.TopMargin = Application.InchesToPoints(0.393700787401575)
Der Rand im Fuss beträgt 1.0cm
.BottomMargin = Application.InchesToPoints(0.393700787401575)
Die Kopfzeile hat 0.5cm
.HeaderMargin = Application.InchesToPoints(0.196850393700787)
Die Fusszeile hat 0.5cm
.FooterMargin = Application.InchesToPoints(0.196850393700787)
Die Seite hat Querformat (bei Hochformat diese Zeile löschen)
.Orientation = xlLandscape
Die Seite wird auf 85% verkleinert
.Zoom = 85
