Очень часто нам нужны документы в стандартном форматировании. Самое простое и нужное - форматирование под печать.

Первое, что нужно сделать при форматировании под печать - выбрать область форматирования и расположение страниц. Для этого сначала необходимо зайти в режим страничного просмотра:

ActiveWindow.View = xlPageBreakPreview

После этого аналогично тому, как вы делаете это мышкой, нужно расставить вертикальные (VPageBreaks) и горизонтальные (HPageBreaks) разделители страниц. Для этого нужно знать порядковый номер разделителя (номер по счету слева направо или сверху вниз) и номер столбца (или строки), следующего сразу за разделителем:

Set ActiveSheet.VPageBreaks(1).Location = Columns(4)

Set ActiveSheet.HPageBreaks(1).Location = Rows(19)

Вместо столбца (или строки) можно писать любую ячейку из этого столбца (или строки). Например, записав:

Set ActiveSheet.VPageBreaks(1).Location = Cells(10, 4)

Set ActiveSheet.HPageBreaks(1).Location = Cells(19, 37)

мы получим тот же результат, что и выше.