Jump to content

dev botao

Etiqueta de Gôndola totalmente desconfigurada...


atlantisnanet
Go to solution Solved by atlantisnanet,
  • Este tópico foi criado há 2283 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Olá pessoal,

Eu uso o ACBrETQ no Delphi 7, sempre funcionou beleza, vejam na foto do link abaixo da esquerda um modelo, mas precisei fazer uma alteração e tive que atualizar o componente, e está imprimindo totalmente desconfigurado, vejam na parte direita da foto...

https://1drv.ms/u/s!AitDtfBbOBpzghA2JIu8KCFPWoVO

O que será que acontece?

Desde já agradeço aos amigos!

Pablo Ferreira .·.

Programador Delphi/Visual Basic

Atlantis Informática

Link to comment
Share on other sites

  • Fundadores
  • Like 1
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 to comment
Share on other sites

Olá Daniel

Mudei para etqDecimoDeMilimetros mas não adiantou... cliquei no link que me enviou, mas tá muito complicada a coisa lá... Veja como era o código meu antes:

  AtivarACBrETQ ;

  with ACBrETQ do
  begin
     if Modelo = etqPpla then
      begin
        //ImprimirTexto(orNormal, 2, 2, 2, 190, 5, 'BISCOITO MARILAN RECH 335G');
        ImprimirTexto(orNormal, 2, 2, 2, 190, 5, Copy(DBEdit2.Text,1,26));
        //ImprimirTexto(orNormal, 2, 2, 1, 158, 5, 'CHOC BRANCO');
        ImprimirTexto(orNormal, 2, 2, 1, 158, 5, Copy(DBEdit2.Text,27,11));
        //ImprimirBarras(orNormal, 'F', '2', '2', 32, 0, '7896003701685', 90, becSIM);
        ImprimirBarras(orNormal, 'F', '2', '2', 32, 0, DBEdit3.Text, 90, becSIM);
        ImprimirTexto(orNormal, 3, 3, 2, 15, 300, 'R$');
        //ImprimirTexto(orNormal, 3, 4, 4, 15, 450, '20.59');
        ImprimirTexto(orNormal, 3, 4, 4, 15, 450, DBEdit4.Text);
      end
     else
      begin
        //ImprimirTexto(orNormal, 2, 2, 2, 15, 55, 'BISCOITO MARILAN RECH 335G');
        ImprimirTexto(orNormal, 2, 2, 2, 15, 55, Copy(DBEdit2.Text,1,26));
        //ImprimirTexto(orNormal, 3, 2, 1, 60, 55, 'CHOC BRANCO');
        ImprimirTexto(orNormal, 3, 2, 1, 60, 55, Copy(DBEdit2.Text,27,11));
        //ImprimirBarras(orNormal, 'E30', '2', '2', 95, 55, '7896003701685', 90, becSIM);
        ImprimirBarras(orNormal, 'E30', '2', '2', 95, 55, DBEdit3.Text, 90, becSIM);
        ImprimirTexto(orNormal, 3, 3, 2, 110, 355, 'R$');
        //ImprimirTexto(orNormal, 3, 4, 5, 85, 515, '20.59');
        ImprimirTexto(orNormal, 3, 4, 5, 85, 515, DBEdit4.Text);
      end ;

     //Imprimir(StrToInt(eCopias.Text), StrToInt(eAvanco.Text));
     //Imprimir(StrToInt('1'), StrToInt('600')); {Máximo 779}
     Imprimir(StrToInt('1'), StrToInt('600'));
     Desativar;
  end;

Não é mais fácil me passar um exemplo de como devo fazer? É uma etiqueta simples como mandei na foto.

Desde já agradeço!

Pablo Ferreira .·.

Programador Delphi/Visual Basic

Atlantis Informática

Link to comment
Share on other sites

  • Fundadores
10 minutos atrás, atlantisnanet disse:

Não é mais fácil me passar um exemplo de como devo fazer? É uma etiqueta simples como mandei na foto.

Isso já existe... Veja o Demo do ACBrETQ, na pasta Exemplos

Talvez você não tenha atualizado seus fontes...

1 hora atrás, Daniel Simoes disse:

Notei que o método TACBrETQPpla.ConverterUnidade poderia ficar com um valor indefinido, o que poderia explicar esses problemas.. apliquei uma possível correção..

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 to comment
Share on other sites

Beleza Daniel, copiei o exemplo e adaptei aqui, mas está cortando o topo do valor do produto... Veja na foto do link:

https://1drv.ms/u/s!AitDtfBbOBpzghFyZpwr7slMeWrc

Meu código está assim, como altero para ajustar?

  AtivarACBrETQ ;

  with ACBrETQ do
  begin

     if Modelo in [etqPpla, etqPplb] then
      begin
        ImprimirTexto(orNormal, 2, 2, 2, 3, 3, Copy(DBEdit2.Text,1,26), 0, True);
        //ImprimirTexto(orNormal, 2, 2, 1, 8, 3, 'CHOC BRANCO');
        ImprimirBarras(orNormal, barEAN13, 2, 2, 13, 5, DBEdit3.Text, 10, becSIM);
        ImprimirTexto(orNormal, 3, 3, 2, 15, 300, 'R$');
        ImprimirTexto(orNormal, 3, 4, 4, 15, 50, DBEdit4.Text);
      end
     else  //if Modelo = etqZPLII then
      begin
        ImprimirTexto(orNormal, '0', 60, 60, 3, 3, 'BISCOITO MARILAN RECH 335G', 0, True);
        ImprimirTexto(orNormal, '0', 60, 60, 8, 3, 'CHOC BRANCO');
        ImprimirBarras(orNormal, barEAN13, 2, 2, 13, 5, '7896003701685', 10, becSIM);
        ImprimirTexto(orNormal, 'A', 100, 100, 18, 32, 'R$');
        ImprimirTexto(orNormal, 'A', 120, 120, 15, 50, '20,59');
      end;

     //ImprimirEtiquetaComCopiasEAvanco;
     Imprimir(StrToInt('1'), StrToInt('600'));
     Desativar;
  end;

Quase lá!

Desde já agradeço!

Pablo Ferreira .·.

Programador Delphi/Visual Basic

Atlantis Informática

Link to comment
Share on other sites

  • Fundadores

Qual é a sua impressora ? Qual o Modelo ? Qual a densidade em DPI ?

Aparentemente sua Impressora não detectou o GAP...

Tente um reset na Impressora...
Verifique se você inseriu a Etiqueta com o GAP no lado correto (veja o sensor na impressora)

  • Like 1
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 to comment
Share on other sites

Veja no foto do link abaixo, a etiqueta está perfeitamente alinhada na impressora:

https://1drv.ms/u/s!AitDtfBbOBpzghLmIEpWcMqC-3mv

Inclusive na versão antiga do componente imprime perfeitamente. Tentei resetar a impressora, o resultado foi o mesmo.

Continua cortando o preço do produto, veja marquei na foto.

Que coisa não? Desde já agradeço a ajuda!

Pablo Ferreira .·.

Programador Delphi/Visual Basic

Atlantis Informática

Link to comment
Share on other sites

  • Solution

Certo... Descobri aqui como ajustar as posições e os tamanhos, envio aqui abaixo um código extremamente simples para ajudar quem tiver o mesmo problema, as posições ficaram perfeitas, fiz até uma legenda ali para facilitar:

AtivarACBrETQ ;

with ACBrETQ do
begin

If Modelo in [etqPpla, etqPplb] then
begin
ImprimirTexto(orNormal, 2, 2, 2, 3, 3, Copy(DBEdit2.Text,1,26), 0, True);
ImprimirTexto(orNormal, 2, 2, 1, 10, 3, Copy(DBEdit2.Text,27,11));
ImprimirBarras(orNormal, barEAN13, 2, 2, 13, 5, DBEdit3.Text, 10, becSIM);
ImprimirTexto(orNormal, 3, 3, 2, 15, 300, 'R$');
{LEGENDA: ImprimirTexto(orNormal, [Tamanho da Fonte], [Largura da Fonte], [Altura da Fonte],
[Posição da Fonte no Topo], [Posição da Fonte na Esquerda], [Preço do Produto]);}
ImprimirTexto(orNormal, 3, 4, 4, 10, 50, DBEdit4.Text);
end;

Imprimir(StrToInt('1'), StrToInt('600'));
Desativar;

end;

Valeu!

  • Like 1

Pablo Ferreira .·.

Programador Delphi/Visual Basic

Atlantis Informática

Link to comment
Share on other sites

×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.