ник: Lukas
Можно по номеру в коллекции:
Section(0)-область данных, например.
Можно прописать на открытии отчета :
Private Sub Report_Open(Cancel As Integer)
'Здесь убрал
Dim i As Integer
With Me
For i = 0 To Максимум секций в отчете' Здесь подправил.
.Section(i).OnFormat = "=funFormat(Report, " & i & ")"
Next i
End With
End Sub
|
Или вызывать внешнюю функцию, которая сделает то-же самое.
А в общем модуле что-то типа:
Public Function funFormat(rpt As Report, i As Integer)
Debug.Print "formatting " & rpt.Name & " Section " & rpt.Section(i).Name
End Function
|
В итоге: в фунции funFormat мы будем иметь и ссылку на отчет, и индекс форматируемой секции.
То есть, не нужно в каждой секции каждого отчета прописывать код.