如何在“打印”选项卡中设置“在一页上放置所有列”

我唯一想要的是当用户在Excel中打开“打印”选项卡时，始终设置“适合所有列在一个页面上”的设置。

不，他们不想自己做。 真是一个惊喜:)

以下是Excel 2013中的屏幕截图：

试图寻找像下面的一些VBA代码，但没有成功。

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

Answer 1

尝试将.FitToPagesTall设置为False以便能够手动设置.FitToPagesWide属性。

MSDN链接

如果此属性为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