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