mkfernando

Olá Pessoal, boa tarde. Utilizo o Delphi 2010 e estou alterando uma rotina que imprime etiquetas no QuickReport para utilizar o componente ACBrBarCode. Fiz o seguinte código: procedure TfrmRelEtiquetaProduto.pc_GerarCodigoBarra(pc_iIndiceImagem : Integer); var BMP : TBitmap; begin ACBrBarCode1.Text := frmParRelEtiquetaProduto.mskCodigoProduto.Text; try BMP := TBitmap.Create; BMP.Width := QRImage2.Width; BMP.Height := QRImage2.Height; ACBrBarCode1.DrawBarcode(BMP.Canvas); case pc_iIndiceImagem of 1: QRImage1.Picture.Bitmap := BMP; 2: QRImage2.Picture.Bitmap := BMP; 3: QRImage3.Picture.Bitmap := BMP; end; finally BMP.Free; end; end; Quando imprimo o relatório, o componente não esta gerando o código de barras. Não sei o que tem de errado. Fiz um teste... Coloquei o componente na tela de parâmetro, ficando visível para o usuário, aí ele funciona. Se eu colocar em qualquer parte do form de parâmetros onde o usuário "não enxerga" ele não imprime. No QuickReport não consegui imprimir de jeito algum.