ich möchte in einer Tabelle einen Druckbereich mit mehreren Seitenumbrüchen einfügen. Der Seitenumbruch soll alle 10 Zeilen eingefügt werden. Dazu habe ich folgenden Code:
Shift=10
'================= Druckbereich
Tabelle14.PageSetup.PrintArea = "$A$" & 15 & ":$EC$" & 15 + Shift * 34
'================= Seitenumbruch einfügen
For jLauf = 1 To 34
Tabelle14.HPageBreaks.Add Cells(14 + Shift * jLauf, 1)
Next jLauf
leider funktioniert der zweite Teil nicht. D.h. es wird zwar ein Druckbereich eingefügt, aber keine Seitenumbrüche.
Mir ist absolut nicht klar, wieso das nicht funktioniert.
Für Hinweise wäre ich sehr dankbar.
Viele Grüße
Peter