поиск разрыва страницы Delphi VBA Excel

[Dvoishnik]

не могу понять как узнать номер строки последнего разрыва страницы
пробовал так:

Ap := CreateOleObject('Excel.Application');
....
i:=Ap.Worksheets.hPageBreaks[Ap.WorkSheets.HPageBreaks.Count].Location.Row;

и так:

Ap := CreateOleObject('Excel.Application');
....
i:=Ap.Worksheets.hPageBreaks.item[Ap.WorkSheets.HPageBreaks.Count].Location.Row;

если указать в hPageBreaks любой индекс кроме 1 пишет ошибку 'не верный индекс'
может подскажете что??

[doober]

Так работает?
WorkSheets-это коллекция а не отдельный лист

i:=Ap.Worksheets[1].hPageBreaks[Ap.WorkSheets[1].HPageBreaks.Count].Location.Row;

[IgorGO]

у ексель по листу сразу расставлены горизонтальные и вертикальные разрывы страниц
этот

Function AtPage(rg As Range) As Long
  Dim i As Long
  i = 1
  Do While rg.Row > HPageBreaks(i).Location.Row
    i = i + 1
  Loop
  AtPage = i
End Function

вернет номер 1-го горизонтального разрыва страницы за rg. в качестве rg передайте последнюю строку с данными на листе.

[Dvoishnik]

Сообщение от doober

Так работает?
WorkSheets-это коллекция а не отдельный лист

i:=Ap.Worksheets[1].hPageBreaks[Ap.WorkSheets[1].HPageBreaks.Count].Location.Row;

и так тоже пробовал.
П.С. Worksheets в данном случае не обязательно обращаться как к элементу коллекции.

[Dvoishnik]

Сообщение от IgorGO

у ексель по листу сразу расставлены горизонтальные и вертикальные разрывы страниц
этот

Function AtPage(rg As Range) As Long
  Dim i As Long
  i = 1
  Do While rg.Row > HPageBreaks(i).Location.Row
    i = i + 1
  Loop
  AtPage = i
End Function

вернет номер 1-го горизонтального разрыва страницы за rg. в качестве rg передайте последнюю строку с данными на листе.

вам не кажется что вы не внимательно прочитали в чем проблема?? дело в том что в Delphi

 HPageBreaks(i).Location.Row //i только единицей

я не могу понять почему так?

[IgorGO]

потому что данных на листе на одну печатную страницу

[Dvoishnik]

Сообщение от IgorGO

потому что данных на листе на одну печатную страницу

файл заполняется в цикле после заполнения некоторого количества строк
проверяется какая ячейка последняя на текущей области печати Ap.WorkSheets[1].HPageBreaks.Count - функция выдает как раз таки количество разделителей.

в ручную проверял, на момент выполнения функции минимум 3 области печати заполнены может я где то не понимаю принципов работы Excel ?

[AndVGri]

Проблема может быть в том, что Excel не рассчитывает PageBreaks, если лист (точнее окно) находится в режиме xlNormalView. Сами посудите, при обычной работе, как бы много у вас не было данных на листе, вы не видите пунктирных линий границ страницы в этом режиме - так ведь?
Поэтому переключите отображение, например, в xlPageBreakPreview, или измените настройки принтера. Тогда у вас и появится информация о PageBreaks.

[Dvoishnik]

Сообщение от AndVGri

Проблема может быть в том, что Excel не рассчитывает PageBreaks, если лист (точнее окно) находится в режиме xlNormalView. Сами посудите, при обычной работе, как бы много у вас не было данных на листе, вы не видите пунктирных линий границ страницы в этом режиме - так ведь?
Поэтому переключите отображение, например, в xlPageBreakPreview, или измените настройки принтера. Тогда у вас и появится информация о PageBreaks.

не подскажете как это сделать??

[Dvoishnik]

Спасибо большое за помощь получилось так для Delphi

Ap := CreateOleObject('Excel.Application');
....
Ap.ActiveWindow.View:=2;   //2=xlPageBreakPreview
i:=Ap.Worksheets.hPageBreaks.item[Ap.WorkSheets.HPageBreaks.Count].Location.Row;
Ap.ActiveWindow.View:=1;   //1=xlNormalView 
....