QuickReport5 TQRPreviewの表示ができない。

解決

グー助 2013-04-26 01:17:49 No: 44458

開発環境
      Windows8  Pro（64bit）
      DelphiXE3
      QuickReport Professional V5.051

にて印刷のプレビューをTQRPreviewへ表示しようと思ってるのですが、デフォルトのプレビュー画面が出てしまいます。
ターゲットプラットフォーム32Bit、64Bit共に同じ症状です。

Form1に
  Button1TButton
  QuickRep1(TQuickRep)
  QRPreview1(TQRPreview)
を貼り付け、下記のソースを書いております。

procedure TForm1.Button1Click(Sender: TObject);
begin
QuickRep1.Preview;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
QuickRep1.OnPreview := QuickRep1Preview;
end;

procedure TForm1.QuickRep1Preview(Sender: TObject);
begin
QRPreview1.QRPrinter := Sender as TQRPrinter;
end;

今までDelphi5,QuickReport3では問題ありませんでした。

色々とググってみましたが解決に至りません。。。。
どなたか解決方法ご存知の方いらっしゃいませんか？

クー助 2013-04-27 04:55:03 No: 44459

TQRPrinter.Preview
内
else
がコメントアウトされていた為でした。
バグなのか、何か理由があるのかはわかりません、が無事に動きました。