Imprimir texto com Tarja - ACBrETQ - PPLA

[Cristhian Massini]

Boa tarde a todos!

Estou com o seguinte problema: Preciso "Imprimir Reverso" na impressora Argox-OS214 PPLA, encontrei um tópico antigo com a resolução para PPLB, gostaria se saber se é possível, pois passando o parâmetro ImprimirReverso = True, no exemplo do ACBreTQ, não acontece a impressão reversa

 

Tópico Anterior:

 

[EMBarbosa]

Em 16/06/2017 at 16:07, Cristhian Massini disse:

Estou com o seguinte problema: Preciso "Imprimir Reverso" na impressora Argox-OS214 PPLA

Mas no tópico que você citou a implementação foi feita na época para PPLB, não é mesmo?

[Cristhian Massini]

15 horas atrás, EMBarbosa disse:

Mas no tópico que você citou a implementação foi feita na época para PPLB, não é mesmo?

Bom dia Elton, 

Foi implementado para PPLB, e reparei que fizeram o mesmo pra PPLA, porem na PPLA não imprimi. Para o PPLA, o parametro ImprimirReverso não é utilizado no Comando, anexei fotos do fonte. 

[EMBarbosa]

O que você mostrou no código é que o parâmetro também é passado para a função da classe PPLA. Mas isso não significa que esteja implementado para a PPLA. O parâmetro é passado e caso a classe PPLA tivesse a implementação poderia utilizá-lo. Mas pelo que você mostrou o parâmetro não é consultado em nenhum momento, certo?

Me parece que continua sendo necessário verificar o manual da linguagem PPLA se ela permite esse tipo de impressão (inverso | reverso | tarja) e depois implementar.

[Cristhian Massini]

Não estou encontrando o manual da linguagem PPLA. Utilizando o BarTender (que vem no cd de instalação) consigo imprimir (inverso | reverso | tarja).

Achei esse topico aqui abaixo falando da atualização do firmware, vou tentar mudar ela pra PPLB e ver o que acontece

 

 

[Cristhian Massini]

Elton, 

 

Pesquisando aqui vi que a PPLA emula a DPL (Datamax Programming Language),

no manual da DPL encontrei referencia ao (inverso | reverso | tarja) , não se se ajuda alguém, mas vou tentando aqui também

Pag 112

 

https://www.honeywellaidc.com/en/-/media/en/files-public/technical-publications/printers/1common/DPL_88-2360-01_B.pdf

Editado 21 Junho, 2017 por Cristhian Massini

[EMBarbosa]

Olá Christian,

   Eu não tenho aqui uma impressora dessas para testar. Talvez a alteração seja algo do tipo:

procedure TACBrETQPpla.ImprimirTexto(Orientacao: TACBrETQOrientacao; Fonte, MultiplicadorH,
  MultiplicadorV, Vertical, Horizontal: Integer; Texto: String;
  SubFonte: Integer = 0; ImprimirReverso : Boolean = False);
var
   eixoY, eixoX, Smooth: String;
   ReversoInicia, ReversoTermina: String;
begin

  Cmd := '';

  if (Fonte < 0) or (Fonte > 10) then
     Raise Exception.Create(ACBrStr('Informe um valor entre 0 e 10 para Fonte'));

  if (SubFonte < 0) or (SubFonte > 999) then
     Raise Exception.Create(ACBrStr('Informe um valor entre 0 e 999 para SubFonte'));
  if ImprimirReverso then
  begin
    ReversoInicia  := 'A5' + CRLF;
    ReversoTermina := 'A1' + CRLF;
  end;
{ Multiplicador Horizontal, Multiplicador Vertical:
 De 0 a 9 e de A até O representa as escalas de multiplicação (A=10, B=11,..., O=24)}

  Vertical := ConverterUnidade(Vertical);
  if (Vertical > 9999) then
     Raise Exception.Create(ACBrStr('Vertical deve ter no máximo 4 dígitos'));
  eixoY := IntToStrZero(Vertical, 4);

  Horizontal := ConverterUnidade(Horizontal);
  if (Horizontal > 9999) then
     Raise Exception.Create(ACBrStr('Horizontal deve ter no máximo 4 dígitos'));
  eixoX := IntToStrZero(Horizontal, 4);

  if Length(Texto) > 255 then
     Raise Exception.Create(ACBrStr('Tamanho maximo para o texto 255 caracteres'));

  if Fonte < 9 then
    Smooth := '000'
  else
    Smooth := IntToStrZero(SubFonte, 3);

  Cmd := IntToStr(Integer(Orientacao) + 1)    +
         Chr(48+Fonte)                        +
         MultiplicadorToStr( MultiplicadorH ) +
         MultiplicadorToStr( MultiplicadorV ) +
         Smooth + eixoY + eixoX + Texto;
  if ImprimirReverso then ListaCmd.Add(ReversoInicia);
  ListaCmd.Add(Cmd);
  if ImprimirReverso then ListaCmd.Add(ReversoTermina);
