Ir para conteúdo
  • Cadastre-se

dev botao

Impressao de imagem no cupom fiscal com impressora termica.


Ver Solução Respondido por Pedro Sartori Giorgetti,

Recommended Posts

Postado

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?

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.

The popup will be closed in 10 segundos...