Есть у меня репорт, который наряду с данными рисует еще и формулу (самодельной процедурой). Схема отчета в общих чертах такая:
- Код: Выделить всё
...
Private Sub ActiveReport_FetchData(EOF As Boolean)
...
Me.Fields("Formula").Value = GetFormula(...)
End Sub
Private Sub Detail_Format()
...
F = Me.Fields("Formula").Value
With Me.Canvas
.PenWidth = 2
...
.DrawText ...
...
End With
End Sub
...
Каждая запись начинается с нового листа (свойство Detail.NewPage=ddNPBefore).
Когда печатается несколько листов, наблюдается такая картина.
Поля (Field) печатаются правильно, на каждой странице свои значения (правильные). А вот формула выводится странно -- на первом листе выводится формула для первой и второй записи (накладываясь друг на друга), на втором листе выводится формула третьей записи, на третьем листе формула четвертой записи и т.п., на последнем листе формула не выводится.
Видимо неправильно я формулу рисую. А как надо?
