Macro to print each layer in a Vision 2010 drawing

[Hal lavender]

Hi

First of all, Thanks in advance for your help.

I am trying to print each layer in the active sheet in a Visio drawing.

Can anyone help