АнПопробуй сделать следующее:

1. Создай поле в области нижнего колонтитула, например ПолеСумма.

2. На событие Печать(OnPrint) верхнего колонтитула повесь процедуру:

Private Sub ВерхнийКолонтитул_Print(Cancel As Integer, PrintCount As Integer)
Me!ПолеСумма = 0
End Sub

3. На событие Печать(Print) в области данных повесь процедуру:

Private Sub ОбластьДанных_Print(Cancel As Integer, PrintCount As Integer)
If PrintCount = 1 Then
Me!ПолеСумма = Me!ПолеСумма + Me!ЧтоСуммировать
End If
End Sub
Да это правильный вариант я уже попробовал у меня получился