Create a file with the necessary string in it, and copy it to the printer

If adir(atemp,'papercut.txt')=0
   Strtofile(chr(27)+'i','papercut.txt')
Endif
Copy file papercut.txt to printer

>Hi,
>
>I have a procedure with
>set devi to print
>@ prow(),x say xvar
>set devi to scre
>set print off
>
>Mi problen is in this printer send a size letter page, i need cut the ticket, the parameter for cuting, are "esc"+"i"
>
>I put @ prow(),x say chr(27)+"i"
>but not work,
>
>You can help me?
>
>Thank's