home *** CD-ROM | disk | FTP | other *** search
/ PC go! 1996 December / PC_GO.ISO / demo / suite96 / lotus033.dsk / COLLAYS.LSS < prev    next >
Encoding:
Text File  |  1995-07-13  |  382 b   |  13 lines
  1.     'Retrieve all of the layouts in this division
  2.     
  3.     Dim AllLayouts As LayoutCollection
  4.     Set AllLayouts = .Division.Foundry.Layouts
  5.     
  6.     Forall Layout In AllLayouts
  7.         Print "Layout-Info "
  8.         Print "Klassenname ",Layout.ClassName
  9.         Print "Name ", Layout.Name
  10.         Print "Name des Bearbeiters ", Layout.EditorName
  11.         Print "------------------------------------------"
  12.         
  13.     End Forall