Stencils

[A-dec Employee]

I have visio 2002 and I would like a printout of all the stencils without
having to pull and drag them all -- please help. If VB script, please say
how to execute it?

 

[Crack]

try the foll owing and twig to suit

Public Sub VGetMasters() 'select the maters
Dim ShpObj As Master
For i = 1 To ThisDocument.Masters.Count
Set ShpObj = ThisDocument.Masters.Item(i)
' drop the master on the active page
Visio.ActivePage.Drop(ShpObj, 5, 5) = shp
' print the active page
Visio.ActivePage.Print
' delete from the page anything selected on the active page
Visio.ActiveWindow.Selection.Delete
' onto next master
Next i
End Sub

End Sub

 

[Crack]

insert the code into a module via the tools-> macros path. run the macro via
the same path.