Wie kann ich über ein Makro eine Zwischensumme je Seite in einen Bericht einfügen?

Das Makro zur Berechnung einer Seitensumme

In einem Bericht ist es zwar möglich, Zwischensummen über numerische Felder für eine Gruppe (über die Funktion =Summe(Feldname)) festzulegen und eine ebensolche Summenfunktion in den Berichtsfuß einzutragen, eine Summenfunktion im Seitenfuß wird jedoch zu einem Fehler führen. Hier können stattdessen zwei Makros auf folgende Art eingesetzt werden.