fastreport的预览代码是什么

Question

fastreport的预览代码是什么

Answer 1

这是我的一段代码，给你参考一下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;

Answer 2

frfName:string;我的报表文件名（*.rtf）
ADOQu:TSimpleDataset//数据源

Answer 3

那setcurrentdir(cdir);中的cdir和TPVform分别指的是什么？

Answer 4

何必罗嗦，这里看看,有没有你所需要的：
http://www.csdn.net/Subject/137/