>SET DEVICE TO PRINTER
> *impresion del ticket
> rlin=0
> rcol=0
> @ PROW(),rcol say "Grupo de Especialidades" font "arial",8
> *rlin=rlin+1
> @ PROW()+1,rcol say " Farmaceuticas Génesis"
> *rlin=rlin+1
> @ PROW()+1,rcol say " S.A. de C.V."
> @ PROW()+1,rcol say "27 de Febrero No.1713 Esq.Ceiba Col. Atasta" font "arial",8
> @ PROW()+1,rcol say "C.P.86100 Villahermosa,Tabasco" font "arial",8
> @ PROW()+1,rcol say "Tel.9933525983 RFC.GEF 031223-HT2" font "arial",8
> @ PROW()+1,rcol say "R."+TRIM(mremlet) font "arial",8
> @ PROW(),rcol+15 say "F." font "arial",8
> @ PROW(),rcol+18 say mfecha pict "99/99/9999" size 1,12 font "arial",8
> @ PROW()+1,rcol say "Descripción / Marca" font "arial",8
> @ PROW()+1,rcol say "Cant. Codigo Precio Importe" font "arial",8
> SELECT tabpv
> GO TOP
> mart=0
> mtotf=0
> DO WHILE .not. EOF()
> mclamed=clamed
> mcantidad=cantidad
> mmedica=medica
> mprecio=precio
> mimporte=importe
> @ PROW()+1,rcol say mmedica font "arial",8 size 1,35
> *rlin=rlin+1
> @ PROW()+1,rcol say mcantidad pict "999" size 1,4 font "arial",8
> @ PROW(),rcol+5 say mclamed pict "@!" size 1,15 font "arial",8
> @ PROW(),rcol+21 say mprecio pict "99,999.99" size 1,10 font "arial",8
> @ PROW(),rcol+32 say mimporte pict "99,999.99" size 1,10 font "arial",8
> *rlin=rlin+1
> mart=mart+mcantidad
> mtotf=mtotf+mimporte
> SKIP
> ENDDO
> @ PROW()+1,rcol say "Total" font "arial",8
> @ PROW(),rcol+15 say mtotf pict "99,999.99" size 1,10 font "arial",8
> @ PROW()+1,rcol say "Pago " font "arial",8
> @ PROW(),rcol+15 say mpago pict "99,999.99" size 1,10 font "arial",8
> @ PROW()+1,rcol say "Cambio" font "arial",8
> @ PROW(),rcol+15 say mcambio pict "99,999.99" size 1,10 font "arial",8
> @ PROW()+2,rcol say letras(mtotf) font "arial",8
> @ PROW()+2,rcol say "# art" font "arial",8
> @ PROW(),rcol+8 say mart pict "999" size 1,4 font "arial",8
> @ PROW(),rcol+15 say TIME() pict "99:99" size 1,6 font "arial",8
> @ PROW()+2,rcol say "Gracias por su compra" font "arial",8
> *@ rlin+16,rcol say CHR(27)+"i"
> *? CHR(29)+CHR(86)+CHR(0)
> ? CHR(&H1B);"i"
> SET DEVICE TO SCREEN
> SET PRINTER TO && esto funciona para mandar directamente a la impresión

You should get some responses now. It's been a long time since I used those commands, and I will try to dig up some code, but for now try:

set alternate to prout.txt && make this file unique per user
set alternate on
? "Some data to send to the printer"
?? ESCAPE_SEQUENCE+"whatever you are sending to the printer"
*--More stuff here etc
set alternate off
set alternate to
copy prout.txt > prn


Also, check out rawprint here on the UT...