无法设置PageSetup的特定属性

Question

With ActiveSheet.PageSetup
    .PrintArea = Cells(1, 1).Resize(LR, 16).Address
    .Orientation = xlLandscape
    .LeftMargin = Application.InchesToPoints(0.2)
    .RightMargin = Application.InchesToPoints(0.2)
    .TopMargin = Application.InchesToPoints(0.5)
    .BottomMargin = Application.InchesToPoints(0.5)
    .FitToPagesWide = True
    .FitToPagesTall = False
End With

所有属性均可接受 .FitToPagesWide

我得到RT1004-无法仅为此参数设置PageSetup类的属性。

所有其他属性均已正确设置，并在实际打印纸张时按预期运行。我还有另一个使用相同代码块的程序，它可以在多台计算机上正常工作。

Answer 1

添加：

 Application.PrintCommunication = False

在设置打印参数之前，然后

 Application.PrintCommunication = True

完成后。这样可以防止错误，并且可以正确设置打印区域并在测试时正确打印-该区域适合您使用的任何打印机的页面宽度。