forum.clarionlife.net

Подскажите пож-та как сделать перевод страницы в Excel ?

Пишу, по образцу как в созданном макросе
?ole{'Rows("'&i#+18&':'&i#+18&'").Select'}
?ole{'ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell'}

не работает
i#+18 - это номер строки, где нужно сделать перевод

Коллеги, так неужели никто не переводил в Excele страницы принудительно ? Не верю !
Ползал по сайтам VBA якобы для перевода надо переключиться в режим разметки.
Пытаюсь переключиться
?ole{'ActiveWindow.View = xlPageLayoutView'}

и не вижу чтоб переключился вид....
что-то с ActiveWindow не то ?

Попробуй так:
?OLE{'Application.ActiveCell.PageBreak'} = 1

Спасибо - работает !
Еще бы выяснить, что в моем варианте не так

Что то мне кажется, что писать надо так:
?ole{'ActiveWindow.View'} = xlPageLayoutView
Где xlPageLayoutView - это число - константа