Objetivo.
Imprimir por el puerto paralelo desde AS/400.
La impresora una Epson TM-U950 (son las que imprimen tiket, en
una cinta auditora y hacen una impresión sobre una factura)
Lenguaje usado Cobol
Interfaz: Client Acces y Rumba
Solución:
Definí caracteres hexa en cobol, estos son los caracteres de
control
para activar esas tres funciones de la impresora.:
*************************************************************
*********** SETEA LA IMPRESORA PARA EL TICKET ***********
01 CODTT.
05 CODIGO1 PIC X VALUE X"03".
05 CODIGO2 PIC X VALUE X"06".
05 CODIGO3 PIC X VALUE X"1B".
05 CODIGO4 PIC X VALUE X"40".
05 CODIGO5 PIC X VALUE X"1B".
05 CODIGO6 PIC X VALUE X"63".
05 CODIGO7 PIC X VALUE X"30".
05 CODIGO8 PIC X VALUE X"02".
*************************************************************
*************************************************************
*********** SETEA LA IMPRESORA PARA EL AUDITOR ***********
01 CODAA.
05 CODIGO1 PIC X VALUE X"03".
05 CODIGO2 PIC X VALUE X"06".
05 CODIGO3 PIC X VALUE X"1B".
05 CODIGO4 PIC X VALUE X"40".
05 CODIGO5 PIC X VALUE X"1B".
05 CODIGO6 PIC X VALUE X"63".
05 CODIGO7 PIC X VALUE X"30".
05 CODIGO8 PIC X VALUE X"01".
*************************************************************
*********** SETEA LA IMPRESORA PARA EL AUDITOR ***********
01 CODAA.
05 CODIGO1 PIC X VALUE X"03".
05 CODIGO2 PIC X VALUE X"06".
05 CODIGO3 PIC X VALUE X"1B".
05 CODIGO4 PIC X VALUE X"40".
05 CODIGO5 PIC X VALUE X"1B".
05 CODIGO6 PIC X VALUE X"63".
05 CODIGO7 PIC X VALUE X"30".
05 CODIGO8 PIC X VALUE X"01".
Luego mandar a imprimir esos registros antes de la impresion
general.
Esto que parece sencillo costo conseguir los caracteres y
definirlos.
Se aceptan sugerencias y si tienen otros caracteres de control
también se aceptan....
Suerte y un saludo Antonio
02-08-2002
|
