Gruppenfuß: Neue Seite "Vor Bereich" mittels VBA

[trebuh]

Hallo.

In meinem Bericht habe ich einen Gruppen- und Berichtsfuß, welchen ich je nach Bedarf ein- bzw. ausblende.
(in dem Ereignis:)

Code [Auswählen] Erweitern

Private Sub Gruppenfuß6_Format(Cancel As Integer, FormatCount As Integer)
Cancel = p_bolGeszusamm    'Je nach Bedarf True oder False
...
End Sub

Code [Auswählen] Erweitern

Private Sub Berichtsfuß_Format(Cancel As Integer, FormatCount As Integer)

    Cancel = p_bolGeszusamm
...
End Sub

Nun habe ich zuerst bei dem besagten Gruppenfuß im Formateigenschaftsblatt das Feld "Neue Seite" auf "Vor Bereich" eingestellt.

Das hatte aber zur folge, dass wenn ich den besagten Gruppenfuß ausgeblendet habe (Cancel=true) ich im Bericht eine leere Seite hatte.

Nun dachte ich, ich mache es über VBA mittels:

Code [Auswählen] Erweitern

Private Sub Gruppenfuß6_Format(Cancel As Integer, FormatCount As Integer)
Cancel = p_bolGeszusamm
Me.Gruppenfuß6.ForceNewPage = 1
...

End Sub


Nur da passiert nichts.  Der Gruppenfuß beginnt nicht auf einer neuen Seite.

Habe es dann mal statt "Vor Bereich" mit "Nach Bereich" versucht, weil ja der Berichtsfuß mit dem Gruppenfuß ausgegeben wird. Also mit

Code [Auswählen] Erweitern

Private Sub Gruppenfuß6_Format(Cancel As Integer, FormatCount As Integer)
Cancel = p_bolGeszusamm
Me.Gruppenfuß6.ForceNewPage = 2
...
End Sub
Da wir dann nach dem Gruppenfuß eine neue Seite gemacht (Auf dem der Berichtsfuß erscheint)

Wieso klappt das mit dem "Vor Bereich" nicht? Was mache ich falsch.

Gruß Hubert

[trebuh]

Habe eine Möglichkeit gefunden.
So wie es aussieht, war ich im falschen Ereignis.

Habe in dem Gruppenfuß, welcher davor ist, folgenden Code geschrieben:

Code [Auswählen] Erweitern

Private Sub Gruppenfuß5_Print(Cancel As Integer, PrintCount As Integer)

If p_bolGeszusamm = False Then Me.Gruppenfuß6.ForceNewPage = 1

End Sub 

Funktioniert (Mal sehen wie lange)