- Code: Select all Expand view
#include "Fivewin.ch"
FUNCTION MAIN()
LOCAL oPrn, oFnt
PRINT oPrn PREVIEW
DEFINE FONT oFnt NAME "Arial" SIZE 0, -12 OF oPrn
PAGE
oPrn:Say( 100, 100, "This is a test", oFnt, , CLR_HRED )
oPrn:Say( 500, 100, "This is a test", oFnt )
ENDPAGE
ENDPRINT
RELEASE FONT oFnt
RETURN NIL
EMG