ich würde gerne auf einer Seite per VBA den Druckbereich einstellen.
Leider haut das mit dem Makrorecorder nicht hin und sooo fit bin ich leider NOCH nicht in VBA.
"Wunsch":
-Druckbereich VPageBreak soll: A-C Drucken
-1. HPageBreak bei A19 (immer)
-2. HPageBreak bei A40 (dynamisch)
-3. HPageBreak bei Axx (dynamisch)
...
- bzw. abhänig von einer Range, die dynamisch in Bezug auf, was auf der "Druckseite" steht zugewiesen wird.
- Anforderung: zwischen den HPageBreaks dürfen nur max. 40 Zeilen liegen, sonst fange neues Blatt an
z.b. A40= 1 -> Auf neue Seite
z.b. A60= 2 -> Auf neue Seite
z.b. A110= 3 -> Auf neue Seite, Verstoß gegen Regel, dass nur 40 Zeilen dazwischen liegen dürfen: Gehe zu Zeile A60+40, schaue Inhalt (z.b. 3.3.5), gehe zu (Oberkategoriepunkt) 3.3., setze vor 3.3 HPageBreak -> Auf neue Seite
z.b. A130 = 4 -> Auf neue Seite
kläglicher Versuch mit Makrorecorder Syntax zu lernen und umzusetzen gescheitert....
Nur 1. HPageBreak klappt....
Sub druckbereich()
ActiveWindow.View = xlPageBreakPreview
ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
Set ActiveSheet.HPageBreaks(1).Location = Range("A19")
End Sub
Gruß+1000 Dank,Alex