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;
|