home *** CD-ROM | disk | FTP | other *** search
/ PC Direkt 1998 #11 / PCDIREKT_1198.bin / SHOWDATA / ECKESHOP.DXR / 00159.ls < prev    next >
Encoding:
Text File  |  1998-03-20  |  1.3 KB  |  26 lines
  1. on dummy
  2.   set R to rect(0, 250, 500, 580)
  3.   set vline to the left of R + 30
  4.   set vLine2 to the left of R + 300
  5.   set vLine3 to the left of R + 390
  6.   set vLine4 to the left of R + 480
  7.   set hline to the top of R + 33
  8.   set leading to 15
  9.   printer(mtextbox, 0, the top of R, printer(mgetpagewidth), the bottom of R + 10, 0)
  10.   appendstyledtext(printer, the number of member "Anzahl3", 0)
  11.   printer(mtextbox, vline + 3, the top of R, printer(mgetpagewidth), the bottom of R + 10, 0)
  12.   appendstyledtext(printer, the number of member "Name3", 0)
  13.   printer(mtextbox, vLine2 + 3, the top of R, printer(mgetpagewidth), the bottom of R + 10, 0)
  14.   appendstyledtext(printer, the number of member "EPreis3", 0)
  15.   printer(mtextbox, vLine3 + 3, the top of R, printer(mgetpagewidth), the bottom of R + 10, 0)
  16.   appendstyledtext(printer, the number of member "GPreis3", 0)
  17.   printer(mline, vline, the top of R, vline, the bottom of R)
  18.   printer(mline, vLine2, the top of R, vLine2, the bottom of R)
  19.   printer(mline, vLine3, the top of R, vLine3, the bottom of R)
  20.   printer(mline, vLine4, the top of R, vLine4, the bottom of R)
  21.   repeat with cnt = 1 to the number of lines in field "Anzahl2" - 2
  22.     printer(mline, the left of R, hline, the right of R, hline)
  23.     set hline to hline + leading
  24.   end repeat
  25. end
  26.