Настольная СУБД 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).

Содержание    Назад    Вперед