Excel .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

---

你想打印什么东西？你的代码不完整你想打印什么对象？你的代码不完整