Как посчитать сумму столбца в отчете на каждой странице

Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)
'Событие форматирования Заголовка страницы (Верхний Колонтитул)
'--------------------------------------------------------------------
    Me!fldPageSum = 0 'Поле "Итого по странице"
End Sub

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
'Событие печати блока деталей отчета
'--------------------------------------------------------------------
    If PrintCount = 1 Then
        'Последовательно прибавляем сумму в каждой строке к сумме по странице
        Me!fldPageSum = Me!fldPageSum + Me!fldTotal
    End If
End Sub

Может выглядеть примерно так: