Как установить «Установить все столбцы на одной странице» на вкладке для печати

Question

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

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

Вот скриншот того, где именно в Excel 2013:

Пробовал искать какой-то код VBA как следующий, но без успеха.

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

Answer 1

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

MSDN link

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

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