MegabrainОказывается надо было сделать:
ActiveWindow.View = xlPageBreakPreview
Только какого черта это в справке не написано? И все равно вот этот код не работает пока
для HPB не проставиш Item.
HPB=exclapp.Worksheets(1).HPageBreaks
WAIT STR(HPB.Item(1).type) WINDOW
Странно достаточно. То что приходится передергивать View. Это как раз нормально - у экселя должно возникнуть событие, чтобы расставить разрывы страниц. А дальше я обращаюсь таким макаром:
1.
2.
3.
4.
5.
6.
7.
8.
lnMaxBreaks = Sch.HPageBreaks.Count
IF lnMaxBreaks > 0 AND lnWholeCount > 1
DIMENSION laPgB (lnMaxBreaks)
FOR m.i = 1 TO lnMaxBreaks
laPgb[m.i] = Sch.HPageBreaks[m.i].Location.Row
NEXT && m.i
*-* (IGEL) Удаляем инфу о разрывах страниц
Sch.HPageBreaks[ 1 ].DragOff(xlDown, 1 )
