FoxPro/Visual FoxPro - problemas con impresora matricial

 
Vista:
sin imagen de perfil
Val: 6
Ha disminuido su posición en 2 puestos en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

problemas con impresora matricial

Publicado por RAUL (4 intervenciones) el 08/12/2020 19:13:53
BUENAS TARDES AMIGOS RECIBAN UN CORDIAL SALUDO DESDE MEXICO, FIJENESE YO TENGO UNA IMPRESORA EPSON LX-350 MATRICIAL Y USO RECIBOS DE AGUA POTABLE QUE ES PAPEL CONTINUO, TRATANDO DE CORREGIR EL ERROR DE QUE SE ME CORRE LA INFORMACION, LE AGREGUE A EL EVENTO CLICK DE MI BOTON IMPRIMIR Y JUNTO CON EL RECUADRO QUE SALE PARA LA IMPRESORA Y CUANTAS HOJAS QUIERO IMPRIMIR, SALE UN MENSAJE DE ERROR DE COMUNICACION INDICANDOME QUE CHEQUE QUE LA IMPRESORA ESTE CONECTADA Y ENCENDIDA Y SI LO ESTA, ES MAS, HICE LA IMPRESION DE LA HOJA DE PRUEBA SIN NINIGUN PROBLEMA,Y AL DARLE ACEPTAR LA IMPRESORA ME SACA EL PAPEL.

LES ADJUNTO PANTALLAS DE LO QUE ESTOY HACIENDO.

DE ANTEMANO LES AGRADEZCO SU AYUDA Y ESPERO SUS COMENTARIOS.

1
2
3
4
5
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

problemas con impresora matricial

Publicado por jose camilo (805 intervenciones) el 08/12/2020 22:25:41
yo haría el reporte a los viejos tiempos, puro codigo

Wprn = GETPRINTER()
If Empty(Wprn)
MessageBox('Impresion Cancelada!!!',16,'JJ-System')
Return
EndIf
SET PRINTER To Name "&Wprn"
SET DEVICE TO printer
SET PRINTER FONT 'Courier New',12
If WMatricial ="S"
??? CHR(18)
EndIf
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 WMatricial="S" .And. C = 2
Eject
EndIf
SET PRINTER TO
SET PRINTER OFF
SET DEVICE TO SCREEN
SET CONSOLE ON
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