有谁知道如何用代码打开已存在的报表文件(*.qrp)(100分)

  • 主题发起人 主题发起人 三更半夜
  • 开始时间 开始时间

三更半夜

Unregistered / Unconfirmed
GUEST, unregistred user!
我用QuickRep控件的Preview方法中的存盘功能,将报表存为.qrp格式,
但如何用代码再将它打开?
 
好象没办法
 
Preview 窗口中不是有个 Open 按钮吗?可以打开这种格式的文件。或使用
QuickRep.QRPrinter.Load(FileName) 将文件加载再 preview 或 print。
 
有的话给我一个。实例。
hai26@netease.com
 
Qreport中的源代码,可以看看
procedure TMyPrevForm1.LoadReportClick(Sender: TObject);
begin
with TOpenDialog.Create(Application)do
try
Title := '读取报表';
Filter := '报表文件' + ' (*.' +cQRPDefaultExt + ')|*.' + cqrpDefaultExt;
if Execute then
if FileExists(FileName) then
begin
QRPreview.QRPrinter.Load(Filename);
QRPreview.PageNumber := 1;
QRPreview.PreviewImage.PageNumber := 1;
UpdateInfo;
PrintSetup.Enabled := False;
Print.Enabled := true;
end
else
ShowMessage('文件不存在!');
finally
free;
end;
end;
 
多人接受答案了。
 
后退
顶部