Lazarus

Other Languages => Portuguese => Topic started by: pauloh0 on September 21, 2021, 08:29:41 pm

Title: Como imprimir codigo de barras no Lazreport
Post by: pauloh0 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;

Title: Re: Como imprimir codigo de barras no Lazreport
Post by: pauloh0 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;