Ir para conteúdo
  • Cadastre-se

dev botao

Não imprimi logo no documenmto não fiscal


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

Recommended Posts

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;

Link para o comentário
Compartilhar em outros sites

  • Administradores

Bom dia.

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

Att.

Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

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

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link para o comentário
Compartilhar em outros sites

  • Fundadores
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

  • Curtir 1
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á 1985 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • 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.