Não imprimi logo no documenmto não fiscal

[Joao Carlos Santos]

Bom dia !

Tenho uma impressora Elgin I9 com uma logo já gravado na memória. Contudo não esta imprimindo essa imagem. O restante dos dados imprime normalmente.

Obs : Consigo imprimir a imagem com o aplicativo do fabricante. Abaixo vai o código que estou usando.

           Mess.Clear;
           Mess.Lines.Add('</zera>');
           Mess.Lines.Add('</ce>');
           Mess.Lines.Add('<logo_imprimir>'+ifthen(ACBrPosPrinter1.ConfigLogo.IgnorarLogo,'0','1')+'</logo_imprimir>');
           Mess.Lines.Add('<logo_kc1>'+IntToStr(ACBrPosPrinter1.ConfigLogo.KeyCode1)+'</logo_kc1>');
           Mess.Lines.Add('<logo_kc2>'+IntToStr(ACBrPosPrinter1.ConfigLogo.KeyCode2)+'</logo_kc2>');
           Mess.Lines.Add('<logo_fatorx>'+IntToStr(ACBrPosPrinter1.ConfigLogo.FatorX)+'</logo_fatorx>');
           Mess.Lines.Add('<logo_fatory>'+IntToStr(ACBrPosPrinter1.ConfigLogo.FatorY)+'</logo_fatory>');

           Mess.Lines.Add('</logo>');

           Mess.Lines.Add( '</linha_dupla>') ;
           Mess.Lines.Add( '<N>' +  '<CE>'  +  wdmo_conexao.dstFiliPFPJ_RAZAO_SOCIAL.AsString +  '</CE>' +  '</n>' ) ;
           Mess.Lines.Add( ' ') ;
           Mess.Lines.Add( ' ') ;
           Mess.Lines.Add( ' ') ;
           Mess.Lines.Add(  '<N>' + 'Data     : ' + DateTimeTostr(wdmo_conexao.dstcaixcaix_data.AsDateTime)  +  '</n>'  ) ;
           Mess.Lines.Add(  '<N>' + 'Caixa    : ' + '('+ wdmo_conexao.dstcaixcaix_id.asstring + ')' + wdmo_conexao.dstcaixcaix_user_login.asstring  +  '</n>'  ) ;
           Mess.Lines.Add( '</linha_dupla>') ;
           Mess.Lines.Add(  '<e>' + '<CE>' + 'Abertura do dia' + '</CE>' + '</e>' ) ;
           Mess.Lines.Add( '</linha_dupla>') ;
           Mess.Lines.Add(  'Valor :' +  FormatFloat('###,##0.00', StrToFloat(Edit1.Text)));
           Mess.Lines.Add( '</linha_dupla>') ;

           ConfigurarComponente;
           ACBrNFeDANFeESCPOS.ImprimirRelatorio(Mess.Lines);
          End;

 

 

procedure Twfrm_AbreDia.ConfigurarComponente;
begin
  FConfig := TIniFile.Create(GetConfigPath);
  try
    ACBrPosPrinter1.Modelo                   := TACBrPosPrinterModelo(FConfig.ReadInteger('CONFIG', 'Modelo', 0));
    ACBrPosPrinter1.Device.Porta             := FConfig.ReadString('CONFIG', 'Porta', 'COM1');
    ACBrPosPrinter1.Device.Baud              := StrToInt(FConfig.ReadString('CONFIG', 'Baud', '9600'));
    ACBrPosPrinter1.IgnorarTags              := FConfig.ReadBool('CONFIG', 'IgnorarTagsFormatacao', False);
    ACBrPosPrinter1.ControlePorta            := True; // True faz com que o componente abra e feche a porta conforme a necessidade automaticamente
    ACBrPosPrinter1.LinhasEntreCupons := FConfig.ReadInteger('CONFIG', 'Linhas', 5);

    if(FConfig.ReadBool('CONFIG', 'CortaPapel', True)) Then
       ACBrPosPrinter1.CortaPapel := True
    else
       ACBrPosPrinter1.CortaPapel := False;
  finally
    FConfig.Free;
  end;
end;

[Daniel Simoes]

Nesse relatório de testes há detalhes da impressão do Logo, na Elgin I9

 

[Joao Carlos Santos]

Bom dia!

A impressora está instalada normalmente. Já utilizo para emitir a nfce. O problema é que não estou conseguindo imprimir o logo que já está carregado na memória da impressora.

[Juliana Tamizou]

Bom dia.

Você chegou a analisar o tópico indicado e verificar se existia algum detalhe a ser ajustado? 

Att.

[Daniel Simoes]

Em 20/10/2018 at 05:48, Joao Carlos Santos disse:

Bom dia!

A impressora está instalada normalmente. Já utilizo para emitir a nfce. O problema é que não estou conseguindo imprimir o logo que já está carregado na memória da impressora.

Provavelmente você configurou no ACBrPosPrinter, o KeyCode1 e KeyCode2  de forma errada... por favor  leia com atenção o artigo indicado.. Lá é descrito como achar os valores corretos