Private Sub PageFooter_Format(Cancel As Integer, FormatCount As Integer) Me.SumaS = ZbirS End Sub