1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

procedure TDataModuleReport.CreatePDFFile(APDFFileName: String; Silent: Boolean = true);
var
   tmpFrxPreview : TfrxPreview;
begin
  with frxPDFExport do begin
    ShowDialog := not Silent;
    OpenAfterExport:= not Silent;

    Author := 'Author';
    Subject := 'MeinReport';

    ShowProgress := not Silent;

    Compressed := true;
    OverwritePrompt := true;
    UseFileCache := true;

    FileName := APDFFileName;
  end;

   frxReport.PrepareReport(false);
   tmpFrxPreview := TfrxPreview.Create(Self);
  try
    tmpFrxPreview.Report := frxReport;
    tmpFrxPreview.Export(frxPDFExport);
  finally
    tmpFrxPreview.Free;
  end;

  Application.ProcessMessages;
end					

1:
2:
3:
4:
5:
6:

        try
          Lock;
          PreviewPages.ModifyPage(PageNo - 1, Page);
        finally
          Unlock;
        end;					

1:
2:
3:

        dmMain.frxReport.PrepareReport;
        dmMain.frxPDFExport.FileName := 'C:\Test.pdf';
        dmMain.frxReport.Export(dmMain.frxPDFExport);