給你一支我常用的方法, 有preview, print 方式, 當然拿這支程式要直接套用是不可能, 提供你有關如何使用fr的重點, 另外, fr_demo(到 fastreport網抓)有十分詳細的寫法, 你必須 uses FR_Class
procedure TForm_PrintCondition.PrintPrepare(actiontype: string);
          var frmFile: string;
              Report: TfrReport;
begin
     frmFile:= '\FRFORM\REP2011.FRF'
     Form_frPreview:= TForm_frPreview.Create(Application);
     Report:= Form_PrintCondition.frReport1;
     Form_frPreview.frReport1:= Report;
     if not Report.LoadFromFile(frmFile) then begin
        Application.MessageBox(pChar('找不到 ' frmFile ' 報表定義檔!'),'錯誤',MB_OK);
        Form_frPreview.Free;
        Report.Free;
        exit;
     end;         SysUt.MsgDialog('報表產生中....請稍候');
     // 預覽列印 
     if actiontype='Preview' then begin
        try
           Report.Preview:= Form_frPreview.frPreview1;
           Form_frPreview.Caption:= Form_FixPrint.Caption '預覽模式';
           if Report.PrepareReport then begin
              Report.ShowPreparedReport;
              Form_frPreview.ShowModal;
           end;
        finally
           Form_frPreview.Free;
        end;
     end
     // 直接列印
     else begin
        Report.Preview:= nil;
        try
           if Report.PrepareReport then Report.PrintPreparedReportDlg;
        finally
           Form_frPreview.Free;
        end;
     end;
     if Form_Wait <> nil then Form_Wait.Free;
end;    以上你必須建立兩個form, 一個做為條件設定畫面之用, 把 frDBdataset放在這(Form_FixPrint), 另一個是preview之用(form_frpreview), 放一個frpreview object及其他物件(如frbarcode, frrichtext..., 視自己情況而定)