Berichte wirken in einigen Fällen übersichtlicher, wenn die einzelnen Datensätze seitenweise durchnumeriert sind.
Verwenden Sie einen Zähler, um diese Numerierung durchzuführen.
Erstellen Sie im Detailbereich ein Textfeld namens txtDatensatznummer. Damit das Feld bei jedem Datensatz um den Wert 1 erhöht wird, legen Sie für den Detailbereich die folgende Beim Drucken-Ereignisprozedur an:
Private Sub Detailbereich_Print(Cancel As Integer, PrintCount As Integer)
If PrintCount = 1 Then txtDatensatznummer = txtDatensatznummer + 1
End Sub
Damit der Zähler bei jeder neuen Seite mit dem Wert 1 beginnt, legen Sie für den Seitenkopf ebenfalls eine Beim Drucken-Ereignisprozedur an:
Private Sub Seitenkopf_Print(Cancel As Integer, PrintCount As Integer)
txtDatensatznummer = 0
End Sub
Wenn Sie lediglich die Anzahl der Datensätze pro Seite im Berichtsfuß ausgedruckt haben möchten, verschieben Sie das Textfeld txtDatensatznummer einfach ein den Fußbereich.