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

Private Sub НижнийКолонтитул_Format(Cancel As Integer, FormatCount As Integer)
    If Me.Page = Me.Pages Then
        Me!СуммаПоле.Properties( "Visible" ) = False
        Me!Pod1.Properties( "Visible" ) = False
        Me!Pod2.Properties( "Visible" ) = False
    Else
        Me!СуммаПоле.Properties( "Visible" ) = True
    End If
End Sub


Private Sub ОбластьДанных_Print(Cancel As Integer, PrintCount As Integer)
   
    
    Me!СуммаПоле= Me!СуммаПоле+ Me!Лимит 'лимит - поле, которое нужно суммировать
   
End Sub