レポートのページ毎小計

レポート上にある数字をページ毎に小計を出すプロシージャです。 ページヘッダーの "OnFormat/フォーマット時" と詳細セクションの "OnPrint/印刷時" にプロシージャが記述されています。

Option Compare Database Dim psum As Long '---------------------------------------------------------------- Private Sub ページフッターセクション_Format(Cancel As Integer, FormatCount As Integer) Me!ページ計 = psum psum = 0 End Sub '---------------------------------------------------------------- Private Sub 詳細_Print(Cancel As Integer, PrintCount As Integer) psum = psum + Me!数字 End Sub