Zur Hauptseite ... Zum Onlinearchiv ... Zum Abonnement ... Zum Newsletter ... Zu den Tools ... Zum Impressum ... Zum Login ...

Anzahl der Datenstze je Seite festlegen

Nicht immer sollen Berichte so viele Datenstze 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.

Fgen 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 berprft, ob die maximale Anzahl von Datenstzen 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 Datenstze pro Seite an.

© 2003-2015 André Minhorst Alle Rechte vorbehalten.