Druckbereich festlegen
23.03.2016 20:56:38
Alexander
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
Alex