Clever-Excel-Forum

Hallo,

wie kann ich an meine angehängte Excel Test Datei einen VBA Code für eine Seitenansicht Formatierung im Querformat DinA4 erstellen. Für den Bereich E2:R51

und mir auf jede Seite als Seitenkopf E2:R2 gedruckt wird gut wäre es auch noch wenn ich einen Seitenumbruch einfügen könnte

z.B. bei Zeile 29 (E29:R29) und Zeile 43 (E43:R43) beginnend und als Seitenkopf jeweils E2:R51

wäre super wenn mir jemand helfen könnte.

Hallo Karl,

hab mal kurz gegoogelt und auf Anhieb so etwas gefunden, was zumindest die Einstellung auf das Querformat und Seitenränder regelt. Die anderen Dinge, wie Seitenumbruch etc. findest Du leicht auch noch. Wenn es dann nicht funktioniert, stelle Deine Datei noch einmal ins Forum, dann gibt es sicherlich Spezialisten, die Dir helfen können.

Code:
With ActiveSheet.PageSetup

        .Orientation = xlLandscape

        .TopMargin = Application.CentimetersToPoints(1.5)

        .BottomMargin = Application.CentimetersToPoints(1.2)

        .LeftMargin = Application.CentimetersToPoints(0)

        .RightMargin = Application.CentimetersToPoints(0)

        .Zoom = 85

        .CenterHorizontally = True

        .PrintArea = ActiveSheet.UsedRange.Address

    End With

Grüße
Norbert

karl1965

NobX