Процедура обработки события Форматирование верхнего колонтитула
Private Sub PageHeader()_Format(Cancel As Integer,_
FormatCount As Integer)
Dim intx As Integer
' Помещает заголовки столбцов в поля в верхнем колонтитуле.
Me("Head" + Format(0)) = rstReport(0).Name
For intX = 1 To intColumnCount - 1
Me("Head" + Format(intX)) =_
MonthRus(CInt(rstReport(intX).Name))
Next intX
' Вводит в ближайшее свободное поле заголовок "Итого".
Me("Head" + Format(intColumnCount)) = "Итого"
' Скрывает пустые поля в верхнем колонтитуле.
For intX = (intColumnCount +1) То conTotalColumns - 1
Me("Head" + Format(intX)).Visible = False
Next intX
End Sub
В этой процедуре используется функция MonthRus, которая по порядковому номеру месяца выдает его название. Мы здесь не приводим текста этой функции, надеясь, что вы сможете написать ее сами conTotalColumns — константа, которая описана на уровне модуля и значение которой определяет максимальное число столбцов в отчете. В данном примере conTotalColumns равна 14.
