Ir para conteúdo
  • Cadastre-se

dev botao

Configurar O Acbrmonitor Para Impressora Argox - Usb


Ver Solução Respondido por Vinicius Souza,
  • Este tópico foi criado há 3466 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • 2 semanas depois ...

Bom dia Daniel, deu certo !!!!

 

Agora estou com outros problemas.

 

1° - Eu preciso mandar imprimir varias etiquetas ao mesmo tempo com diferentes informações. Eu estou usando o seguinte comando: 

 

ETQ.SetTemperatura(15)
ETQ.Imprimir(0, 0);
 
ETQ.ImprimirTexto( 0, 3, 1, 1, 160, 680, 1Teste de etiqueta)
ETQ.ImprimirTexto( 0, 2, 1, 1, 120, 680, 1descricao do produto)
ETQ.ImprimirTexto( 0, 2, 1, 1, 140, 530, 1codigopro)
 
ETQ.ImprimirTexto( 0, 3, 1, 1, 160, 680, 2Teste de etiqueta)
ETQ.ImprimirTexto( 0, 2, 1, 1, 120, 680, 2descricao do produto)
ETQ.ImprimirTexto( 0, 2, 1, 1, 140, 530, 2codigopro)
 
ETQ.ImprimirTexto( 0, 3, 1, 1, 160, 680, 3Teste de etiqueta)
ETQ.ImprimirTexto( 0, 2, 1, 1, 120, 680, 3descricao do produto)
ETQ.ImprimirTexto( 0, 2, 1, 1, 140, 530, 3codigopro)
 
ETQ.ImprimirTexto( 0, 3, 1, 1, 160, 680, 4Teste de etiqueta)
ETQ.ImprimirTexto( 0, 2, 1, 1, 120, 680, 4descricao do produto)
ETQ.ImprimirTexto( 0, 2, 1, 1, 140, 530, 4codigopro)
 
ETQ.ImprimirTexto( 0, 3, 1, 1, 160, 680, 5Teste de etiqueta)
ETQ.ImprimirTexto( 0, 2, 1, 1, 120, 680, 5descricao do produto)
ETQ.ImprimirTexto( 0, 2, 1, 1, 140, 530, 5codigopro)
 
ETQ.ImprimirTexto( 0, 3, 1, 1, 160, 680, 6Teste de etiqueta)
ETQ.ImprimirTexto( 0, 2, 1, 1, 120, 680, 6descricao do produto)
ETQ.ImprimirTexto( 0, 2, 1, 1, 140, 530, 6codigopro)
 
ETQ.ImprimirTexto( 0, 3, 1, 1, 160, 680, 7Teste de etiqueta)
ETQ.ImprimirTexto( 0, 2, 1, 1, 120, 680, 7descricao do produto)
ETQ.ImprimirTexto( 0, 2, 1, 1, 140, 530, 7codigopro)
 
ETQ.ImprimirTexto( 0, 3, 1, 1, 160, 680, 8Teste de etiqueta)
ETQ.ImprimirTexto( 0, 2, 1, 1, 120, 680, 8descricao do produto)
ETQ.ImprimirTexto( 0, 2, 1, 1, 140, 530, 8codigopro)
 
ETQ.SetAvanco(4)
 

 

Como eu modifico ele para imprimir varias etiquetas ao mesmo tempo?

 

2° problema que estou tendo é imprimir o código de barra. 

 

Estou usando o seguinte comando:

 

 
ETQ.SetTemperatura(15)
ETQ.Imprimir(0, 0);
 
ETQ.ImprimirTexto( 0, 3, 1, 1, 160, 680, 1Teste de etiqueta)

ETQ.ImprimirBarras( 0, 'E30', '2', '2', 00, 15, '7896003701685', 080, becNAO);

ETQ.SetAvanco(4)

 

Ele não imprimir o codigo de barra. Onde estou errando?

 

 

Att. Vinicius.

Link para o comentário
Compartilhar em outros sites

  • Fundadores

Você precisa chamar "Imprimir" para cada Linha de etiquetas...

 

Alguns tipo de código de barras tem regras... aparentemente vc está tentando o EAN13... percebo que o código possui 13 digitos... o dígito verificador está correto ?

Acho que se você enviar com 12 caracteres a impressora computa o dig.verificador

Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

Daniel, 

Ta quase funcionando!!

 

Eu modifiquei para esse codigo

 

