<pre>on printObjects  set cursor to 4  setPrinter  put empty into T  if the number of bkgnd fields > 0 then    put "Background Fields" & return & return after T    put "###    ID   Name                 Visible Script Style          Rectangle" & return & return after T    repeat with F = 1 to the number of fields      put padLeft(F,3) after T      put padLeft(the id of field F,6) & "   " after T      put pad(the short name of field F,24) & "   " after T      if the visible of field F is false then get "X" else get space      put it & "  " after T      put padLeft(the number of lines in the script of field F,3) & "   " after T      put pad(the style of field F,12) & "   " after T      put the rectangle of field F & return after T    end repeat  end if    if the number of bkgnd buttons > 0 then    put return & "Background Buttons" & return & return after T    put "###    ID   Name                 Visible Script Style          Rectangle" & return & return after T    repeat with F = 1 to the number of bkgnd buttons      put padLeft(F,3) after T      put padLeft(the id of bkgnd button F,6) & "   " after T      put pad(the short name of bkgnd button F,24) & "   " after T      if the visible of bkgnd button F is false then get "X" else get space      put it & "  " after T      put padLeft(the number of lines in the script of bkgnd button F,3) & "   " after T      put pad(the style of bkgnd button F,12) & "   " after T      put the rectangle of bkgnd button F & return after T    end repeat  end if    if the number of card fields > 0 then    put "Card Fields" & return & return after T    put "###    ID   Name                 Visible Script Style          Rectangle" & return & return after T    repeat with F = 1 to the number of card fields      put padLeft(F,3) after T      put padLeft(the id of card field F,6) & "   " after T      put pad(the short name of card field F,24) & "   " after T      if the visible of card field F is false then get "X" else get space      put it & "  " after T      put padLeft(the number of lines in the script of card field F,3) & "   " after T      put pad(the style of card field F,12) & "   " after T      put the rectangle of card field F & return after T    end repeat  end if    if the number of card buttons > 0 then    put return & "Card Buttons" & return & return after T    put "###    ID   Name                 Visible Script Style          Rectangle" & return & return after T    repeat with F = 1 to the number of card buttons      put padLeft(F,3) after T      put padLeft(the id of card button F,6) & "   " after T      put pad(the short name of card button F,24) & "   " after T      if the visible of card button F is false then get "X" else get space      put it & "  " after T      put padLeft(the number of lines in the script of card button F,3) & "   " after T      put pad(the style of card button F,12) & "   " after T      put the rectangle of card button F & return after T    end repeat  end if    if T is empty then sayProblem "Rien  imprimer!"  else    put "List of Fields & Buttons in Stack: " & the short name of this stack & " - Bkgnd: " & the short name of this bkgnd & return & return into H    printReport T,H,"Letter"  end if  end printObjects</pre>