FoxPro/Visual FoxPro - Ayuda con impresora

Cómo están amigos expertos?
Necesito de una ayudita, les agradecere si ma dan una mano con esta. Tengo reportes muy extensos, entonces, para hacerlo mas rapido en impresora matricial, lo envio primeramente en formato txt y de ahí envio en forma directa al puerto de la impresora, como sigue:

RUN TYPE "Archivo.TXT" >PRN

Lo que quiero saber si hay una mejor forma que esta. Y tambien si puedo aumentar o disminuir el cpi.
Necesito urgente.
Atte.
Fredy Ayala

-Esos reportes fueran mas rapidos si las impresoras comunes que hay en America latina fueran rapidas

- Un metodo que me funciona bastante es hacer los reporte sen Foxpro para DOS. Nunca abrirle desde VFP y llamalos asi
REPORT FORM reporte.frx TO FILE archivo.txt ASCCII
RUN TYPE archivo.txt >prn

Asi mismo lo tengo tambien, esa misma es la forma que le tiro. Lo que pasa es cuando envio de esa manera, me modifica el espacio entre columnas y cosas asi, por eso yo armo el txt en forma manual y luego con el RUN TYPE ... >PRN envio a la impresora. Lo que quiero saber es si se puede disminuir el tamaño de cpi, a traves de codigo.

Atte.

yo lo hago a puro codido y funcionan chevere
cheka este ejemplo
a los viejos tiempos mijo aunque trabajo en vfp9

Procedure Imprimir
Parameter C
FL6 = LookFile("JJSORT")
DO CASE
CASE C = 1
SET PRINTER TO FL6
SET DEVICE TO FILE &FL6
CASE C = 2
Wprn = GETPRINTER()
If Empty(Wprn)
MessageBox('Impresion Cancelada!!!',16,'JJ-System')
Return
EndIf
SET PRINTER FONT 'Courier New',12
SET DEVICE TO PRINTER
ENDCASE
SET CONSOLE OFF
ContP = 1
DO ENCABEZADO
Wait Window "Procesando la Pagina "+Alltrim(Str(ContP)) NoWait
DO WHILE !EOF()
@Prow()+1,01 Say Alltrim(SubStr(Cuenta,1,12))
@Prow()+0,15+len(Alltrim(SubStr(Cuenta,1,6))) Say Alltrim(SubStr(detalle,1,30))
@Prow()+0,77 Say Alltrim(SubStr(Status,1,1))
=inkey()
If LastKey() = 27
Que = MessageBox('Esta seguro que quieres detener el reporte',4+32,'JJ-System')
If Que = 6
@Prow()+1,1 Say "Reporte interumpido por el Usuario"
keyboard chr(13)
=inkey()
Exit
EndIf
EndIf
If Prow()=> 50
@Prow()+1,0 Say Replicate("-",80)
@Prow()+1,1 Say "Continua en la siguiente Pagina"
@Prow()+1,1 Say " "
Eject
ContP = ContP + 1
Wait Window "Procesando la Pagina "+Alltrim(Str(ContP)) NoWait
DO ENCABEZADO
EndIf
SKIP
ENDDO
@Prow()+1,0 Say Replicate("-",80)
@Prow()+3,1 Say Replicate("-",40)
@Prow()+1,1 Say "Realizado por:"
@Prow()+1,1 Say Wusuario
@Prow()+1,0 Say " "
If M.Matricial ="S" .And. C = 2
Eject
EndIf
SET PRINTER TO
SET PRINTER OFF
SET DEVICE TO SCREEN
SET CONSOLE ON
Return

Es que tu los estas haciendo en Visual Foxpro y yo me refiero a Foxpro para DOS. Los reportes en VFP con fonts tipos drafts no son tan WYSIWYG (What You See Is What You Get) que digamos.