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

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

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

Вот скриншот, где находится в Excel 2013: enter image description here

Попытался найти какой-то код 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