Ir para conteúdo
  • Cadastre-se

dev botao

AcbrETQ Texto da fonte desconfigurado na imp ZEBRA


Marcelo Bill
  • Este tópico foi criado há 2221 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 para o comentário
Compartilhar em outros sites

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

Editado por marcelonarezzi
Link para o comentário
Compartilhar em outros 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 para o comentário
Compartilhar em outros sites

  • 2 semanas depois ...
  • 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
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 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 para o comentário
Compartilhar em outros 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
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

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

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • 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.