/* Shadow.p
   How to print text...
*/   
   { xprint.i}

DEF VAR F      AS CHAR NO-UNDO.
DEF VAR myText AS CHAR NO-UNDO.
    
F = SESSION:TEMP-DIRECTORY + "shadow.xpr".

OUTPUT TO VALUE(F).

myText = "vpxPrint is really easy to use and provides a lot of pleasure.".

PUT CONTROL "<preview=zoomtowidth>".
    
    PUT CONTROL 
        "<UNITS=MM><LPI=1.5>"
        "<#1><R+10><C+60><FTahoma><P48><B><FRAME#1>"
        "<FGCOLOR=GRAY><USE#1>"
              myText
        "</USE><=#1><at=-0.7,-0.7><#1>"
        "<FGCOLOR=BLACK>"
        "<R+10><C+60><FRAME#1><USE#1>"
              myText.

OUTPUT TO TERMINAL.
RUN printfile( F ).