Leitor Não Lê Código Barras - Acbr + Quickreport

[jonas37]

Olá,

 

 

Estou implementado a impressão de um boleto do Banco do Brasil, e usando o quickReport.

Na unit ACBrBoletoFCQuickFr.pas é feita a impressão do código de barras. Vejam:

 

 

procedure TACBrBoletoFCQuickFr.RLBandDatailXBeforePrint(

  Sender: TQRCustomBand; var PrintBand: Boolean);

var

  BMP : TBitmap;

begin

  ACBrBarCode1.Typ  := bcCode_2_5_interleaved;

  ACBrBarCode1.Text := codBarras;

  BMP := TBitmap.Create;

 

  try

    BMP.Width  := imgBarra5.Width ;

    BMP.Height := imgBarra5.Height ;

    ACBrBarCode1.DrawBarcode(BMP.Canvas);

 

    imgBarra5.Picture.Bitmap := BMP ;

  finally

    BMP.Free ;

  end ;

end;

 

 

Após a impressão, o leitor não consegue ler o código de barras, até ele lê o código de barras, mas somente alguns caracteres.

 

Alguém pode me ajudar?

 

Att.,

[Juliana Tamizou]

Boa noite.

 

Você tentou efetuar a leitura pelo caixa eletrônico?

 

Att

[jonas37]

sim, tmbm não funciona

[Mark Apollo]

Também tive essa dificuldade, no final, passei a gerar em Fortes e tudo funcionou!