Neue Zeilen einfügen bis neuer Seitenumbruch
Stefan
Ich habe wieder einmal ein Problem mit dem Seitenumbruch:
In meiner Liste müssen ab der 8-untersten Zeile so viele Leerzeilen eingefügt werden bis ein neuer Seitenumbruch gesetzt wird (damit die Seite ganz gefüllt wird), dabei darf aber keine neue Seite angefangen werden.
Das bestehende Makro setzt die unterste Zeile aber immer auf eine neue Seite. Ich weiss nicht was ich falsch mache:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim LetzteZeile As Long
With ActiveSheet
LetzteZeile = .Cells(.Rows.Count, 1).End(xlUp).Row
'Position letzter Seitenwechsel prüfen
If .HPageBreaks(.HPageBreaks.Count).Location.Row Gruss
Stefan
Muster-Datei: https://www.herber.de/bbs/user/71098.xls
Anzeige