Как установить "Установить все столбцы на одной странице" на вкладке "Печать"

Единственное, что я хотел бы, это всегда устанавливать параметр "Устанавливать все столбцы на одной странице", когда пользователи открывают вкладку "Печать" в Excel.

И нет, они не хотят делать это сами. Какой сюрприз:)

Попытался найти какой-то код VBA как следующий, но безуспешно.

With Sheets("Print Letter").PageSetup
.FitToPagesWide = 1
.FitToPagesTall = 1
End With

Ответы

Ответ 1

Попробуйте установить .FitToPagesTall на False, чтобы можно было вручную установить свойство .FitToPagesWide.

Ссылка MSDN

Если это свойство False, Microsoft Excel масштабирует рабочий лист в соответствии с свойством FitToPagesWide. Если свойство Zoom Правда, свойство FitToPagesTall игнорируется.

Sub PrintColumns()
    Application.PrintCommunication = False
    With Sheets("Print Letter").PageSetup
        .FitToPagesWide = 1
        .FitToPagesTall = False
    End With
    Application.PrintCommunication = True
End Sub