Recent

Author Topic: Como imprimir codigo de barras no Lazreport  (Read 643 times)

pauloh0

  • Newbie
  • Posts: 3
Como imprimir codigo de barras no Lazreport
« on: September 21, 2021, 08:29:41 pm »
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

  • Newbie
  • Posts: 3
Re: Como imprimir codigo de barras no Lazreport
« Reply #1 on: September 21, 2021, 09:45:54 pm »
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;                   

 

TinyPortal © 2005-2018