จากตัวอย่างที่อาจารย์เคยให้แหละครับ (คือผมก็ได้ใช้เหมือนกัน แต่ก็ไม่เข้าใจในตัว code น่ะครับ)

รบกวนอาจารย์ช่วยอธิบายหน่อยนะครับ

Option Compare Database
Option Explicit
Dim x As Double

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If TheCounter Mod 5 = 0 Then
Me.PageBreak.Visible = True
Else
Me.PageBreak.Visible = False
End If

Me.PreviousSum = PageSum

End Sub

Private Sub PageFooter_Print(Cancel As Integer, PrintCount As Integer)

PageSum = RunSum - x
x = RunSum
Me.ShowPreviousSum = Me.PreviousSum
End Sub