FoxPro/Visual FoxPro - Impresora Matricial

   
Vista:

Impresora Matricial

Publicado por Fredy Ayala (145 intervenciones) el 08/09/2008 22:55:43
Buenas amigos! Como están? Necesito de sus ayuda.
Estoy desarrollando una aplicacion y lo que pasa es que en la aplicacion va haber muchos reportes largos y pesados, lo hice a traves del diseñador de reportes del Visual FoxPro, en tipo de fuente le puse DRAFT CPI 10, pero igual es lenta al imprimir en la matricial, será que hay alguna forma para enviar directo al puerto como se hacía en DOS?

Atte. y gracias por el apoyo
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:Impresora Matricial

Publicado por jose camilo (688 intervenciones) el 11/09/2008 16:24:14
si gracias a dios
todos mis reportes los hago a puro codigo mijo

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