內建預覽視窗功能固定、風格不一,自訂可整合列印、縮放、頁碼、進度顯示等。
另建 `Form2` 放 `TQuickRep` (名 `QuickRep1`),`PrinterSetup.Units = mm`,設計報表版面。
void __fastcall TForm2::QuickRep1Preview(TObject *Sender)
{
// 將預覽導向自訂視窗 Form1
Form1->QRPreview1->QRPrinter = QuickRep1->QRPrinter;
Form1->Caption = "報表預覽 - " + QuickRep1->ReportTitle;
Form1->Show(); // 或 ShowModal
}
| 功能 | QRPreview 方法/屬性 |
|---|---|
| 列印 | QRPreview->Print() |
| 列印設定 | QRPreview->PrinterSetupDialog() |
| 上/下頁 | QRPreview->PageNumber +/- 1 |
| 放大/縮小 | QRPreview->Zoom +/- 10 (或 ZoomIn/ZoomOut) |
| 關閉 | Close() |
QuickReport 產生過程觸發 `OnProgress`,將 `PercentDone` 同步至 `ProgressBar->Position`。