La empresa ha adquirido una impresora ZEBRA modelo GC420T, para la impresión de etiquetas autoadhesivas para las operaciones de packing en el almacén. La tengo configurada correctamente y ya estoy haciendo las pruebas, estoy imprimiendo sobre etiquetas de 10cm x 10cm. El problema que tengo es que al finalizar la impresión de la etiqueta la impresora lanza una luz roja parpadeante indicando un error y ya no puedo continuar con la impresión de la siguiente etiqueta.
Aquí mi código:
Code: Select all
nBultoX := (oPacks:fields('PAK_CAJA'):Value+oPacks:fields('PAK_BOLS'):Value)
nBultoX := INT( nBultoX )
nTTF1 := WAPI_ADDFONTRESOURCEEX( cTTF1 )
cTermica := MEMOREAD( 'C:\FARMACOM\PACKPRIN.TXT' )
SELECT PRINTER cTermica ;
ORIENTATION PRINTER_ORIENT_PORTRAIT ;
PAPERSIZE PRINTER_PAPER_USER ;
PAPERLENGTH 100 ;
PAPERWIDTH 100 ;
QUALITY PRINTER_RES_HIGH
START PRINTDOC NAME cDocName
FOR nTiks = 1 TO nBultoX
START PRINTPAGE
@ 7, 5 PRINT 'CLIENTE : '+oPacks:fields('CLIE_COD'):Value FONT "Arial" SIZE 16 BOLD
@ 17, 5 PRINT oPacks:fields('CLIE_NOM'):Value FONT "Arial" SIZE 16 BOLD
@ 27, 5 PRINT oPacks:fields('DIRE_DIR'):Value FONT "Arial" SIZE 16 BOLD
@ 37, 5 PRINT RTRIM(oPacks:fields('DIRE_DIS'):Value)+'-'+RTRIM(oPacks:fields('DIRE_PRV'):Value)+'-'+RTRIM(oPacks:fields('DIRE_DPT'):Value) FONT "Arial" SIZE 16 BOLD
@ 47, 5 PRINT 'RUTA : '+oPacks:fields('DIRE_ZON'):Value FONT "Arial" SIZE 16 BOLD
@ 60, 5 PRINT 'PACKING : '+STRZERO(oPacks:fields('PAK_NUME'):Value,10) FONT "Arial" SIZE 16 BOLD
@ 67, 5 PRINT 'BULTOS : '+VALSTR(nTiks)+' / '+VALSTR(nBultoX) FONT "Arial" SIZE 16 BOLD
@ 75, 5 PRINT 'ESTAC. : '+oPacks:fields('PAK_TERM'):Value FONT "Arial" SIZE 16 BOLD
@ 75, 40 PRINT 'PACKER : '+oPacks:fields('PAK_OPER'):Value FONT "Arial" SIZE 16 BOLD
@ 83, 5 PRINT 'FECHA : '+SELLO2DATE(oPacks:fields('PAK_STMP'):Value) FONT "Arial" SIZE 16 BOLD
@ 83, 40 PRINT 'HORA : '+SELLO2TIME(oPacks:fields('PAK_STMP'):Value) FONT "Arial" SIZE 16 BOLD
@ 91, 5 PRINT '*'+VALSTR(oPacks:fields('PAK_NUME'):Value)+'*' FONT cFont1 SIZE 22 BOLD
@ 98, 5 PRINT '*' FONT cFont1 SIZE 22 BOLD
END PRINTPAGE
NEXT
END PRINTDOC
nTTF1 := WAPI_REMOVEFONTRESOURCEEX( cTTF1 )
Consulta adicional : Estoy usando el font "Barcode 39" para la impresión de código de barras pero no me lo lee el scaner, ¿ algún otro font que sea más legible para este tipo de impresoras ?
Saludos cordiales a todos.