Zwischensummen ziehen in mehrseitigen Rechnungen

Bei mehrseitigen Rechnungen behalten Sie den ▄berblick durch eine Zwischensumme der einzelnen Positionen am Seitenende. Solche Summen gibt das Ereignis ╗Drucken½ aus. Grundlage dafⁿr ist ein Textfeld namens ╗ZwischSumme½, das Sie im Seitenfu▀ platzieren. Dort erscheint spΣter die Zwischensumme. Alles Weitere wird von zwei Ereignisprozeduren erledigt, von denen die erste an die Ereigniseigenschaft ╗BeimDrucken½ des Seitenkopfes gebunden ist: 

Private Sub Seitenkopf0_Print(

 (Cancel _ As Integer, Print(

Count As Integer)

Me!ZwischSumme = 0

End Sub
Diese Prozedur initialisiert das Feld ╗ZwischSumme½ fⁿr jede neue Seite mit dem Wert ╗0½. Die zweite Prozedur ist an das Ereignis ╗BeimDrucken½ des Datailbereichs gebunden: 
Private Sub Detail1_Print(

 (Cancel _ As Integer, Print(

Count As Integer)

If PrintCount = 1 Then

Me!ZwischSumme = Me!ZwischSum(

me + _Me!Gesamtpreis

End If

End Sub
Die Prozedur erh÷ht bei jedem Datensatz die Zwischensumme um den Betrag der aktuellen Rechnungsposition (im aktuellen Beispiel ╗Gesamtpreis½). Davor wird die Eigenschaft ╗PrintCount½ auf den Wert ╗1½ untersucht. Das ist n÷tig, weil Access das Print- Ereignis bei Rechnungspositionen ⁿber mehrere Seiten auch mehrmals aufruft. Die Eigenschaft ╗PrintCount½ gibt an, wie oft das Ereignis fⁿr den aktuellen Bereich bereits aufgerufen wurde. Damit Access bestimmte Positionen nicht mehrfach addiert, darf die Berechnung nur beim Auftreten des ersten Ereignisses erfolgen.