Forum > Portuguese

Como imprimir codigo de barras no Lazreport

(1/1)

pauloh0:
Olá Pessoal,

  Tenho uma dúvida quando a associar o componente TfrBarCodeObject com o dados a ser impresso.

cbEtiqueta: TfrBarCodeObject;

...

  prnEtiqueta.LoadFromFile('prnEtiquetas.lrf');
  prnEtiqueta.Bar1.Memo.Add(qryEtiquetas.FieldByName('cd_barras').AsString); <--- Aqui é o meu problema
  prnEtiqueta.ShowReport;

pauloh0:
Tentei assim tb e não vai:

procedure TForm1.BitBtn2Click(Sender: TObject);
var
  Barcode : TBarcode;
begin
   
   Barcode := TBarcode.Create(Self);
   Barcode.Text := qryEtiquetas.FieldByName('cd_barras').AsString;
   Barcode.Height:= 20;
   
  prnEtiqueta.LoadFromFile('prnEtiquetas.lrf');
  cbEtiqueta.Assign(Barcode);
  prnEtiqueta.ShowReport;
end;                   

Navigation

[0] Message Index