Anzahl der Datensätze je Seite festlegen

Nicht immer sollen Berichte so viele Datensätze je Seite anzeigen, wie auf die Seite passen. Im vorliegenden Beitrag erfahren Sie, wie Sie nur eine bestimmte Anzahl pro Berichtsseite anzeigen. Dazu sind lediglich einige VBA-Anweisungen erforderlich.

Fügen Sie dem Modul des Berichts eine neue Variable namens AnzahlSeiten hinzu:

Dim AnzahlSeiten As Integer

Diese Anzahl wird beim Öffnen des Berichts initialisiert:

Private Sub Report_Open(Cancel As Integer)

AnzahlDatensaetze = 0

End Sub

Beim Formatieren des Detailbereichs wird überprüft, ob die maximale Anzahl von Datensätzen je Seite bereits erreicht ist und gegebenenfalls ein Seitenumbruch eingeleitet:

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

AnzahlDatensaetze = AnzahlDatensaetze + 1

If AnzahlDatensaetze = 10 Then

Me.Section("Detailbereich").ForceNewPage = 1

Else

Me.Section("Detailbereich").ForceNewPage = 0

End If

End Sub

Beim Anlegen der neuenSeite wird die Zahl der Seiten wieder auf 0 gesetzt:

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

AnzahlDatensaetze = 0

End Sub

Der Bericht zeigt - in diesem Beispiel - je zehn Datensätze pro Seite an.