Tengo problemas con impresión en ticketera
Hola Soy Luis, realize una pequeña aplicación de punto de venta, pero al mandar imprimir sale la impresión hasta que me salgo de la aplicación o de visualfox, usando instrucciones set printer on, set printer to y setprinter off,¿? Y @ say, que puedo hacer o como debo de mandarla instrucción. [email protected] - [email protected]
1 Respuesta
Respuesta de speralta72
1
Yo mando imprimir de la siguiente forma, espero te sirva si tienes dudas de esto escríbeme
*----inicio de impresion
SELECT FACTURA
SEEK FAC_INI &&& Se pos.en facturas IF !FOUND()
FAC_A=RECNO(0)
IF FAC_A<>0 .AND. FAC_A<=RECC()
GO FAC_A
ENDIF
ENDIF
LOCATE REST FOR FC101>=FAC_INI WHILE ;
FC101<=FAC_FIN
SET DEVICE TO PRINT
SET PRINT ON
SET CONSOLE OFF
SET PRINTER TO &DIM80 **donde dim80
**es el puerto
DO WHILE FOUND()
REP_REN=PROW()
@ REP_REN,0 SAY CHR(27)+CHR(120)+;
CHR(49) **abre cajon
@ REP_REN,25 SAY " Hora: "+A
REP_REN=REP_REN+2
SELE FACTURA
@REP_REN,0 SAY "Cant. ;
Descripcion ;
Precio ;
Importe"
@REP_REN+1,0 SAY REPL("-",40)
REP_REN=REP_REN+2
*----- imprime el detalle de la fact.
CONTINUE
ENDDO
@REP_REN,0 SAY REPL("-",40)
@REP_REN,6 SAY "Gracias por su Compra"
SET PRINT OFF
SET CONSOLE ON
SET PRINTER TO
SET DEVICE TO SCREEN
On key
*----inicio de impresion
SELECT FACTURA
SEEK FAC_INI &&& Se pos.en facturas IF !FOUND()
FAC_A=RECNO(0)
IF FAC_A<>0 .AND. FAC_A<=RECC()
GO FAC_A
ENDIF
ENDIF
LOCATE REST FOR FC101>=FAC_INI WHILE ;
FC101<=FAC_FIN
SET DEVICE TO PRINT
SET PRINT ON
SET CONSOLE OFF
SET PRINTER TO &DIM80 **donde dim80
**es el puerto
DO WHILE FOUND()
REP_REN=PROW()
@ REP_REN,0 SAY CHR(27)+CHR(120)+;
CHR(49) **abre cajon
@ REP_REN,25 SAY " Hora: "+A
REP_REN=REP_REN+2
SELE FACTURA
@REP_REN,0 SAY "Cant. ;
Descripcion ;
Precio ;
Importe"
@REP_REN+1,0 SAY REPL("-",40)
REP_REN=REP_REN+2
*----- imprime el detalle de la fact.
CONTINUE
ENDDO
@REP_REN,0 SAY REPL("-",40)
@REP_REN,6 SAY "Gracias por su Compra"
SET PRINT OFF
SET CONSOLE ON
SET PRINTER TO
SET DEVICE TO SCREEN
On key
