Вывод в Excel. VPageBreaks

[grif]

Вывод в эксель. Требуется подвинуть автоматически вставленный вертикальный разделитель.
Макросами посмотрел и получил
ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
что по сути равносильно ActiveSheet.VPageBreaks(1).DragOff -4161, 1
либо так
Set ActiveSheet.VPageBreaks(1).Location = Range("G1")

Каким образом можно такое замутить из C/AL?

Ничего из вот этого не работает:
Sheet.VPageBreaks.Item(1).DragOff(-4161,1);

Sheet.VPageBreaks.Item(1).Location := Sheet.Range('B1');

Это похоже работает, но нельзя удалить автоматически созданный резделить
Sheet.VPageBreaks.Item(1).Delete

[randrews]

Цитата:

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

Вывод в эксель. Требуется подвинуть автоматически вставленный вертикальный разделитель.
Макросами посмотрел и получил
ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
что по сути равносильно ActiveSheet.VPageBreaks(1).DragOff -4161, 1
либо так
Set ActiveSheet.VPageBreaks(1).Location = Range("G1")

Каким образом можно такое замутить из C/AL?

Ничего из вот этого не работает:
Sheet.VPageBreaks.Item(1).DragOff(-4161,1);

Sheet.VPageBreaks.Item(1).Location := Sheet.Range('B1');

Это похоже работает, но нельзя удалить автоматически созданный резделить
Sheet.VPageBreaks.Item(1).Delete

Создайте предварительно
'Microsoft Excel 11.0 Object Library'.VPageBreak
'Microsoft Excel 11.0 Object Library'.VPageBreaks
И работайте через них

А вообще, если что-то не получается в Nav, но работает в макросах, то всегда есть такой путь:
1) Создать макрос
2) Запускать его из Nav

[grif]

Цитата:

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

Создайте предварительно
'Microsoft Excel 11.0 Object Library'.VPageBreak
'Microsoft Excel 11.0 Object Library'.VPageBreaks
И работайте через них

Делал, но не смог разобраться как их привязать к другим переменным экселевским, например к в WorkSheet

Цитата:

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

А вообще, если что-то не получается в Nav, но работает в макросах, то всегда есть такой путь:
1) Создать макрос
2) Запускать его из Nav

Да, я думал про этот метод, но не нашёл каким методом можно программно создать макрос, т.е. загрузить его в документ Excel при генерации отчёта. Правда навреное не сильно упорно искал

[randrews]

Цитата:

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

Да, я думал про этот метод, но не нашёл каким методом можно программно создать макрос, т.е. загрузить его в документ Excel при генерации отчёта. Правда навреное не сильно упорно искал

Честно говоря, мне кажется, что этого сделать нельзя.

Не поленился написать код

Name	DataType	Subtype	Length
ws	Automation	'Microsoft Excel 11.0 Object Library'.Worksheet	
wss	Automation	'Microsoft Excel 11.0 Object Library'.Sheets	
wa	Automation	'Microsoft Excel 11.0 Object Library'.Application	
wb	Automation	'Microsoft Excel 11.0 Object Library'.Workbook	
wbs	Automation	'Microsoft Excel 11.0 Object Library'.Workbooks	
wvpbs	Automation	'Microsoft Excel 11.0 Object Library'.VPageBreaks	
wvpb	Automation	'Microsoft Excel 11.0 Object Library'.VPageBreak

 CREATE(wa);
wbs :=  wa.Workbooks;
wb := wbs.Item('Книга1');
wss := wb.Worksheets;
ws := wss.Item('Лист1');
wvpbs := ws.VPageBreaks;
wvpb := wvpbs.Item(1);
//wvpb.Location := ws.Range('F1');
//wvpb.Delete;

Последние две строки закоментированы - делаете либо то либо другое.
Тест такой:
Создаете Книга1, вставляете разрыв. Обязательно переходите в режи "разметка страницы".
Пото пишите код тот что выше - работает. Проверено

[grif]

спасибо - всё работает
мой косяк был в том, что я не переводил эксель в режим разметки страниц.
В общем сделал Excel.ActiveWindow.View := 2; и всё заработало. После всех манипуляций можно и обратно перевести обычный, присвоив 1