我想作一个带打印预览的程序,可是不知道怎么实现?(100分)

[]请各位高手指教

這有一個用QRPreview做報表预览的程式,可參考。
自己用QrPreview作preview Form。
一个QrPreview，几个按钮就行了。
在你的QuickRep Preview中加入
procedure Trepform1.QuickRep1Preview(Sender: TObject);
begin

zoomform1.QRPreview1.qrprinter:=TQRPrinter(Sender);
zoomform1.show;
end;

调用报表Preview就显示自己作的Preview表单。
Preview Form中就一个QrPreview和几个你自己想要的功能按钮。
给你写几个简单的。界面作PP点，想要什么功能，自己加。
procedure Tzoomform1.SpeedButton9Click(Sender: TObject);
begin
//关闭
close;
end;


procedure Tzoomform1.SpeedButton1Click(Sender: TObject);
begin
//还原
QRPreview1.zoom:=100;
end;


procedure Tzoomform1.SpeedButton2Click(Sender: TObject);
begin
//放大
if QRPreview1.zoom<390 then

QRPreview1.zoom:=QRPreview1.zoom+10
else
showmessage('已放大到最大');
end;


procedure Tzoomform1.SpeedButton3Click(Sender: TObject);
begin
//缩小
if QRPreview1.zoom>10 then

QRPreview1.zoom:=QRPreview1.zoom-10
else
showmessage('已缩小到最小');
end;


procedure Tzoomform1.SpeedButton4Click(Sender: TObject);
begin
//打印设置
QRPreview1.QRPrinter.PrintSetup;
end;


procedure Tzoomform1.SpeedButton8Click(Sender: TObject);
begin
//下一页
with Qrpreview1do

begin

if pagenumber=Qrprinter.pagecount
then
showmessage('已到最后一页')
else
pagenumber:=pagenumber+1;
end;

end;


procedure Tzoomform1.SpeedButton7Click(Sender: TObject);
begin
//上一页
with Qrpreview1do

begin

if pagenumber=1
then
showmessage('已到第一页')
else
pagenumber:=pagenumber-1;
end;

end;

用QuickRep呀～

设置好QuickRep1的格式和 数据源，
调用QuickRep1.Preview就可以预览了！

哦 完了一步！ [][]

谢谢二位大侠的支持