如何在 Visio 的多个页面上轻松打印多个图层答案

【问题标题】：How can I easily print multiple layers on multiple pages in Visio如何在 Visio 的多个页面上轻松打印多个图层
【发布时间】：2010-05-18 09:52:57
【问题描述】：

我们使用 Visio 创建了一个具有多个层的流程图。（背景是每一层代表一个基本过程的变化。）

现在我们希望能够单独打印每一层。目前，这涉及到大量点击以选择正确的图层，然后按打印 - 然后对 10 个图层中的每一个重复此操作。

有没有更简单的方法？例如。定义每一层一次并使用“打印每一层”工具/宏？

【问题讨论】：

标签： printing visio flowchart layer

【解决方案1】：

这通过 VBA 相当容易。我使用页面导出到 jpeg 对其进行了测试，但打印应该也可以。它只是循环遍历活动页面中的所有图层，首先隐藏每个图层，然后取消隐藏当前循环的图层，然后打印。

Sub PrintLayers()
    Dim CurrShowLayer As Visio.Layer, CurrLayer As Visio.Layer
    For Each CurrShowLayer In ActivePage.Layers
        For Each CurrLayer In ActivePage.Layers
            CurrLayer.CellsC(visLayerVisible).Formula = "0"
        Next CurrLayer
        CurrShowLayer.CellsC(visLayerVisible).Formula = "1"
        ActivePage.Print
    Next CurrShowLayer
    For Each CurrLayer In ActivePage.Layers
        CurrLayer.CellsC(visLayerVisible).Formula = "1"
    Next CurrLayer
End Sub

【讨论】：

乔恩 - 为延迟回复表示歉意。这个问题是代表一位尚未测试您的代码的同事提出的。但由于这是唯一的答案，我将把它作为公认的答案。非常感谢。