QrPreviewを使う

TQrPreviewは QuickRepの印刷プレビューを表示するコンポーネントですが、ヘルプを見てもサンプルを見ても使い方が書いてありません。 Word文書の方には記述されているのかもしれませんが、、 (QuickReports 3.0.4で調査)

■ QrPreviewを使って印刷プレビューをフォーム上に出す例
  procedure TForm1.Button1Click(Sender: TObject);
  begin
    Form2.QuickReport1.Prepare;
    QRPreview1.QRPrinter  :=  Form2.QuickReport1.QRPrinter;
  end;

■ QrPreviewに既存のファイルを表示する例
var
  QRPrnt  : TQRPrinter;


  QRPrnt  :=  TQRPrinter.Create;


  procedure TMainForm.lsvReportClick(Sender: TObject);
  begin
    if  FileExists(FileName)  then  begin
      //プリンタにロード (TQRPrinter)
      QRPrnt.Load(FileName);
      //プレビューに割り当て
      QRPreview1.QRPrinter  :=  QRPrnt;
      //ページ数
      lblPageCount.Caption  :=  IntToStr(QRPrnt.PageCount);
    end else begin
      MessageDlg(FileName + #13#10 +
      'は 見つかりませんでした。',mtError,[mbOk],0);
    end;
  end;