Pesquisar na Comunidade
Showing results for tags 'os-2140'.
Encontrado 1 registro
-
ACBrETQ - Impressora ARGOX 0S-2140 - Ativar BACKFEED [ resolvido ]
um tópico no fórum postou gabriel.hilbig ACBrSerial
Após muito bater cabeça e quase perder clientes resolvi o BACKFEED com uma dica aqui do FÓRUM ACBR Usando etq.Imprimir(1, 600); Abaixo o código completo Uso dois tamanhos de etiqueta para o mesmo conteúdo A etiqueta tem a característica de identificar o volume O comando imprimir precisa ficar dentro do FOR //declaração de vertical position vpos[n,m] : n => tipo de etiqueta, m => sequencia de impressão //n=0 -> etiqueta 100x50 vpos[0,0]:=14; vpos[0,1]:=10; vpos[0,2]:=6; vpos[0,3]:=2; vpos[0,4]:=30; vpos[0,5]:=25; vpos[0,6]:=20; vpos[0,7]:=35; vpos[0,8]:=40; //n=1 -> etiqueta 100x70 vpos[1,0]:=14; vpos[1,1]:=10; vpos[1,2]:=6; vpos[1,3]:=2; vpos[1,4]:=40; vpos[1,5]:=35; vpos[1,6]:=30; vpos[1,7]:=55; vpos[1,8]:=60; //-- iquant := TJSONObject(transp).get('qVol'); for i:=1 to iquant do begin etq.IniciarEtiqueta; //bloco emitente etq.ImprimirTexto(orNormal,2,1,2,vpos[ietq,0],10,sEMITENTE); etq.ImprimirTexto(orNormal,1,1,2,vpos[ietq,1],10,sEM_LGR); etq.ImprimirTexto(orNormal,1,1,2,vpos[ietq,2],10,sEM_CID); etq.ImprimirTexto(orNormal,1,1,2,vpos[ietq,3],10,sCOMPL); //--bloco emitente //bloco destinatário etq.ImprimirTexto(orNormal,2,1,2,vpos[ietq,4],10,'Destinatario: '+sDESTINATARIO); etq.ImprimirTexto(orNormal,2,1,2,vpos[ietq,5],10,sDEST_LGR); etq.ImprimirTexto(orNormal,2,1,2,vpos[ietq,6],10,sDEST_CID); //--bloco destinatário //bloco transportador etq.ImprimirTexto(orNormal,2,1,2,vpos[ietq,7],10,'Transportador: '+ TJSONObject(transp).get('transp_xNome')); etq.ImprimirTexto(orNormal,2,1,2,vpos[ietq,8],10,'Nº Fiscal: '+TJSONObject(jsreq).get('nNF')+' Nº Volumes:'+inttostr(i)+'/'+inttostr(iquant)); //--bloco transportador ACBrETQ.FinalizarEtiqueta(1, 0); etq.Imprimir(1, 600); end; etq.Desativar;
