home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 - Expo 2000 / Image.iso / t-online / decoder / formular.dir / 00002.ls < prev    next >
Encoding:
Text File  |  1997-02-10  |  891 b   |  27 lines
  1. on mouseUp
  2.   global angekreuzt
  3.   baueadresse()
  4.   druckvorbereitung()
  5.   set doc to new(xtra("printomatic_lite"))
  6.   if not objectp(doc) then
  7.     exit
  8.   end if
  9.   setDocumentName(doc, "PrintOMatic Lite Documentation")
  10.   setMargins(doc, rect(70, 20, 60, 20))
  11.   setTextFont(doc, "Courier")
  12.   append(doc, member "zeile1", RETURN, RETURN, RETURN, RETURN, RETURN, member "kopf", RETURN)
  13.   append(doc, RETURN, RETURN, RETURN, RETURN, member "von", RETURN, member "absender", RETURN)
  14.   append(doc, RETURN, RETURN, member "Hiermit", RETURN)
  15.   append(doc, RETURN, RETURN, member "tabelle")
  16.   append(doc, RETURN, RETURN)
  17.   append(doc, RETURN, member "Bestelltext")
  18.   append(doc, RETURN, RETURN, member "gesamtbetragzeile")
  19.   append(doc, RETURN, RETURN)
  20.   if angekreuzt = 1 then
  21.     append(doc, RETURN, member "vollm")
  22.   end if
  23.   append(doc, RETURN, RETURN, member "kennX")
  24.   print(doc)
  25.   set doc to 0
  26. end
  27.