Количество страниц на форме

[TimRus]

Как программно определить количество страниц на форме (страницы получены с помощью элмента управления "Разрыв страницы")

[AdrenalinE]

Кол-во разрывов страницы + 1. Не?

[TimRus]

А как тогда определить количество разрывов?

[AdrenalinE]

Хотя нет, видимо, ошибаюсь. Надо смотреть свойства объекта.

[Teslenko_EA]

Здравствуйте TimRus.
если используется "Разрыв страницы", AdrenalinE не ошибся

Sub test()
Const sM = "Страниц у Формы "
Dim o As Control, i%
For Each o In Me.Controls
    If o.ControlType = acPageBreak Then i = i + 1
Next
MsgBox sM & i + 1
End Sub

Евгений.

[TimRus]

Спасибо, Евгений!!! Вы не раз уже меня выручаете!!

[AdrenalinE]

o.ControlType = acPageBreak
Вот то, что я точно не знал, как объект называется в оригинале.)
Спс, тоже возьму на заметку.
Еще было подозрение, что объект "Разрыв страницы" один, просто он разрывает n раз страницу по заданному условию.