18. У меня в отчете несколько листов. Приходится общую сумму листа считать вручную. Общую сумму отчета делать умею, но вот каждого листа в отдельности нет. Этот небольшой пример решает такую задачу.
Private sumPage As Currency, strMsg As String
Private Sub ОбластьДанных_Format(Cancel As Integer, FormatCount As Integer)
sumPage = Me.Цена.Value + sumPage
strMsg = strMsg Me.Пункт ". " Me.Цена.Value vbNewLine
End Sub
Private Sub НижнийКолонтитул_Format(Cancel As Integer, FormatCount As Integer)
Me.PageИтого.Value = sumPage
MsgBox strMsg
sumPage = 0
strMsg = ""
End Sub