delphi 生成报表打印预览解决方法

delphi 生成报表打印预览
delphi 生成报表打印预览 我用listview显示的数据 现在要打印预览 我是新手请各位指点 有源码最好

在此先谢谢了

[解决办法]
源码到盒子上下一个fastreport，里面有demo
[解决办法]
用fastreport吧
[解决办法]
用fastreport或将内容输出到image的canvas实现预览
[解决办法]
fastreport好用。
[解决办法]
以前有做过，还得找，好像QuickRep的很简单，不难！
打印
procedure TMainForm.PrintClick(Sender: TObject);
begin
if Report = CompositeReport then
begin
QRCompositeReport1.Print;
end else
Report.Print;
end;

预览
procedure TMainForm.PreviewClick(Sender: TObject);
begin
if Report = CompositeReport then
begin
QRCompositeReport1.Preview;
end else
Report.Preview;
end;