Preview 窗口中有个 Open 按钮可以打开,或使用QuickRep.QRPrinter.Load(FileName)
例子:
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;
例子:
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;
选择 Master/Detail example
按 PREVIEW
保存
打开刚才保存的文件。
就会出现错误:
Metafile is not valid
各位不妨试一试我说的。
或者用什么方法打开刚才保存的文件?