fastreport

 

 

 

 

 

打印当前记录,直接 

 

 

打印报表:多条记录

 

 

begin

frxReport1.ShowReport;
frxReport1.Print;

end;//预览 ,打印

 

 

  frxReport1.LoadFromFile('*****.fr3') ;//载入模板

  frxReport1.PrepareReport();
   frxReport1.Print;//直接打印

 

 ／／

 

 

 默认打印机．

 

 

 

 

/////////////////

条形码

use 

frxBarcod,frxBarcode,frxVariables;

 

code 128c   类型一般

 

////

变量传递值　

Get 事件

procedure TForm2.frxReport1GetValue(const VarName: String;
var Value: Variant);
begin
if CompareText(VarName, 'aaa') = 0 then
Value := Edit3.Text;
end;

／／frp 里自定义变量　aaa

 

 

条形码通过变量赋值．