在VBA中获取400错误

我的宏代码中出现了一个令人沮丧的错误。我有两个子程序中的一小段代码，一个打开所有数据组并更改一些打印选项，另一个关闭组并更改一些打印选项

这很好，但是当我保存并关闭时，如果我单击宏按钮，我会收到一条400错误消息。要解决这个问题，我必须注释掉所有的.pagesetup代码，然后再次运行宏，然后取消注释并逐行运行宏，然后400错误将消失。然而，一旦我保存并关闭它，它就会回来，我必须重复所有的事情。任何帮助都将不胜感激

Sub PropertyStrat_Click()
'
' PropertyStrat_Click Macro
'
ActiveSheet.Outline.ShowLevels RowLevels:=2 ' to expand the rows

Worksheets("Sheet1").PageSetup.Orientation = xlPortrait
Worksheets("Sheet1").PageSetup.PaperSize = xlPaperA3
Worksheets("Sheet1").PageSetup.Zoom = False
Worksheets("Sheet1").PageSetup.FitToPagesTall = 1
Worksheets("Sheet1").PageSetup.FitToPagesWide = 1
Worksheets("Sheet1").PageSetup.CenterHorizontally = True
Worksheets("Sheet1").PageSetup.CenterVertically = True

End Sub

Sub SimpleView_Click()

ActiveSheet.Outline.ShowLevels RowLevels:=1 ' to collapse the rows

Worksheets("Sheet1").PageSetup.PrintArea = "$A$1:$J$29,$A$30:$J$50"
Worksheets("Sheet1").PageSetup.Orientation = xlLandscape
Worksheets("Sheet1").PageSetup.PaperSize = xlPaperA4
Worksheets("Sheet1").PageSetup.Zoom = 100
Worksheets("Sheet1").PageSetup.CenterHorizontally = False
Worksheets("Sheet1").PageSetup.CenterVertically = False

End Sub

---

我的纸张尺寸线有1004个错误。以下是可用的选项。我不知道为什么会有错误。也许我的打印机不支持xlPaperA3，因为它似乎是一个可行的选项。哪一行会出错？当您找到问题的底部时，请使用

和
结束使用
进行整理。哪一张是
活动页
？