home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 November / pcwk_11_98B.iso / Lotus / GERMAN / LOTUS027.DSK / COLLAYS.TPL < prev    next >
Text File  |  1995-07-13  |  382b  |  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