Hallo.
In meinem Bericht habe ich einen Gruppen- und Berichtsfuß, welchen ich je nach Bedarf ein- bzw. ausblende.
(in dem Ereignis:)
Private Sub Gruppenfuß6_Format(Cancel As Integer, FormatCount As Integer)
Cancel = p_bolGeszusamm 'Je nach Bedarf True oder False
...
End Sub
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:
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
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
Habe eine Möglichkeit gefunden.
So wie es aussieht, war ich im falschen Ereignis.
Habe in dem Gruppenfuß, welcher davor ist, folgenden Code geschrieben:
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) ;)