ACBRSAT EscPos Epson TM-T20 - esta cortando o qrcode.

[sgeinformatica]

ja passei varios 7, 10, 30

nenhum valor faz diferenca

Achamos o problema sem ter que alterar o codigo

EspacoEntreLinhas tem que estar 0

LinhasEntreCupons tem que estar 7

obrigados a todos pela ajuda

[Daniel Simoes]

Sim, isso que ia sugerir... peguei o mesmo problema em uma DASCOM...

Quando o "EspacoEntreLinhas" é muito baixo, ela não consegue fazer o "LF"... Experimente usar valores acima de 40 em "EspacoEntreLinhas"

Mas a sua sugestão é que ao invés de enviarmos apenas o "LF"... Se enviarmos "  "+LF, isso funciona, correto ?  (vou testar dessa maneira aqui na DASCOM)

[sgeinformatica]

Sim funciona "  " + LF

Uma sugestão minha que poderiamos fazer é uma tabela com as configuracoes já testadas com cada impressora

Posso passar da Epson e da Daruma DR700

Talvez vc poderia colocar essas configurações naquele arquivo texto ACBrSAT-change-log.txt

ou criar um novo arquivo texto.

[Daniel Simoes]

Realmente funciona... Obrigado, fica mais seguro... e resolve esse pequeno problema que tínhamos com a DASCOM...

Apliquei modificações no SVN com a sugestão...

[moacirg]

Qual o valor que você ta passando para LinhasEntreCupons?

Eu também estava com esse problema e resolvi de uma forma bem simples, não sei se é a melhor mas ae esta. (EPSON i9)

Dentro do arquivo ACBrSATExtratoESCPOS.pas eu apenas dei um espaço na String da procedure que Pula Linhas.

procedure TACBrSATExtratoESCPOS.PulaLinhas(NumLinhas: Integer);
var
  i : integer;
begin
  if NumLinhas = 0 then
     NumLinhas := LinhasEntreCupons ;

  for i:=0 to NumLinhas do
   begin
     //FBuffer.Add('');
     FBuffer.Add(' '); //--> Alterado para Pular as linhas corretamente.
   end
end;

 

Editado 9 Outubro, 2015 por moacirg

[Daniel Simoes]

Isso é já é feito nos fontes atuais do SVN

function TACBrPosPrinterClass.ComandoPuloLinhas(NLinhas: Integer): AnsiString;
begin
  Result := DupeString(' '+LF,NLinhas);
end;  

 

[moacirg]

Isso é já é feito nos fontes atuais do SVN

function TACBrPosPrinterClass.ComandoPuloLinhas(NLinhas: Integer): AnsiString;
begin
  Result := DupeString(' '+LF,NLinhas);
end;  

 

Showwww !!! Obrigado pela atenção.

[João Carlos Almeida Prado]

Pessoal, 

isto não funcionou comigo:

 GerarRodape; // aqui nesse ponto poderia ficar assim: GerarRodape(FPosPrinter.CortaPapel);

coloquei, no final do procedure:

procedure TACBrSATExtratoESCPOS.GerarRodape(CortaPapel: Boolean = True; Cancelamento: Boolean = False);
.

.

.

  if CortaPapel then
  begin
    {
    if FPosPrinter.CortaPapel then
      FPosPrinter.Buffer.Add('</corte_total>')
    else
      FPosPrinter.Buffer.Add('</pular_linhas>');
     }
     //  - deixei assim para forçar o corte
      FPosPrinter.Buffer.Add('</pular_linhas>');
      FPosPrinter.Buffer.Add('</corte_total>');
  end;

 

e do cancelamento:

procedure TACBrSATExtratoESCPOS.GerarDadosCancelamento;
.

.

.

  {
  if FPosPrinter.CortaPapel then
    FPosPrinter.Buffer.Add('</corte_total>')
  else
    FPosPrinter.Buffer.Add('</pular_linhas>');
  }
  // assim força o corte
    FPosPrinter.Buffer.Add('</pular_linhas>');
    FPosPrinter.Buffer.Add('</corte_total>')
end;

falow

[Daniel Simoes]

O que não funcionou ??

Porque você está sugerindo essas modificações ??

[Lucas Argenton Ramos]

Ola Daniel... vc disse que utilizava uma epson tm-t20... estou tentando de todo jeito fazer ela funcionar com escpos e não vai nem com bomba... Ela esta utilizando 3 linhas para cada item... sai tudo desconfigurado o cabeçalho e não imprime o qrcode.. vc tem algum exemplo de configuração do escpos e do posprinter para essa impressoara???

[Ricardo Souza 777]

Mais uma vez, pesquisando os Posts e salvando minha pele. Elgin i9 estava cortando um pedacinho do final do QrCode. Fui no arquivo .INI e coloquei no espacamento entre copuns das configurações do EscPOS o numero 5 ou seja 5 linhas e funcionou belezinha. Obrigado a todos.