Привет!
Недавно начал разбираться с ActiveReports.
Требуется помощь в следующем примере.
В ActiveReports2 я хочу пронумеровать строки на двух страницах.
На каждой странице должно быть максимум 40 строк.
На первой странице я хочу поместить 40 линий (из 60), на второй – оставшиеся 20 линий.

Private Sub Detail_Format()
RowNum=0
For i = 1 To 60
RowNum = RowNum + 1
With Canvas
.DrawText i, 450, 300 * RowNum, 7000, 7000
End With

If RowNum = 40 Then
RowNum = 0
Pages.Add
End If
Next
End Sub

Однако после старта программы первая страница - пустая, а на второй нумерация накладывается друг на друга.
В чем моя ошибка?

Игорь.