如何设置＆＃39;在一个页面上安装所有列＆＃39;在打印选项卡中

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属性   没错，FitToPagesTall属性将被忽略。

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