ACBrETQ - Impressora ARGOX 0S-2140 - Ativar BACKFEED [ resolvido ]

gabriel.hilbig · 11 Março

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;