FoxPro/Visual FoxPro - Ayuda con impresora

   
Vista:

Ayuda con impresora

Publicado por Fredy Ayala (145 intervenciones) el 10/09/2008 19:26:44
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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ayuda con impresora

Publicado por Plinio (7771 intervenciones) el 10/09/2008 21:50:37
-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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ayuda con impresora

Publicado por Fredy Ayala (145 intervenciones) el 10/09/2008 21:54:56
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.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ayuda con impresora

Publicado por jose camilo (688 intervenciones) el 11/09/2008 16:12:35
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ayuda con impresora

Publicado por Plinio (7771 intervenciones) el 11/09/2008 19:01:16
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.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar