在VBA中获得400错误

Question

我在宏代码中遇到了令人沮丧的错误。我在两个子代码中有一小部分代码，一个打开所有数据组并更改一些打印选项，另一个关闭组并更改一些打印选项。

这很好但是当我保存并关闭时重新打开如果我点击宏按钮我收到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