delphi fastreport 打印简单例子

delphi fastreport 打印简单例子

以下是一个使用Delphi和FastReport打印的简单例子：

1. 首先，打开Delphi并创建一个新的VCL应用程序项目。

2. 在工具栏上找到FastReport组件，在主窗体上拖放一个

`TfrxReport`组件。

3. 在菜单中选择"File" -> "New" -> "Data"，创建一个新的数据集。

4. 在数据集设计器中，添加一些字段，并添加一些数据。

5. 返回主窗体，在Form的`OnCreate`事件中，添加以下代码：```delphi

procedure TForm1.FormCreate(Sender: TObject);

var

Report: TfrxReport;

Designer: TfrxDesigner;

begin

Report := TfrxReport.Create(nil);

Designer := TfrxDesigner.Create(nil);

try

// 加载FastReport模板文件

Report.LoadFromFile('报表文件路径');

// 将数据集与报表关联

Report.DataSets.Add(DataSet1);

// 显示报表设计界面

Designer.Report := Report;

Designer.ShowModal;

// 打印报表

//Report.PrepareReport;

//Report.Print;

finally

Designer.Free;

Report.Free;

end;

end;

```

6. 运行应用程序，点击按钮时将打开FastReport设计器界面，您可以在其中设计和预览报表。

7. 如果要打印报表，取消`FormCreate`方法中的注释，并确保您在报表文件路径中指定了正确的模板文件路径。

8. 运行应用程序，点击按钮即可打印报表。

请注意，您需要根据自己的要求进行报表设计和数据集设置。