ACBrETQ - Pulando linha

[romerofartura]

Boa tarde, estou com problemas na impressão de etiquetas pelo ACBrETQ quem puder dar uma orientação que eu possa seguir.
Nas impressoras Elgin L42Pro em PPLB e na na Zebra GC420t em EPL2 (configurando para cada sua posição vertical e horizontal correta) ela imprime uma etiqueta e pula outra, seja quantas etiquetas eu mandar. 
Já fiz reset e calibração da etiqueta  nas duas e continua o mesmo problema.

Fiz na minha impressora Argox OS 214Plus em PPLA e a função funciona sem pular (porém usei outra etiqueta, não tenho em mãos a mesma do cliente).

Segue a função caso eu esteja fazendo algo errado ou alguma sugestão do que possa ser.

 

  try
    acbr_Etiqueta.Desativar;
    acbr_Etiqueta.DPI           := TACBrETQDPI(FConfiguracaoPDV.IMP_TERMICA.TERMICA_DPI);
    acbr_Etiqueta.Modelo        := TACBrETQModelo(FConfiguracaoPDV.IMP_TERMICA.TERMICA_MODELO);
    acbr_Etiqueta.LimparMemoria := (FConfiguracaoPDV.IMP_TERMICA.TERMICA_LMEMORIA = 0);
    acbr_Etiqueta.Porta         := FConfiguracaoPDV.IMP_TERMICA.TERMICA_PORTA;
    acbr_Etiqueta.Temperatura   := 10;
    acbr_Etiqueta.Velocidade    := -1;
    acbr_Etiqueta.Unidade       := etqMilimetros;
    acbr_Etiqueta.Origem     := TACBrETQOrigem(cbbOrigem.ItemIndex);

    if chkFeed.Checked then
      acbr_Etiqueta.BackFeed := bfOn
    else
      acbr_Etiqueta.BackFeed := bfOff;

    acbr_Etiqueta.Ativar;
    Result := True;
  except
    on E:Exception do
      ShowMessage('Erro ativando impressora térmica.'+ sLineBreak + e.ToString());
  end;


  FDM_Etiquetas.First;
      while not FDM_Etiquetas.Eof do
      begin
          acbr_Etiqueta.IniciarEtiqueta;

          FDQ_EtiqConfLn.First;
          while not FDQ_EtiqConfLn.Eof do
          begin
            ORIENTACAO := OrientacaoRetornar(FDQ_EtiqConfLn.FieldByName('ORIENTACAO').AsInteger);
            EAN_BARRA_LARGA  := FDQ_EtiqConfLn.FieldByName('EAN_BARRA_LARGA').AsInteger;
            EAN_BARRA_FINA  := FDQ_EtiqConfLn.FieldByName('EAN_BARRA_FINA').AsInteger;
            EAN_ALTURA  := FDQ_EtiqConfLn.FieldByName('EAN_ALTURA').AsInteger;
            EAN_EXIBE_CODIGO  := FDQ_EtiqConfLn.FieldByName('EAN_EXIBE_CODIGO').AsInteger;


            EAN_TIPO := FDQ_EtiqConfLn.FieldByName('EAN_TIPO').AsString;
            FONTE := FDQ_EtiqConfLn.FieldByName('FONTE').AsInteger;
            MULTIPLICADORH := FDQ_EtiqConfLn.FieldByName('MULTIPLICADORH').AsInteger;
            MULTIPLICADORV := FDQ_EtiqConfLn.FieldByName('MULTIPLICADORV').AsInteger;
            VERTICAL := FDQ_EtiqConfLn.FieldByName('VERTICAL').AsInteger;
            HORIZONTAL := FDQ_EtiqConfLn.FieldByName('HORIZONTAL').AsInteger;
            SUBFONTE := FDQ_EtiqConfLn.FieldByName('SUBFONTE').AsInteger;
            REVERSO := FDQ_EtiqConfLn.FieldByName('REVERSO').AsInteger;
            TEXTO_LIVRE := FDQ_EtiqConfLn.FieldByName('TEXTO_LIVRE').AsString;


            if ((FDQ_EtiqConfLn.FieldByName('CAMPO').AsString = 'CODBARRAS') and (FDQ_EtiqConfLn.FieldByName('TIPO').AsInteger in [3..5])) then
            begin
              TipoEAN    := EAN_Tratar2(FDM_Etiquetas.FieldByName('CODBARRAS').AsString, acbr_Etiqueta.Modelo);

              if (EAN_EXIBE_CODIGO = 1) then
                exibeCodigo := becSIM
              else
                exibeCodigo := becNAO;

              acbr_Etiqueta.ImprimirBarras(ORIENTACAO, TipoEAN, EAN_BARRA_LARGA, EAN_BARRA_FINA, VERTICAL, HORIZONTAL, FDM_Etiquetas.FieldByName('CODBARRAS').AsString, EAN_ALTURA, exibeCodigo);

            end
            else
            begin
              nomeCampo      := FDQ_EtiqConfLn.FieldByName('CAMPO').AsString;
              textoVlr       := ifThen((nomeCampo = 'PRVISTA'), 'R$ ', '');
              texto          := Copy(textoVlr + FDM_Etiquetas.FieldByName(nomeCampo).AsString, 0, 29); //textoVlr + copy(FDM_Etiquetas.FieldByName(nomeCampo).AsString, 1, 20)

              if (nomeCampo = 'TEXTO_LIVRE') then
                texto := FDQ_EtiqConfLn.FieldByName('TEXTO_LIVRE').AsString;

              acbr_Etiqueta.ImprimirTexto(ORIENTACAO, FONTE, MULTIPLICADORH, MULTIPLICADORV, VERTICAL, HORIZONTAL, texto);
            end;

            FDQ_EtiqConfLn.Next;
          end;

         //acbr_Etiqueta.FinalizarEtiqueta(FDM_Etiquetas.FieldByName('QTDE').AsInteger, FConfiguracaoPDV.IMP_TERMICA.TERMICA_AVANCO);
         acbr_Etiqueta.Imprimir(FDM_Etiquetas.FieldByName('QTDE').AsInteger, FConfiguracaoPDV.IMP_TERMICA.TERMICA_AVANCO);
        FDM_Etiquetas.Next;
      end;

      //acbr_Etiqueta.Imprimir(1, FConfiguracaoPDV.IMP_TERMICA.TERMICA_AVANCO);
      acbr_Etiqueta.Desativar;

 

[Daniel Simoes]

Tudo indica que o sensor de GAP não está posicionado corretamente, para essa etiqueta...

Se não me engano, a L42Pro, permite ajustar o posicionamento do Sensor de GAP

[romerofartura]

Ontem instalamos o bartender pego no site da elgin para ver se poderia ser a etiqueta com problemas, mas imprimiu normalmente na Elgin L42Pro sem pular.
Hoje, após ver a resposta aqui no fórum conectei no cliente para fazer o procedimento proposto, mas antes de qualquer ajuste tentei uma impressão sem alterar nada, e por incrível que pareça funcionou perfeitamente.  Coisas de informática!
Como as duas impressoras estão no mesmo PC, pode ter sido algum arquivo do bartender que atualizou ao ser instalado ou ao imprimir por ele a detecção da etiqueta foi feita corretamente.
Mas de qualquer forma funcionou.

Quanto a zebra por hora não vamos mais usar, depois passamos ela em outro PC para testes.

Obrigado pela atenção.

[Juliana Tamizou]

Bom dia.

Obrigada por informar, vamos manter o tópico aberto para quando você tiver alguma nova informação sobre a Zebra.

Att.