QuickReportで印刷設定ダイアログを出す

※QuickReport 3.0.3

QuickReportと TPrinterSetupダイアログコンポーネントは まったく関係が無いのでそれらを配置しただけでは 印刷設定がレポートに反映されません。 印刷部数、ページ範囲、用紙の向きなどを設定できるようにするには QuickReportが内部に持つプリンタセットアップを使用します。

なお、印刷設定ダイアログで [OK] を押したか [キャンセル] を押したか判断するには なんと、Tagプロパティ を調べます (見つけるの大変でした)。
Tagが 0 なら OK、それ以外ならキャンセルです。

■ QuickReportで印刷設定ダイアログを出す例

procedure TForm1.Button1OnClick(Sender: TObject); begin QuickRep1.Prepare; QuickRep1.QRPrinter.PageCount := QuickRep.PageNumber; QuickRep1.QRPrinter.PrintSetup; if QuickRep1.Tag = 0 begin QuickRep1.Print; end; end;