end; 

  Se quiser testar, mas é bem possível que eu tenha esquecido de alguma coisa.

[Cristhian Massini]

Em 21/06/2017 at 11:26, EMBarbosa disse:

Olá Christian,

   Eu não tenho aqui uma impressora dessas para testar. Talvez a alteração seja algo do tipo:

procedure TACBrETQPpla.ImprimirTexto(Orientacao: TACBrETQOrientacao; Fonte, MultiplicadorH,
  MultiplicadorV, Vertical, Horizontal: Integer; Texto: String;
  SubFonte: Integer = 0; ImprimirReverso : Boolean = False);
var
   eixoY, eixoX, Smooth: String;
   ReversoInicia, ReversoTermina: String;
begin

  Cmd := '';

  if (Fonte < 0) or (Fonte > 10) then
     Raise Exception.Create(ACBrStr('Informe um valor entre 0 e 10 para Fonte'));

  if (SubFonte < 0) or (SubFonte > 999) then
     Raise Exception.Create(ACBrStr('Informe um valor entre 0 e 999 para SubFonte'));
  if ImprimirReverso then
  begin
    ReversoInicia  := 'A5' + CRLF;
    ReversoTermina := 'A1' + CRLF;
  end;
{ Multiplicador Horizontal, Multiplicador Vertical:
 De 0 a 9 e de A até O representa as escalas de multiplicação (A=10, B=11,..., O=24)}

  Vertical := ConverterUnidade(Vertical);
  if (Vertical > 9999) then
     Raise Exception.Create(ACBrStr('Vertical deve ter no máximo 4 dígitos'));
  eixoY := IntToStrZero(Vertical, 4);

  Horizontal := ConverterUnidade(Horizontal);
  if (Horizontal > 9999) then
     Raise Exception.Create(ACBrStr('Horizontal deve ter no máximo 4 dígitos'));
  eixoX := IntToStrZero(Horizontal, 4);

  if Length(Texto) > 255 then
     Raise Exception.Create(ACBrStr('Tamanho maximo para o texto 255 caracteres'));

  if Fonte < 9 then
    Smooth := '000'
  else
    Smooth := IntToStrZero(SubFonte, 3);

  Cmd := IntToStr(Integer(Orientacao) + 1)    +
         Chr(48+Fonte)                        +
         MultiplicadorToStr( MultiplicadorH ) +
         MultiplicadorToStr( MultiplicadorV ) +
         Smooth + eixoY + eixoX + Texto;
  if ImprimirReverso then ListaCmd.Add(ReversoInicia);
  ListaCmd.Add(Cmd);
  if ImprimirReverso then ListaCmd.Add(ReversoTermina);
end; 

  Se quiser testar, mas é bem possível que eu tenha esquecido de alguma coisa.

Boa tarde Elton, desculpa a demora na resposta!!!

Com as alterações que você passou funcionou perfeitamente!!!!!!

Só precisei passar o parâmetro ImprimeReverso como true na procedure TACBrETQ.ImprimirTexto. 

Anexei o fonte do ACBrETQPpla.pas e o fonte do exemplo do ACBr UPrincipal.Pas

 

Muito obrigado pela atenção!!!!! E espero que esta alteração sirva pra mais alguém ai!!

 

 

ACBr.rar

[Daniel Simoes]

Obrigado @Cristhian Massini e @EMBarbosa,

Enviei as melhorias para o SVN, com pequenas modificações...