2003-02-08 08:44

'From:  midiprog2000   Sat Feb 8, 2003  2:16 am

'--------------start code------------------
     CREATE font1 AS QFONT
      size = 30
     END CREATE

     WITH printer
      .begindoc
      .font = font1
      .textout (100, 100, "This is a print test", &h00ff00, -1)
' &h00ff00 defines the text colour, value is hex,
' and the rang order is BGR (Blue, Green, Red)

      .enddoc
     END WITH

     END
'--------------end code---------------------

2003-02-08 08:44