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

Question

我有一小段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