Hallo,
ich lasse mir in meinem aktuellen Projekt jeweils die erste Zeile einer neuen Seite mit folgendem Makro ausgeben:
For Each rng In wsVorlage.Range("A25:A" & j)
If rng.EntireRow.PageBreak xlPageBreakNone Then
i = rng.Row
End If
Next rng
Das funktioniert auch wunderbar, nur kann ich mir dadurch leider nicht die letzte Zeile, nach der der Druckbereich endet ausgeben lassen. Da ich auf jede Seite aber in die letzte Zeile quasi meine Fußnote kopieren muss, brauche ich natürlich auch die allerletzte Zeile des Druckbereichs.
Und nein, über die Fußnote von Excel geht es nicht, weil das einfach ein Krampf ist :)
Ich hoffe sehr dass ihr mir helfen könnt, vielen Dank schon mal im Voraus.