我谈谈：
1：加一个 form -- name mypreview, 放上TPreview
2: 定制 preview
3: MyPreview 过程中 show form
4:引用如下
-----------------------------------------------------------------
unit mian
..
type Tprtfrm = class(TForm)
qrCust: TQuickRep;
....
procedure TPrtFrm.qrCustPreview(Sender: TObject);
begin
with Tmypreview.Create(Application) do
begin
qrPreview1.QRPrinter := qrCust.QRPrinter ;
CurRep := qrCust ;
Show ;
//显示
end;
//myPreview.ShowModal;
end;
//==================
unit mypreview
...
....
var
CurRep : TQuickRep;
// 所 预 览 的 报 表
...
procedure TmyPreview.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
CurRep := Nil ;
Action := caFree ;
end;
......
end.
我知道就这么多，希望对你有用。
