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
|
|