Ola, tudo bom?
procedure TbslCupomNaoFiscal.imprimirQRCode;
var
CaminhoQRCode: string;
FACBrPosPrinter: TACBrPosPrinter;
function ObterCaminhoQRCode: string;
begin
Result := IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName)) + 'config\qrcode.bmp';
if not FileExists(Result) then
begin
ShowMessage('Arquivo QR Code não encontrado em: ' + Result);
Result := '';
end;
end;
procedure ConfigurarImpressora;
begin
try
FACBrPosPrinter.Modelo := ppEscPosEpson;
FACBrPosPrinter.Porta := FPorta;
except
on E: Exception do
raise Exception.Create('Erro ao configurar impressora: ' + E.Message);
end;
end;
begin
CaminhoQRCode := ObterCaminhoQRCode;
if CaminhoQRCode = '' then
Exit;
FACBrPosPrinter := TACBrPosPrinter.Create(nil);
ConfigurarImpressora;
FACBrPosPrinter.Ativar;
FACBrPosPrinter.ImprimirImagemArquivo(CaminhoQRCode);
FACBrPosPrinter.CortarPapel(True);
FACBrPosPrinter.Free;
end;
A imagem esta como .bmp 280x280px bitmap monocromatico.
Porem na impressora elgin i8 e impresso uma sequencia de caracteres aleatorios. Alguem consegue me ajudar?