这是我的一段代码,给你参考一下procedure TDataModule1.frPreviewSDS(frfName:string;ADOQu:TSimpleDataset); begin try setcurrentdir(cdir); DataModule1.frReport1.LoadFromFile(frfName); with TPVform.Create(nil) do begin if ADOQu.Active then if ADOQu.RecordCount>0 then begin DataModule1.frReport1.Preview := frPreview1; if DataModule1.frReport1.PrepareReport then begin DataModule1.frReport1.ShowPreparedReport; ShowModal; end; end; free; end; except showmessage('无法打印,请检查打印机连接!'); end; end;
begin
try
setcurrentdir(cdir);
DataModule1.frReport1.LoadFromFile(frfName);
with TPVform.Create(nil) do
begin
if ADOQu.Active then
if ADOQu.RecordCount>0 then
begin
DataModule1.frReport1.Preview := frPreview1;
if DataModule1.frReport1.PrepareReport then
begin
DataModule1.frReport1.ShowPreparedReport;
ShowModal;
end;
end;
free;
end;
except
showmessage('无法打印,请检查打印机连接!');
end;
end;
ADOQu:TSimpleDataset//数据源
http://www.csdn.net/Subject/137/