1

我在 Turbo Delphi Pro 中使用 FastReport 4.7.31。

以下过程根据用户输入处理存储在多个日期文件中的数据。

    procedure TfrmMain.MyReportPrint;
var  MDate : Tdate;
     S, myfile : string;
     firstone: boolean;
//   Date1, Date2 & ShowPreview are global variables set via a dialog box     
begin
   firstone := true;
   MDate := Date1;
   while MDate < IncDay(Date2, 1)  do
   begin
      DateTimeToString(S,'yyyymmdd',MDate);
      myfile := 'm' + S + '.dbf';
      if FileExists(DataPath + '\' + myfile) then
      begin
         tblPS.Close;
         tblPS.TableName := myfile;
         frxMyReport.PrepareReport(firstone);
         firstone := false;
      end;
      MDate := IncDay(MDate, 1);
   end;
   if ShowPreview then frxMyReport.ShowReport else frxMyReport.Print;
end;

frxMyReport.Print 打印所有页面。

frxMyReport.ShowReport仅显示准备好的最后一页。

4

1 回答 1

2

该ShowReport方法接受一个可选参数ClearLastReport，其默认值为true。无论是真还是假，ShowReport在显示之前准备好报告，因此在您的代码中，您将丢弃已经准备好的所有内容，然后使用最近分配的表格设置重新准备报告。如果您对代码所做的唯一更改是传递False给ShowReport，那么您会发现预览显示了您的所有页面，但重复了最后一页。

与 相比ShowReport，该Print方法不准备报告。它只打印已经准备好的内容。您想要ShowPreparedReport预览，而不是ShowReport. 请参阅FastReport 程序员手册的第 1.9 节。

于 2010-05-07T20:22:34.670 回答