ETQ.ATIVAR
ETQ.SetAvanco(0)
ETQ.SetTemperatura(16)
ETQ.ImprimirBarras(0,EAN-8, 3, 2, 1, 383, 1234, 0)
ETQ.ImprimirTexto( 0, 3, 1, 1, 50, 670, 3Teste de etiqueta)
ETQ.ImprimirTexto( 0, 2, 1, 1, 40, 670, 3descricao do produto)
ETQ.ImprimirTexto( 1, 2, 1, 1, 50, 640, 54321)
ETQ.IMPRIMIR(0, 0)
 
ETQ.ImprimirBarras(0,EAN-8, 3, 2, 1, 383, 1234, 0)
ETQ.ImprimirTexto( 0, 3, 1, 1, 50, 670, 3Teste de etiqueta)
ETQ.ImprimirTexto( 0, 2, 1, 1, 40, 670, 3descricao do produto)
ETQ.ImprimirTexto( 1, 2, 1, 1, 50, 640, 54321)
ETQ.IMPRIMIR(0, 0)
 
ETQ.ImprimirBarras(0,EAN-8, 3, 2, 1, 383, 1234, 0)
ETQ.ImprimirTexto( 0, 3, 1, 1, 50, 670, 3Teste de etiqueta)
ETQ.ImprimirTexto( 0, 2, 1, 1, 40, 670, 3descricao do produto)
ETQ.ImprimirTexto( 1, 2, 1, 1, 50, 640, 54321)
ETQ.IMPRIMIR(0, 0)
 
ETQ.ImprimirBarras(0,EAN-8, 3, 2, 1, 383, 1234, 0)
ETQ.ImprimirTexto( 0, 3, 1, 1, 50, 670, 3Teste de etiqueta)
ETQ.ImprimirTexto( 0, 2, 1, 1, 40, 670, 3descricao do produto)
ETQ.ImprimirTexto( 1, 2, 1, 1, 50, 640, 54321)
ETQ.IMPRIMIR(0, 0)
 
ETQ.ImprimirBarras(0,EAN-8, 3, 2, 1, 383, 1234, 0)
ETQ.ImprimirTexto( 0, 3, 1, 1, 50, 670, 3Teste de etiqueta)
ETQ.ImprimirTexto( 0, 2, 1, 1, 40, 670, 3descricao do produto)
ETQ.ImprimirTexto( 1, 2, 1, 1, 50, 640, 54321)
ETQ.IMPRIMIR(0, 0)
 
ETQ.ImprimirBarras(0,EAN-8, 3, 2, 1, 383, 1234, 0)
ETQ.ImprimirTexto( 0, 3, 1, 1, 50, 670, 3Teste de etiqueta)
ETQ.ImprimirTexto( 0, 2, 1, 1, 40, 670, 3descricao do produto)
ETQ.ImprimirTexto( 1, 2, 1, 1, 50, 640, 54321)
ETQ.IMPRIMIR(0, 0)
 
O codigo de barra, começa no meio da da etiqueta e vai até a metade da outra etiqueta.
 
Se eu tiro a instrução para imprimir a etiqueta, fica perfeito !!!
 
O que pode estar acontecendo?

post-2002-0-38017900-1412087609_thumb.jp

Link para o comentário
Compartilhar em outros sites

  • Fundadores

Aparentemente essa etiqueta não possui "GAP"... O ACBrETQ não possui comandos para controlar o tamanho da etiqueta... ele deixa isso a cargo da impressora, que usa o sensor de GAP para saber quando chegou o final da etiqueta

Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

Como que eu faço para descobrir se tem o "GAP" ?

 

Assim.....se eu executo esse comando, funciona perfeitamente MAS PULA SEMPRE UMA ETIQUETA.

 

ETQ.ATIVAR
ETQ.SetAvanco(0)
ETQ.SetTemperatura(20)
ETQ.ImprimirBarras(0,EAN-8, 3, 2, 1, 380, 1234, 0)
ETQ.ImprimirTexto( 0, 3, 1, 1, 50, 670, 3Teste de etiqueta)
ETQ.ImprimirTexto( 0, 2, 1, 1, 1, 670, 3descricao do produto)
ETQ.IMPRIMIR(0, 0)
 
ETQ.ImprimirBarras(0,EAN-8, 3, 2, 90, 380, 1234, 0)
ETQ.ImprimirTexto( 0, 3, 1, 1, 160, 670, 3Teste de etiqueta)
ETQ.ImprimirTexto( 0, 2, 1, 1, 120, 670, 3descricao do produto)
ETQ.IMPRIMIR(0, 0)
 
 
ETQ.ImprimirBarras(0,EAN-8, 3, 2, 90, 380, 1234, 0)
ETQ.ImprimirTexto( 0, 3, 1, 1, 160, 670, 3Teste de etiqueta)
ETQ.ImprimirTexto( 0, 2, 1, 1, 120, 670, 3descricao do produto)
ETQ.IMPRIMIR(0, 0)
 
