所选范围占据打印预览的整页

Question

我正在显示所选范围的打印预览。页面上有很多空白区域。我希望我的范围占据整个页面。

Sub Print_preview()

With ThisWorkbook.Worksheets("Summary").PageSetup

  .PrintArea = "d5:s33"

  .FitToPagesTall = 2

  .FitToPagesWide = 1

End With

PrintPreview

End Sub