Настольная СУБД Access 2002
Cancel As Integer, PrintCount As
Листинг 13.3. Процедура обработки события Печать области данных
Private Sub Detaill_Print( Cancel As Integer, PrintCount As Integer)
Dim intX As Integer
Dim IngRowTotal As Long
' Вычисляет сумму по строке и добавляет ее к итоговому значению. ' по столбцу и общему итогу
If Me.PrintCount = 1 Then IngRowTotal = 0
For intX = 1 To intColumnCount - 1
' Начиная со столбца 1 (первый столбец с перекрестными
' значениями), вычисляет сумму по строке.
lngRowTotal = IngRowTotal + Me("Col" + Format(intX))
' Добавляет итоговое значение для текущего столбца.
IngRgColurenTotal(intX) = IngRgColumnTotal(intX) +_
Me ("Col" + Format(intX))
Next intX
' Заносит сумму по строке в поле в области данных. Me("Col" + Format(intColumnCount)) = IngRowTotal
' Прибавляет сумму по строке к общему итогу.
IngReportTotal = IngReportTotal + IngRowTotal
End If
End Sub
Процедура обработки события Печать (On Print) примечания отчета должна заполнить поля примечания итоговыми значениями по столбцам из массива IngRgColumnTotal (листинг 13.4).
