VBA 忽略页面设置更改

Question

我设置了一些VBA代码来获取工作表名称，范围(prntRange(和方向(prntOrient(并打印结果，但似乎VBA忽略了页面设置的命令。下面是一个快速片段：

For x = 1 To numPages
    Worksheets("Printing").Activate
    prntSheet = Cells(6 + (x - 1), 1)
    prntRange = Cells(6 + (x - 1), 2)
    prntOrient = Cells(6 + (x - 1), 3)
    Application.StatusBar = "Printing " & prntSheet & "..."
    Worksheets(prntSheet).Activate
    With ActiveSheet.PageSetup
        .PrintArea = False
        If prntOrient = "Portrait" Then
            .Orientation = xlPortrait
        Else
            .Orientation = xlLandscape
        End If
        .PrintArea = prntRange
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    ...

下面是该表的示例：

Sheet Name        Range        Orientation
 Example          A1:J56         Portrait
 Example          A1:J80         Landscape

prntRange从范围拉取，prntOrient从方向拉取

基本上，我正在寻找的是示例范围A1:J56的纵向版本，然后是示例范围A1:J80的横向版本。横向版本打印为两页，尽管被告知适合一页。无论第一个条目是否也存在，以及我是否在Excel中手动重置打印设置，都会发生这种情况。

我已经尝试了上述四个命令的几乎所有排列，顺序似乎没有区别。设置.PrintArea = False是我认为刷新打印区域可能会有所帮助，但我不相信它确实如此。如果我手动完成这些步骤，那么我可以毫无问题地将其转换为所需的格式，但是此宏的全部意义在于我不必这样做。

有人知道我错过了什么吗？

提前感谢！

编辑：更准确的标题。

编辑2：根据人们的要求提供更多细节，对不起！

编辑 3：扩展代码以显示变量赋值

Answer 1

我为我在类似环境中遇到的问题找到了潜在的解决方案。向流程添加Application.PrintCommunication：

Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .Orientation = xlLandscape
        .Zoom = False
        '.PrintArea = Worksheets(ReportWsName).UsedRange
        .FitToPagesWide = 1
        '.FitToPagesTall = 1
    End With
Application.PrintCommunication = True

无论出于何种原因，如果我在没有它的情况下运行代码，Excel 都会覆盖我放置的设置。