.PrintOut在Vba中 – 代码是在.pagesetup之前打印的

我有一小段vba代码，将数据透视表中的数据复制到一个新的工作簿中，然后设置页面，使其适合1页的宽度。 但是代码似乎在打印，然后进行设置。 所以应该是2页翻成12。

它可能只是我的代码错误的顺序 – 我还在学习VBA。 任何帮助将是伟大的 – 下面的代码部分

With ActiveWorkbook .Sheets(1).Cells(1).PasteSpecial _ Paste:=xlPasteValuesAndNumberFormats Worksheets("Sheet1").Columns("A:O").AutoFit ActiveSheet.Range("A2").AutoFilter Columns(2).EntireColumn.Delete Columns(3).EntireColumn.Delete Columns(9).EntireColumn.Delete With ActiveSheet.PageSetup .FitToPagesWide = 1 .FitToPagesTall = False .Orientation = xlLandscape .PrintGridlines = True End With End With .PrintOut End Sub