Ir para conteúdo
  • Cadastre-se

dev botao
  • Este tópico foi criado há 3314 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Postado

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.

  • Este tópico foi criado há 3314 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • 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.