printing - How can I easily print multiple layers on multiple pages in Visio -

We have created a flow chart using several layers of Visio (The background is that each layer represents the variations on the original process .)

Now we personally want to be able to print each layer. Currently it involves choosing the right layer to select lots of layers and then press Print - then repeat it for each of the 10 layers.

Is there any easy way? Like define each layer once and use a "Print Every Layer" tool / macro?

It is quite easy VBA. I tested it using JPG by exporting the page, but the print should also work. This is the only active page that has a hole through all layers, first hides each layer, then touches and prints the current looped layer.

  SubCentre () Dim CurrShowLayer Visio.Layer, CurrLayer As for each CurrShowLayer, ActivePage.Layers in ActivePage.Layers for CurrLayer.CellsC (visLayerVisible) for each CurrLayer. Formula = "0" Next CurrLayer CurrShowLayer.CellsC (visLayerVisible). Formula = "1" ActivePage.CurrShowLayer CurlLayer In ActivePage.Layers CurrLayer.CellsC (visLayerVisible) for each print. Formula = "1" Next CurlLayer End sub