Peter's Blog: 12月 2025

2025年12月25日星期四

QuickReport - 載入 Qrp 報表文件時，會預先使用預設印表機的紙張格式套用在文件上，與設計的報表格式不符...

var

repReport:TQuickRep;
iPageHeightPixel, iPageWidthPixel:Integer;
Meta: TMetafile;
begin
inherited;
repReport := TQuickRep.Create(nil);
repReport.PrevInitialZoom := qrZoomToWidth; //頁寬
repReport.PrevShowThumbs := False; //不顯示簡視欄
repReport.PrevShowSearch := False; //不顯示搜尋欄
repReport.PreviewInitialState := wsMaximized; //最大化
repReport.ShowProgress := True;
repReport.PreviewDefaultSaveType := stQRP;

repReport.Prepare;
repReport.QRPrinter.Load('Report.qrp'); //載入檔案

Meta := repReport.QRPrinter.GetPage(1);
iPageWidthPixel := Meta.Width; //取得文件記錄中的尺寸 Pixel
iPageHeightPixel := Meta.Height; //取得文件記錄中的尺寸 Pixel

repReport.Page.Orientation := repReport.QRPrinter.Orientation; //報表直/橫向
repReport.Page.PaperSize := TQRPaperSize.Custom; //報表紙張格式
repReport.Units := TQRUnit.Pixels;
repReport.Page.Length := iPageHeightPixel; //設定報表長度
repReport.Page.Width := iPageWidthPixel; //設定報表寬度

repReport.PrinterSettings.PaperSize := TQRPaperSize.Custom; //報表紙張格式

repReport.PrinterSettings.PrinterIndex := 1; //指定印表機
repReport.PrinterSettings.ApplySettings(repReport.QRPrinter);

repReport.QRPrinter.PrinterIndex := 1; //指定印表機
repReport.QRPrinter.aPrinterSettings.ApplySettings;
repReport.QRPrinter.PreviewModal; //預覽文件
end;