ETQ.ImprimirBarras(0,EAN-8, 3, 2, 90, 380, 1234, 0)
ETQ.ImprimirTexto( 0, 3, 1, 1, 160, 670, 3Teste de etiqueta)
ETQ.ImprimirTexto( 0, 2, 1, 1, 120, 670, 3descricao do produto)
ETQ.IMPRIMIR(0, 0)
 
ETQ.ImprimirBarras(0,EAN-8, 3, 2, 90, 380, 1234, 0)
ETQ.ImprimirTexto( 0, 3, 1, 1, 160, 670, 3Teste de etiqueta)
ETQ.ImprimirTexto( 0, 2, 1, 1, 120, 670, 3descricao do produto)
ETQ.IMPRIMIR(0, 0)
 

 

Mas não pode pular uma etiqueta. O sistema antigo não pula etiqueta

post-2002-0-00112000-1412090716_thumb.jp

Editado por Vinicius Souza
Link para o comentário
Compartilhar em outros sites

  • Fundadores
Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

Daniel, liguei no fornecedor.....e ele me disse que a etiqueta é GAP.....o modelo dela que é diferente.

 

O que eu nao to conseguindo entender é que o sistema antigo imprimi perfeitamente, até a qualidade da impressão é melhor (o codigo de barra e o que é escrito é mais nítido).

 

Outra coisa que nao entendo é que se eu usar o codigo 1 (nao tem codigo de barra), imprimi perfeitamente. Se eu uso o codigo 2, sempre pula uma etiqueta. No caso do codigo 3, o codigo de barra começa na metade de uma e vai até a metade da outra e o texto fica normal (pula 1).

 

Acho que o erro esteja no meu sistema...

 

Por favor, me uma ajuda.....to no limite com esse cliente.

 

Código 1

ETQ.ATIVAR
ETQ.SetAvanco(0)
ETQ.SetTemperatura(20)
ETQ.ImprimirTexto( 0, 3, 1, 1, 50, 670, 3Teste de etiqueta)
ETQ.ImprimirTexto( 0, 2, 1, 1, 1, 670, 3descricao do produto)
ETQ.IMPRIMIR(0, 0)
 
ETQ.ImprimirTexto( 0, 3, 1, 1, 50, 670, 3Teste de etiqueta)
ETQ.ImprimirTexto( 0, 2, 1, 1, 1, 670, 3descricao do produto)
ETQ.IMPRIMIR(0, 0)

Código 2

ETQ.ATIVAR
ETQ.SetAvanco(0)
ETQ.SetTemperatura(16)
ETQ.ImprimirBarras(0,EAN-8, 3, 2, 90, 380, 1234, 0)
ETQ.ImprimirTexto( 0, 3, 1, 1, 160, 670, 3Teste de etiqueta)
ETQ.ImprimirTexto( 0, 2, 1, 1, 120, 670, 3descricao do produto)
ETQ.IMPRIMIR(0, 0)
 
ETQ.ImprimirBarras(0,EAN-8, 3, 2, 90, 380, 1234, 0)
ETQ.ImprimirTexto( 0, 3, 1, 1, 160, 670, 3Teste de etiqueta)
ETQ.ImprimirTexto( 0, 2, 1, 1, 120, 670, 3descricao do produto)
ETQ.IMPRIMIR(0, 0)
 

Código 3

ETQ.ATIVAR
ETQ.SetAvanco(0)
ETQ.SetTemperatura(20)
ETQ.ImprimirBarras(0,EAN-8, 3, 2, 1, 380, 1234, 0)
ETQ.ImprimirTexto( 0, 3, 1, 1, 50, 670, 3Teste de etiqueta)
ETQ.ImprimirTexto( 0, 2, 1, 1, 1, 670, 3descricao do produto)
ETQ.IMPRIMIR(0, 0)
 
ETQ.ImprimirBarras(0,EAN-8, 3, 2, 1, 380, 1234, 0)
ETQ.ImprimirTexto( 0, 3, 1, 1, 50, 670, 3Teste de etiqueta)
ETQ.ImprimirTexto( 0, 2, 1, 1, 1, 670, 3descricao do produto)
ETQ.IMPRIMIR(0, 0)
Editado por Vinicius Souza
Link para o comentário
Compartilhar em outros sites

  • Fundadores

A etiqueta não tem o GAP... isso é comprovado pela foto que você enviou...

 

Sem o GAP,  a única maneira, é usar comandos específicos do protocolo (PPLA/PPLB) é configurar as métricas da etiqueta na memória da Impressora... o ACBrETQ não suporta essa funcionalidade

 

