如何用 TQPreview ... (100分)

J

jzyf

Unregistered / Unconfirmed
GUEST, unregistred user!
如何用TQPreview 实现 TQuickRep 打印预览(delphi5)?
 
procedure TForm1.QuickRep1Preview(Sender: TObject);
Var
FormPrv: TFormPrv;
begin

FormPrv:=TFormPrv.Create(nil);
FormPrv.QRPreview.QRPrinter:=TQRPrinter(Sender);
FormPrv.Show;
end;

 
我也是这样作的 可是总出错?
 
请不要怀疑你的做法,因为这样做肯定可以的,建议你
再仔细分析一下代码(跟踪调试或许有效)
 
请问如何从新定义TQuickRep 的 OnPreview 事件?
 
接受答案了.
 
顶部