Usuários SAC romerofartura 4 Posted August 11, 2020 Usuários SAC Report Share Posted August 11, 2020 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; Link to post Share on other sites
Fundadores Daniel Simoes 8,705 Posted August 11, 2020 Fundadores Report Share Posted August 11, 2020 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 Daniel Simões de Almeida O melhor TEF, é com o Projeto ACBr - Clique e Conheça Ajude o Projeto ACBr crescer - Assine o SAC (15) 2105-0750 (15)99790-2976. Link to post Share on other sites
Usuários SAC Solution romerofartura 4 Posted August 12, 2020 Author Usuários SAC Solution Report Share Posted August 12, 2020 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. 1 Link to post Share on other sites
Juliana Tamizou 4,230 Posted August 13, 2020 Report Share Posted August 13, 2020 Bom dia. Obrigada por informar, vamos manter o tópico aberto para quando você tiver alguma nova informação sobre a Zebra. Att. Juliana Tamizou Ajude o Projeto ACBr crescer - Assine o SAC (15) 2105-0750 (15)99790-2976. Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil Link to post Share on other sites
Recommended Posts