如何在Visio的多個頁面上輕鬆打印多個圖層

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