Нужно программно перенести разрыв страницы. Сделала в Excel макрос. Там ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
Пытаюсь вывести в Forms используя OLE2. Но не получается ничего(((
Вот код.
PROCEDURE Page_Breaks (sheet in OLE2.OBJ_TYPE) IS
cell OLE2.OBJ_TYPE;
args OLE2.LIST_TYPE;
vlines OLE2.OBJ_TYPE;
Drag OLE2.OBJ_TYPE;
BEGIN
args:=OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(args,'A1');
cell:=OLE2.GET_OBJ_PROPERTY(sheet,'Range',args);
OLE2.DESTROY_ARGLIST(args);

-----вариант 1-------

Drag:=OLE2.GET_OBJ_PROPERTY(cell,'VPageBreaks',args);
OLE2.SET_PROPERTY(Drag,'xlToRight',1);
OLE2.RELEASE_OBJ(Drag);



------ второй вариант (тоже не работает)------

Drag:=OLE2.GET_OBJ_PROPERTY(cell,'VPageBreaks',args);
OLE2.SET_PROPERTY(Drag,'xlToRight',1);
OLE2.SET_PROPERTY(Drag,'RegionIndex',1);
OLE2.RELEASE_OBJ(Drag);

vlines:=OLE2.GET_OBJ_PROPERTY(cell,'VPageBreaks',args);
OLE2.SET_PROPERTY(vlines,'DragOff',Drag);
OLE2.RELEASE_OBJ(vlines);


END;


Подскажите, как сделать, чтобы работало? совсем не понимаю(((

Не получается. вот на этом моменте просто вылетает wPageBreak := CLIENT_OLE2.INVOKE_OBJ(wPageBreaks,'Item',args);
Не понимаю почему(((