Вставить разрыв страницы

[alexvav]

Добрый день.
Подскажите, кому не трудно, как при помощи макроса вставить разрыв страницы через каждые 44 строки.
а то 700 стр наверно много времени займут.
Спасибо.

[EducatedFool]

Если воспользоваться поиском по форуму, и немного переделать результат, то получится вот что:

Sub test()
    Application.ScreenUpdating = False
    For i = 1 To 700 * 44 Step 44
        ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(i + 44, 1)
    Next
End Sub

Пример в файле: http://excelvba.ru/XL_Files/Sample__...__18-41-49.zip

[alexvav]

всё работает, спасибо.
п.с. код этот через поиск я находил, но переделать не получилось.