//
//QuickReport是你传递的TQuickRep的对象实例
//
Try
QRPreview.QRPrinter.Cleanup;
QRPreview.QRPrinter := nil;
QuickReport.QRPrinter.Load( YourQRPFileName );
QRPreview.QRPrinter := QuickReport.QRPrinter;
Except
MessageDlg( '该文件不是合法的QuickReport文件,或已被破坏!' ,
mtError, [mbOK], 0 );
End;
//QuickReport是你传递的TQuickRep的对象实例
//
Try
QRPreview.QRPrinter.Cleanup;
QRPreview.QRPrinter := nil;
QuickReport.QRPrinter.Load( YourQRPFileName );
QRPreview.QRPrinter := QuickReport.QRPrinter;
Except
MessageDlg( '该文件不是合法的QuickReport文件,或已被破坏!' ,
mtError, [mbOK], 0 );
End;
我的意思是如何实现像DELPHI的QUICKREPORT的打印预览功能。自己编程实现。就是如何装载一个qrp文件。用QRPREVIEW;
...
procedure TBHGDForm.FormCreate(Sender: TObject);
begin
PrevForm := TPrevForm.CreateForm( nil, QuickReport );
end;procedure TBHGDForm.FormDestroy(Sender: TObject);
begin
PrevForm.Free;
end;procedure TBHGDForm.QuickReportPreview(Sender: TObject);
begin
PrevForm.QRPreview.QRPrinter := TQRPrinter(Sender);
PrevForm.Show;
end;
...
[email protected]
一定给分。谢谢