Показать сообщение отдельно
Старый 20.10.2005, 16:06   #2  
vukmut is offline
vukmut
Участник
 
6 / 10 (1) +
Регистрация: 29.07.2005
Адрес: Москва
Например так:
Описание переменных:
XL - 'Microsoft Excel 10.0 Object Library'.Application
WB - 'Microsoft Excel 10.0 Object Library'.Workbook
WS - 'Microsoft Excel 10.0 Object Library'.Worksheet
RANGE - 'Microsoft Excel 10.0 Object Library'.Range

Код:
CREATE(XL);
WB := XL.ActiveWorkbook;
WS := WB.ActiveSheet;
RANGE := WS.Range('A10');
WS.HPageBreaks.Add(RANGE);

Результат: будет добавлен горизонтальный PageBreak перед 9-ой строкой активного листа Excel

Замечание: в библиотеке 'Microsoft Excel 5.0 Object Library' коллекция HPageBreaks мной обнаружена не была и по этому пришлось использовать библиотеку Microsoft Excel 10.0 Object Library