VBA怎么设置EXCEL打印预览的时候表格缩放在一页？

VBA怎么设置EXCEL打印预览的时候表格缩放在一页？

VBA设置EXCEL打印预览的时候表格缩放在一页，执行代码如下：
Sub Macro2()
With ActiveSheet.PageSetup
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
ActiveWindow.SelectedSheets.PrintPreview
End Sub

Sub 所有的列在一页()

Application.PrintCommunication = False
Application.DisplayAlerts = False
With ActiveSheet.PageSetup
.PrintErrors = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 0
.PrintErrors = False
End With
Application.PrintCommunication = True
End Sub
首先声明：
本程序为chaohua008 的改进版
主要改进为：
1， 所使用的纸A4，横向。
2，保证所有的列打印在一页，
3，不需要打印预览，即可执行。
4，关闭windows不必要的错误提醒
欢迎拍砖1

用下面代码可以做到
Sub Macro2()
With ActiveSheet.PageSetup
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
ActiveWindow.SelectedSheets.PrintPreview
End Sub