第2个回答 2018-01-31
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