Добрый день. Прошу помочь со следующей проблемой. Нужно распечатать все столбцы на 1 листе. Написал макрос
Код
Sub Макрос1()
ActiveWindow.View = xlPageBreakPreview
ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
End Sub
При первом запуске макрос отрабатывает корректно, но если второй раз запустить его в том же документе, то выдает ошибку. Как исправить макрос, чтобы работал при многократном запуске?
Sub Макрос1()
On Error Resume Next'<=================================================
ActiveWindow.View = xlPageBreakPreview
ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
End Sub
Ёк-Мок, Спасибо, метод рабочий. Я бы еще добавил строку отключающую обработчик ошибок, чтоб остальные ошибки в макросе не прошли мимо
Код
Sub Макрос1()
On Error Resume Next '<=================================================
ActiveWindow.View = xlPageBreakPreview
ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
On Error GoTo 0 ' Выключаем обработчик ошибок, чтобы остальные ошибки не прошли мимо
End Sub
sokol92, спасибо за стандартное решение. Оно лучше, чем предложенный мной вариант.