home *** CD-ROM | disk | FTP | other *** search
- Option Public
-
- 'Retrieve all of the layouts in this division
-
- Dim AllLayouts As LayoutCollection
- Set AllLayouts = .Division.Foundry.Layouts
-
- Forall Layout In AllLayouts
- Print "Informaci≤n sobre el formato "
- Print "Nombre de clase ",Layout.ClassName
- Print "Nombre ", Layout.Name
- Print "Nombre del editor ", Layout.EditorName
- Print "------------------------------------------"
-
- End Forall
- Sub Script
-
- End Sub
-