Seitenumbruch per VBA

Wenn Sie einen Bericht beispielsweise nach einer bestimmten Anzahl von Datensätzen auf der nächsten Seite fortsetzen möchten, müssen Sie ein Seitenumbruch-Steuerelement an der gewünschten Stelle einfügen und dieses per VBA zur richtigen Zeit sichtbar machen.

Einfügen des Seitenumbruch-Steuerelements

Das Seitenumbruch-Steuerelement finden Sie in der Toolbox. Klicken Sie einfach zuerst auf das entsprechende Symbol und anschließend auf die Stelle im Bericht, an der die Seite enden soll (siehe Abbildung 1).

Abbildung 1: Einfügen eines Seitenumbruch-Steuerelements

Aktivieren des Seitenumbruchs per VBA

Wenn Sie beispielsweise alle zehn Datensätze einen Seitenumbruch erzwingen möchten, können Sie folgende Prozeduren verwenden. Zunächst deklarieren Sie im Kopf des Klassenmoduls des Berichts eine Variable namens intZaehler.

Diese wird beim Ereignis Beim Öffnen des Berichts auf den Wert 1 eingestellt.

Der Zähler wird bei jedem Eintreten des Ereignisses Beim Formatieren des Detailbereichs um eins erhöht. Wenn der Wert kleiner oder gleich zehn ist, bleibt das Seitenumbruch-Steuerelement unsichtbar. Falls er größer als zehn ist, wird die Eigenschaft Sichtbar des Steuerelements auf den Wert Wahr eingestellt.

Im anschließend ausgelösten Ereignis Bei Seite wird der Zähler wieder auf den Wert 1 eingestellt, damit er erneut durchlaufen werden kann.

Dim intZaehler As Integer

Private Sub Detailbereich_Format(Cancel As Integer, FormatCount As Integer)

If intZaehler > 5 Then

Me.Seitenumbruch.Visible = True

Else

Me.Seitenumbruch.Visible = False

End If

intZaehler = intZaehler + 1

End Sub

Private Sub Report_Open(Cancel As Integer)

intZaehler = 1

End Sub

Private Sub Report_Page()

intZaehler = 1

End Sub