浏览代码

报表控件,设置了纸张大小后,还需设置打印纸张大小ID。

MaiXinRong 9 年之前
父节点
当前提交
f05d49ce99
共有 1 个文件被更改,包括 4 次插入0 次删除
  1. 4 0
      Forms/ReportsFrm.pas

+ 4 - 0
Forms/ReportsFrm.pas

@@ -773,6 +773,10 @@ procedure TReportsForm.InitPageSettings;
 begin
   // ÉèÖÃÒ³Ãæ´óС
   PreviewComXML.setPageSize(ReportConfig.PageSize);
+  if ReportConfig.PageSize = 'A3' then
+    PreviewComXML.PrintPageSizeIdx := DMPAPER_A3
+  else if ReportConfig.PageSize = 'A4' then
+    PreviewComXML.PrintPageSizeIdx := DMPAPER_A4;  
   // ÉèÖñ߾à
   PreviewComXML.setEdge(0, '', ReportConfig.LeftEdge/10);
   PreviewComXML.setEdge(1, '', ReportConfig.RightEdge/10);