Public Sub printArea() Application.PrintCommunication = False With ActiveSheet.PageSetup
.printArea = "$A$1:$N$21"
.FitToPagesWide = 1 .FitToPagesTall = 0 End With Application.PrintCommunication = TrueEnd Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024