Question

以下子应该为PDF输出准备页面设置。例如，如果由于其他连接的打印机，页面制动器搞砸了，则子应将其修复为1页宽和3页高。

Sub adjustPB(ws As Variant, ps As XlPaperSize)
'On Error Resume Next
Application.DisplayAlerts = False
Application.PrintCommunication = False
With ws.PageSetup
    .LeftMargin = Application.InchesToPoints(0)
    .RightMargin = Application.InchesToPoints(0)
    .TopMargin = Application.InchesToPoints(0)
    .BottomMargin = Application.InchesToPoints(0)
    .HeaderMargin = Application.InchesToPoints(0)
    .FooterMargin = Application.InchesToPoints(0)
    .Orientation = xlLandscape
    '.Orientation = xlPortrait
    .PaperSize = ps
    .Zoom = 100
    .Zoom = False
    Debug.Print .Zoom
    .FitToPagesWide = 1
    Debug.Print .Zoom
    Debug.Print .FitToPagesWide
    .FitToPagesTall = 3
End With
Application.DisplayAlerts = True
Application.PrintCommunication = True
End Sub

当我在＆＃39;使用ws.PateSetup＆＃39;添加断点时，sub实际上在单步骤（F8）中按预期工作。但是，如果我使用F5运行它，它会忽略这些语句。调试打印显示，属性的值没有改变。

到目前为止尝试的事情：使用DoEvents在.zoom和.FitPagesWide之前添加延迟最多1秒。没变。例如，缩放仍为55。在单步中，Zoom最后会读取FALSE。任何解释/暗示这里出了什么问题？

Answer 1

.PrintCommunication可能是关键。此时的文档相当模糊，但看起来Excel会在.PrintCommunication关闭时缓存所有命令，并在.PrintCommunication打开时将它们转储到页面设置引擎。这可能是在使用F5运行时没有看到任何变化的原因。（调试器的服务对我来说更加模糊。）

尝试申请

With ActiveSheet.PageSetup
     ' .... 
    .Parent.Application.PrintCommunication = True
    .Zoom = 100
    .Zoom = False
    Debug.Print .Zoom
    .FitToPagesWide = 1
    Debug.Print .Zoom
    Debug.Print .FitToPagesWide
   .FitToPagesTall = 3
   .Parent.Application.PrintCommunication = False
   ' .... 
End With
Application.PrintCommunication = True

我也很想看到结果：）

页面设置的VBA语句仅在调试模式下执行

1 个答案: