Jump to content

botao.pngbotao.png

botao.pngbotao.png

logo_acbr_paygo.png

TEF ACBr PayGo
Seja um revendedor e ofereça uma solução completa para seu cliente.


botao.png

beneficios.png

AcbrETQ Texto da fonte desconfigurado na imp ZEBRA


  • Este tópico foi criado há 966 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui

Recommended Posts

Daniel

Mais um detalhe, voltei no tempo ACBr/AC (antes de Cristo)

Eu usava dessa forma. 

    zmemo.Lines.Add('^XA');
    zmemo.Lines.Add('^MUm');
    zmemo.Lines.Add('^LH1,1');
    zmemo.Lines.Add('^FT3,3^A0N,3,3^FD'+LeftStr(dm.EmpresaFANTASIA.AsString,10)+'^FS');
    zmemo.Lines.Add('^FT3,3^A0N,3,3^FD'+vCodigo+'^FS');
    zmemo.Lines.Add('^FT1,4^AON5,5^FD'+vDescricao1+'^FS');
    zmemo.Lines.Add('^FT1,6^AON1,5^FD'+vDescricao2+'^FS');
    zmemo.Lines.Add('^FT1,8^AON1,5^FD'+vDescricao3+'^FS');
    zmemo.Lines.Add('^FT1,10^AON1,5^FD'+'Original :'+vOriginal+'^FS');
    zmemo.Lines.Add('^FT1,12^AON1,5^FD'+'Conversao:'+vConversao+'^FS');
    zmemo.Lines.Add('^FT1,19,^BE,7,N,N,N^FD'+vBarra+'^FS');
    zmemo.Lines.Add('^XZ');
 

Apenas adicionei o ^MUm conforme acima. Cara funciona direitinho, estou conseguindo fazer funcionar tudo em milimetros

no caso ZPLII essa opção funciona sim, não sei nas demais. vou acionar novamente a opção no componente e desligar todas ConverterUnidades pra ver a m. que dá.
se der certo, vou testar na Argox que tenho tambem

daqui a pouco eu vorto

 

Link to post
Share on other sites
  • Replies 81
  • Created
  • Last Reply

Top Posters In This Topic

Top Posters In This Topic

Popular Posts

Daniel Acho que encontrei a solução que queria a muito tempo kkk veja esse link http://labelary.com/viewer.html  Fantastico, ajuda bastante, não é perfeito mas dá uma puta noção da

Estou vendo aqui vou desinstalar a versao atual, e instalar a versão anterior ao componente, visto que nada na aplicação foi modificada. ai então vou conseguir usando o componente antes da a

Daniel Usei o WinMerge e já verifiquei o que foi alterado. Valeu

Posted Images

Daniel

Ebaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa

Alterei a ComandoUnidade da ACBrETQZPLII.pas
function TACBrETQZplII.ComandoUnidade: AnsiString;
var
  a: Char;
begin
  case Unidade of
    etqDots       : a := 'd';
    etqPolegadas  : a := 'i';
  else
    a := 'm';
  end;
  //
  Result := '^MU'+a;
  //Result := '';  // Todos os comandos são convertidos para etqDots;
end;
 

e Removi todas as ConverterUnidade existente. (Bingo) problema resolvido na ZPLII

Basta utilizar as medidas como antigamente era naquelas folhas quadriculadas onde  a gente desenhava o relatório e depois escrevia o programa com base na linha e coluna onde continha o texto na mão.
 

 

Agora, vou testar pra ver como ficou na Argox PPLa

Daqui a pouco eu vorto

Figura6.jpeg

Edited by marcelonarezzi
Link to post
Share on other sites

Daniel

Eu de vorta

ACBrETQPPLa.pas (Perfeito) não precisa mexer em nada, está funcionando corretamente no caso do Milimetro. agora eu determino 5,5 por exemplo e está sendo impresso à 5mm da esquerda e a 5mm do topo, perfeito.

A única mudança mesmo é na ZPLII conforme post anterior.

Espero que isso não se altere mais, já estou corrigindo meus modelos de etiqueta conforme essas configurações.

Agora chega neh. das 8:00 as 1:08 da madrugada só vendo etiqueta, aja..

 

abraço a todos

Figura7.jpeg

Link to post
Share on other sites
  • 2 weeks later...
  • Fundadores

Apenas para atualizar o tópico... acabei de receber uma Impressora Zebra GC 420...
Devo iniciar os testes e analise da classe ZPL2, na segunda-feira...

Consultor SAC ACBr

Daniel Simões de Almeida
Ajude o Projeto ACBr crescer - Assine o SAC

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

Link to post
Share on other sites

Daniel boa noite.


Fazia algum tempo que não atualizava os fontes do ACBR e depois que atualizei semana passada, recebi várias ocorrências de erros, então comparei o resultado da impressão em arquivo nas duas versões:

Utilizando PPLA

IMP-VELHO.TXT

IMPR_NOVO.TXT

Seguindo os fontes, na função TACBrETQPpla.ComandoImprimirTexto  está:

Result := ComandoReverso(aImprimirReverso) + sLineBreak +
            ConverterOrientacao(aOrientacao) +
            aFonte +
            ConverterMultiplicador(aMultHorizontal) +
            ConverterMultiplicador(aMultVertical) +
            ConverterSubFonte(aFonte, aSubFonte) +
            ConverterCoordenadas(aVertical, aHorizontal) +
            LeftStr(aTexto, 255);

e a função

function TACBrETQPpla.ComandoReverso(aImprimirReverso: Boolean): String;
begin
  Result := IfThen(aImprimirReverso, 'A5', 'A1');
end;


No arquivo anterior não existia esses códigos A1 ou A5 que aparentemente fica separando cada linha do arquivo. (Não uso reverso nessa etiqueta)

Pode ser isso que esteja atrapalhando a interpretação da ARGOX agora?

Eu também não tenho uma aqui pra testar.

Obrigado

Fiquei na dúvida de postava nesse tópico mesmo ou se criava um novo, já que o assunto está relacionado, Já peço desculpas se tivesse que iniciar outro.

 

Link to post
Share on other sites
  • Fundadores
13 horas atrás, jose jair de oliveira disse:

Fazia algum tempo que não atualizava os fontes do ACBR e depois que atualizei semana passada, recebi várias ocorrências de erros, então comparei o resultado da impressão em arquivo nas duas versões:

Por favor crie um novo tópico... esse tópico é sobre a ZPL2

Consultor SAC ACBr

Daniel Simões de Almeida
Ajude o Projeto ACBr crescer - Assine o SAC

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

Link to post
Share on other sites
  • Este tópico foi criado há 966 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...