Automatischer Seitenumbruch wird übersprungen
Jens
ich habe mal wieder ein Problem, was mich schier wahnsinnig macht.
Vor dem Drucken einer Tabelle kann ich nach verschiedenen Zeilen einen Seitenumbruch erzwingen. Das funzt wunderbar.
Es gibt aber auch Zeilen, die ich beim Drucken nicht voneinander trennen möchte. Deshalb wird der Seitenumbruch automatisch vor die betreffenden Zeilen gesetzt. An sich funzt das auch - nur hier mein Problem:
Das folgende Makro sucht nach den Zeilen, die nicht getrennt werden dürfen und verschiebt den Seitenumbruch (am Beispiel Zeile 512-516, mit der var umbruch erreiche ich später eine variable fußzeile). Der automatische Seitenumbruch ist vor Ausführung des Makros in Zeile 514.
Sub auto_umbruch()
'seitenumbrüche ermitteln
Dim umbruch As Integer
Dim HPB As HPageBreak
Application.ScreenUpdating = False
Range("O2:O50").Select
Selection.ClearContents
Sheets("Druckansicht").DisplayAutomaticPageBreaks = True
With Sheets("Druckansicht")
umbruch = 2
For Each HPB In .HPageBreaks
If HPB.Location.Row > 512 And HPB.Location.Row
Sub
In diesem Szenario funzt es wunderbar: Bevor ich dieses Makro starte gehe ich kurz in die _
Seitenansicht und schließe sie gleich wieder. Alles schick!
Mit "Sheets("Druckansicht").DisplayAutomaticPageBreaks = True" wollte ich die Seitenansicht _
ersetzen. Trotzdem geht es nicht. In der Normalansicht wird mir der Seitenumbruch angezeigt mit den üblichen kurzen Strichen (nicht die längeren Striche für den manuellen Umbruch). Aber es passiert nichts.
Wenn die Werte der Variable "HPB.Location.Row" analysiere (Makro mit F8 prüfen) wird der _
automatische Umbruch in Zeile 514 überhaupt nicht berücksichtigt. Es wird nur der vorherige und nachfolgende Umbruch (beide manuell) durchlaufen. Scheinbar wird die Seite übersprungen.
Gibt es denn einen anderen Befehl, der alle automatischen und manuellen Seitenumbrüche _
berechnet - also genau das was die Seitenansicht macht...?
Vielen Dank für Eure Hilfe.
Jens