Problemas con Impresora Terminza Zebra GC420t

1,142 views
Skip to first unread message

mpr...@insys4.com

unread,
Nov 1, 2017, 2:15:33 PM11/1/17
to Comunidad de Visual Foxpro en Español
Tengo un problema con este tema. Mando a imprimir una etiqueta y la impresion sale bien, pero cuando mando a imprimir 2 o mas entonces imprime 2 y luego se queda titilando la luz roja aparte de que imprime la primera bien deja una etiqueta sin imprimir y luego imprime la segunda deteniendose. Y solo me permite imprimir 2 nada mas.
El codigo que estoy es el siguiente
        CASE AT(UPPER("GC420"),UPPER(LcImpresora)) > 0
            LnAjusteX = 0
            LnAjusteY = 0
            Do Case
                Case Len(LcCodigo) <= 15
                    LcBarra            = 'B' + ALLTRIM(STR(475+LnAjusteX)) + ',' + ALLTRIM(STR(200+LnAjusteY)) + ',2,1,2,6,34,N,"' + StrTran(LcCodigo,'-','/') + '"'
                    LcCodigoBarra    = 'A' + ALLTRIM(STR(300+LnAjusteX)) + ',' + ALLTRIM(STR(215+LnAjusteY)) + ',0,2,1,1,N,"' + LcCodigo + '"'
                Case Len(LcCodigo) >= 16 AND Len(LcCodigo) <= 26
                    LcBarra            = 'B' + ALLTRIM(STR(475+LnAjusteX)) + ',' + ALLTRIM(STR(200+LnAjusteY)) + ',2,1,1,6,34,N,"' + StrTran(LcCodigo,'-','/') + '"'
                    LcCodigoBarra    = 'A' + ALLTRIM(STR(270+LnAjusteX)) + ',' + ALLTRIM(STR(215+LnAjusteY)) + ',0,2,1,1,N,"' + LcCodigo + '"'
                OtherWise
                    LcBarra            = 'B' + ALLTRIM(STR(450+LnAjusteX)) + ',' + ALLTRIM(STR(200+LnAjusteY)) + ',2,1,1,6,34,N,"' + StrTran(LcCodigo,'-','/') + '"'
                    LcCodigoBarra    = 'A' + ALLTRIM(STR(220+LnAjusteX)) + ',' + ALLTRIM(STR(215+LnAjusteY)) + ',0,2,1,1,N,"' + LcCodigo + '"'
            EndCase

            LcBarra            = LcBarra + CHR(13) + CHR(10)
            LcCodigoBarra    = LcCodigoBarra + CHR(13) + CHR(10)
            LcUbica            = "Ubicacion: " + ALLTRIM(vItem.Itm_Ubica)

            LnAjusteX = 0
            LnAjusteY = 0
           
            FOR I=1 TO VAL(LcCantidad)

                ???'I8,A,001'+CHR(13)+CHR(10)+;
                CHR(13)+CHR(10)+;
                CHR(13)+CHR(10)+;
                'Q248,024'+CHR(13)+CHR(10)+;
                'q831'+CHR(13)+CHR(10)+;
                'rN'+CHR(13)+CHR(10)+;
                'S3'+CHR(13)+CHR(10)+;
                'D7'+CHR(13)+CHR(10)+;
                'ZT'+CHR(13)+CHR(10)+;
                'JF'+CHR(13)+CHR(10)+;
                'O'+CHR(13)+CHR(10)+;
                'R5,0'+CHR(13)+CHR(10)+;
                'f50'+CHR(13)+CHR(10)+;
                'N'+CHR(13)+CHR(10)+;
                'A' + ALLTRIM(STR(190+LnAjusteX)) + ',' + ALLTRIM(STR(10+LnAjusteY)) + ',0,2,1,1,N,"' + LcDireccion + '"' +CHR(13)+CHR(10)+;
                'A' + ALLTRIM(STR(190+LnAjusteX)) + ',' + ALLTRIM(STR(30+LnAjusteY)) + ',0,2,1,1,N,"' + LcRif + '"' +CHR(13)+CHR(10)+;
                'A' + ALLTRIM(STR(410+LnAjusteX)) + ',' + ALLTRIM(STR(30+LnAjusteY)) + ',0,2,1,1,N,"' + LcTelf + '"' +CHR(13)+CHR(10)+;
                'A' + ALLTRIM(STR(190+LnAjusteX)) + ',' + ALLTRIM(STR(50+LnAjusteY)) + ',0,1,1,1,N,"' + LcDetalle1 + '"' +CHR(13)+CHR(10)+;
                'A' + ALLTRIM(STR(190+LnAjusteX)) + ',' + ALLTRIM(STR(70+LnAjusteY)) + ',0,1,1,1,N,"' + LcDetalle2 + '"' +CHR(13)+CHR(10)+;
                'A' + ALLTRIM(STR(190+LnAjusteX)) + ',' + ALLTRIM(STR(90+LnAjusteY)) + ',0,2,1,1,N,"' + LcUbica + '"' +CHR(13)+CHR(10)+;
                'A' + ALLTRIM(STR(190+LnAjusteX)) + ',' + ALLTRIM(STR(110+LnAjusteY)) + ',0,2,1,1,N,"' + LcProv + '"' +CHR(13)+CHR(10)+;
                'A' + ALLTRIM(STR(410+LnAjusteX)) + ',' + ALLTRIM(STR(110+LnAjusteY)) + ',0,2,1,1,N,"' + LcMonto + '"' +CHR(13)+CHR(10)+;
                'A' + ALLTRIM(STR(190+LnAjusteX)) + ',' + ALLTRIM(STR(130+LnAjusteY)) + ',0,2,1,1,N,"' + LcFecha + '"' +CHR(13)+CHR(10)+;
                LcBarra+;
                LcCodigoBarra+;
                'P1'+CHR(13)+CHR(10)

            ENDFOR

    ENDCASE


Agradezco la colaboracion que me puedan prestar.

Armando Rodríguez B.

unread,
Nov 1, 2017, 2:46:54 PM11/1/17
to publice...@googlegroups.com

Hace algunos años utilizaba ZPL para impresión de etiquetas. Todo mi panorama cambió cuando se publicó FoxBarCode que desarrollaron Guillermo Carrero [QEPD] (Barcelona, España) y Luis María Guayán (Tucumán, Argentina).   Me olvidé del armado de las cadenas y del famoso ???. Actualmente todas las impresiones de etiquetas las hago bajo esta herramienta.

Saludos
Armando

Carlos Alfaro

unread,
Nov 1, 2017, 9:39:57 PM11/1/17
to publice...@googlegroups.com

Saludos cordiales:

 

Corriste el procedimiento de calibración de la impresora?

 

Algunas impresoras Zebra muestran los parámetros de configuración, te recomiendo que compares tus parámetros que son los que 'Q248,024' determinan el largo de la etiqueta y el espacio entre etiquetas, también debes revisar si está bien seleccionado el tipo de salto de etiqueta.

 

Buen día.

 

 

Carlos Alfaro

Reply all
Reply to author
Forward
0 new messages