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.,