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;