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.