可以参考unigui+fastReport实现web打印方案(77)

拖一个frxPDFExport1和frxReport1到界面 上

 

复制代码
rocedure TMainForm.UniButton2Click(Sender: TObject);
begin
  with frxPDFExport1 do
  begin
    DefaultPath := 'D:\';
    FileName := '1.pdf';
    ShowDialog := False;
    ShowProgress := False;
  end;

//if frxReport1.LoadFromFile('D:\1.fr3') then
  if frxReport1.PrepareReport() then
    frxReport1.Export(frxPDFExport1);
end;
复制代码

中文时，字体 不能选 宋体，幼圆可以

就会在D:\生成一个1.pdf文件。