home *** CD-ROM | disk | FTP | other *** search
/ PowerPlay 1997 March / PowerPlay0397.iso / T-ONLINE / DECODER / FORMULAR.DIR / 00002_Script_2 < prev    next >
Text File  |  1997-01-08  |  1KB  |  51 lines
  1. on mouseUp
  2.   
  3.   -- put up the wait cursor
  4.   --  cursor 4
  5.   
  6.   
  7.   baueadresse
  8.   druckvorbereitung
  9.   
  10.   -- create a new instance of a document object
  11.   set doc = new (xtra "printomatic_lite")
  12.   
  13.   -- get out if the xtra couldn't be instantiated
  14.   -- this means there's no current printer
  15.   if not objectp(doc) then exit
  16.   
  17.   setDocumentName doc, "PrintOMatic Lite Documentation"
  18.   
  19.   setmargins doc,rect(70,20,60,20)
  20.   setTextFont doc, "Courier"
  21.   
  22.   append doc,  member "zeile1",return,return,return,return,return,member "kopf",return
  23.   append doc,  return,return,return,return,member "von",return,member "absender",return
  24.   append doc,  return,return,member "Hiermit",return
  25.   append doc,  return,return,member "tabelle"
  26.   append doc,  return,return
  27.   
  28.   append doc,  return,member "Bestelltext"
  29.   
  30.   --  
  31.   --  append doc,  return,return,return,member "Versand"
  32.   --  append doc,  return,return,return,member "Gesamtsumme"
  33.   --  
  34.   --  
  35.   
  36.   append doc,  return,return,member "gesamtbetragzeile"
  37.   
  38.   
  39.   append doc,  return,return
  40.   global angekreuzt
  41.   if angekreuzt = 1 Then
  42.     append doc,  return,member "vollm"
  43.   end if
  44.   append doc,  return,return,member "kennB"
  45.   
  46.   print doc
  47.   
  48.   -- delete the xtra instance
  49.   set doc = 0
  50.   
  51. end