关于自定义报表预览的问题，请大家帮我看一下，谢谢!

Question

当我jinghoreport.quickrep1.preview;时自定义打印预览窗口，QRPreview1报表显示不出来报表，请大家帮帮忙，以下是我的自定义打印预览窗口代码
unit prevwin;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, QRPrntr, StdCtrls, Buttons;type
  Tpreform = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    QRPreview1: TQRPreview;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public  end;var
  preform: Tpreform;implementation
uses
jinghoreportUnit;{$R *.dfm}procedure Tpreform.BitBtn2Click(Sender: TObject);begin //ZoomToFit 缩 放 至 全 屏
QRPreview1.ZoomToFit;
end;
procedure Tpreform.BitBtn3Click(Sender: TObject);
begin //ZoomTo100% 缩 放 至 实 际 大 小
QRPreview1.Zoom:=100;
end;procedure Tpreform.BitBtn4Click(Sender: TObject);begin //ZoomToWidth 缩 放 至 页 宽
QRPreview1.ZoomToWidth;
end;procedure Tpreform.BitBtn1Click(Sender: TObject);
begin //print setup
QRPreview1.QRPrinter.PrintSetup;
end;
procedure Tpreform.BitBtn5Click(Sender: TObject);
begin
QRPreview1.QRPrinter.Print;end;
end.报表窗体unit jinghoreportUnit;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, QuickRpt, QRCtrls, ExtCtrls, StdCtrls, Mask, DBCtrls, QRPrntr;type
  Tjinghoreport = class(TForm)
    QuickRep1: TQuickRep;
    ColumnHeaderBand1: TQRBand;
    DetailBand1: TQRBand;
    PageFooterBand1: TQRBand;
    PageHeaderBand1: TQRBand;
    TitleBand1: TQRBand;
    QRDBText1: TQRDBText;
    QRDBText2: TQRDBText;
    QRSubDetail1: TQRSubDetail;
    QRDBText3: TQRDBText;
    QRDBText4: TQRDBText;
    procedure QuickRep1Preview(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  jinghoreport: Tjinghoreport;implementationuses
unit3, prevwin;{$R *.dfm}procedure Tjinghoreport.QuickRep1Preview(Sender: TObject);
var
preform:tpreform;
begin
preform:= TPreform.Create(Application);
preform.qrpreview1.QRPrinter := jinghoreport.QuickRep1.QRPrinter ;
try
preform.Showmodal;
finally
preform.Free;
preform:=nil;
end;
end;
end.

Answer 1

应该是：
try
  preform.Show;
  jinghoreport.QuickRep1.preview;
finally
  .....

Answer 2

用QRPreview就可以做预览界面，还是显示不出来报表。preform.qrpreview1如何关联jinghoreport.QuickRep1.能否发一分原代码给我，[email protected]
谢谢大家！

Answer 3

preform.Showmodal;//改为.show
finally//去掉这些
preform.Free;//
preform:=nil;//
end;//

Answer 4

十分感谢！： My_first(海浪) 可是关闭预览窗口后，却退不出原来的窗口，进入死机，还是请教你！

Answer 5

还是请教
QRPreview1.QRPrinter.PrintSetup;
QRPreview1.QRPrinter.Print;都是什么意思哪个是打印

Answer 6

十分感谢！： My_first(海浪) 可是关闭预览窗口后，却退不出原来的窗口，进入死机，还是请教你！
好象jinghoreport.QuickRep1没用退出，如何退出呢？