Fórum impressão de código de barra. #227088

  CodigoBarra: TAsBarcode; // variável


// no form create você Cria a variável do código de barras.
procedure Tform1.FormCreate(Sender: TObject);
begin
     CodigoBarra := TAsBarcode.Create(self);
     CodigoBarra.Typ := bcCode39;
     CodigoBarra.Modul := 1;
     CodigoBarra.Ratio := 2.0;
     CodigoBarra.Height := 50;
     CodigoBarra.Top  := 1;
     CodigoBarra.Left := 1;
     CodigoBarra.ShowText := bcoNone;
end;

QRBand1 é a banda que tem o código de barra...
procedure Tform1.QRBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
     CodigoBarra.text := ´Aqui você coloca o texto que quiser´;
     qriCodigoBarra.Picture := nil;
     CodigoBarra.DrawBarcode(qriCodigoBarra.Canvas);
     // qricodigobarra é aonde vai ficar a imagem do código de barra.
     qriCodigoBarra.Repaint();
end;