Question

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

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

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

Answer 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

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

1 个答案: