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