Você não conseguirá usar o ACBrETQ com essa etiqueta...

Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

  • Membros Pro

function TfmCadProduto.AtivarACBrETQ: string;
Var
   eAvanco :string;
begin
  if vImpressoraEtiqueta = 'Argox OS 214-Plus' then
  begin
     eAvanco := 300;
     ACBrETQ.Desativar;

    with ACBrETQ do
    begin
       DPI           := TACBrETQDPI(dpi203); //dpi203, dpi300, dpi600
       Modelo        := TACBrETQModelo(etqPpla); //etqNenhuma, etqPpla, etqPPlb, etqZPLII,etqEpl2
       Porta         := vCompatilhamento;
       LimparMemoria := True;

       Ativar;
    end;
  end;  
end;

 

///////////////////////////////////////

//Modelo de Etiqueta para Gondulas Tam 110x30mm

      with ACBrETQ do
      begin
         if Modelo = etqPpla then
          begin
            ImprimirTexto(orNormal, 2, 2, 2, 200, 55, vNomeProduto);
            ImprimirTexto(orNormal, 2, 2, 1, 170, 55, vComplemento);
            ImprimirBarras(orNormal, 'F', '2', '2', 32, 55, QrCadastrocodigo_barra.Text, 90, becSIM);
            ImprimirTexto(orNormal, 3, 3, 2, 15, 350, 'R$');
            ImprimirTexto(orNormal, 3, 4, 4, 15, 500, FormatFloat(',0.00', QrCadastrovalor.Value));
          end
         else
          begin
            ImprimirTexto(orNormal, 2, 2, 2, 15, 55, vNomeProduto);
            ImprimirTexto(orNormal, 2, 2, 1, 65, 55, vComplemento);
            ImprimirBarras(orNormal, 'E30', '2', '2', 95, 55, QrCadastrocodigo_barra.Text, 90, becSIM);
            ImprimirTexto(orNormal, 3, 3, 2, 110, 355, 'R$');
            ImprimirTexto(orNormal, 3, 4, 5, 90, 500, FormatFloat(',0.00', QrCadastrovalor.Value));
          end ;

          Imprimir(1,600); //Imprimir 1 Copia e Avancar 600
         Desativar;
      end;
    end;

 

///////////////////////////////////////

//Modelo de Etiqueta para Produtos 3 Colunas Tam 33x21mm

 

    with ACBrETQ do
    begin
       if Modelo = etqPpla then
        begin
          ImprimirTexto(orNormal, 2, 1, 2, 150, 35, vNomeProduto);
          ImprimirTexto(orNormal, 2, 1, 1, 120, 35, vComplemento);
          ImprimirBarras(orNormal, 'F', '2', '2', 20, 35, QrCadastrocodigo_barra.Text, 70);

          ImprimirTexto(orNormal, 2, 1, 2, 150, 400, vNomeProduto);
          ImprimirTexto(orNormal, 2, 1, 1, 120, 400, vComplemento);
          ImprimirBarras(orNormal, 'F', '2', '2', 20, 400, QrCadastrocodigo_barra.Text, 70);

          ImprimirTexto(orNormal, 2, 1, 2, 150, 730, vNomeProduto);
          ImprimirTexto(orNormal, 2, 1, 1, 120, 730, vComplemento);
          ImprimirBarras(orNormal, 'F', '2', '2', 20, 730, QrCadastrocodigo_barra.Text, 70);
        end
       else
        begin
          ImprimirTexto(orNormal, 2, 1, 3, 15, 55, vNomeProduto);
          ImprimirTexto(orNormal, 2, 1, 1, 80, 55, vComplemento);
          ImprimirBarras(orNormal, 'E30', '2', '2', 120, 55, QrCadastrocodigo_barra.Text, 080, becSIM);

          ImprimirTexto(orNormal, 2, 1, 3, 15, 365, vNomeProduto);
          ImprimirTexto(orNormal, 2, 1, 1, 80, 365, vComplemento);
          ImprimirBarras(orNormal, 'E30', '2', '2', 120, 365, QrCadastrocodigo_barra.Text, 080, becSIM);

          ImprimirTexto(orNormal, 2, 1, 3, 15, 670, vNomeProduto);
          ImprimirTexto(orNormal, 2, 1, 1, 80, 670, vComplemento);
          ImprimirBarras(orNormal, 'E30', '2', '2', 120, 670, QrCadastrocodigo_barra.Text, 080, becSIM);
        end;

       Imprimir(1,600);
       Desativar;
       end;

Link para o comentário
Compartilhar em outros sites

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.