excel - 如何将打印区域调整为一张纸

Question

我在一张纸上定义了一个打印区域并将其打印出来。但是这个面积比一张纸大，所以它会被打印成 4 页。我想将所有内容都放在一页中。所以我试过代码:

Sub PrintTable()    

With ActiveWorkbook.Sheets("myTable").PageSetup
    .PrintArea = "$A$1:$L$55"
    .FitToPagesWide = 1
    .FitToPagesTall = 1
    .PrintErrors = xlPrintErrorsDisplayed

End With
End Sub

但是不行，不知道改哪部分。我使用了“录制宏”，也许我删除了一些重要的行。因此，如果您有任何想法，请留言。

Answer 1

我自己试了一下，效果不错:

   Application.PrintCommunication = False
   With ActiveSheet.PageSetup
       .FitToPagesWide = 1
       .FitToPagesTall = 1
   End With
   Application.PrintCommunication = True

没有设置

 Application.PrintCommunication

去假去真，是不行的。你能试试这个吗？