Диапазон печати для каждой страницы

Question

Как изменить область печати на каждой странице?

Что я хочу сделать: Вручную в «предварительном просмотре разрыва страницы» я могу переместить строку между страницами, которая переопределяет для меня область на странице. Я хочу сделать это из кода VBA. Возможно ли это?

Мой случай: у меня есть таблицы в Excel, созданные с помощью кода, это означает, что количество строк в этих таблицах может быть различным. Я хочу, чтобы вся таблица была на одной странице, а не разделена, как сейчас, поэтому я проверю конец таблиц и хочу переместить конец страниц в эти строки в цикле для всех таблиц и страниц.

Может кто-нибудь помочь мне, пожалуйста?

Answer 1

Хорошо, вот я и нашел то, что мне нужно.Если кому-то интересно, это главная идея:

Sub SetPageBrake()

    ActiveWindow.View = xlPageBreakPreview
    Worksheets(1).ResetAllPageBreaks
    ActiveWorkbook.PageSetup.PrintArea = 'Put here some range

With 'worksheet
    Set .HPageBreaks(1).Location = .Range("A40") 'The page break will be above the cell
    Set .HPageBreaks(2).Location = .Range("A98")
End With

    ActiveWindow.View = xlNormalView

End Sub

Спасибо всем, кто пытался помочь.Стыдно людям, которые ставят минус за мою репутацию, даже не зная, где искать ответ.