Browse Source

Report, Export xlsx

MaiXinRong 8 years atrás
parent
commit
6a58cfc782
2 changed files with 5 additions and 4 deletions
  1. 2 2
      Forms/ReportsFrm.dfm
  2. 3 2
      Forms/ReportsFrm.pas

+ 2 - 2
Forms/ReportsFrm.dfm

@@ -204,8 +204,8 @@ object ReportsForm: TReportsForm
         object imgSearch: TImage
           Left = 195
           Top = 3
-          Width = 16
-          Height = 16
+          Width = 32
+          Height = 32
           Cursor = crHandPoint
           Anchors = [akTop, akRight]
           AutoSize = True

+ 3 - 2
Forms/ReportsFrm.pas

@@ -1436,8 +1436,9 @@ procedure TReportsForm.ExportXlsReport(AStartPage, AEndPage: Integer;
     LoadExcelBorder(Border);
     if IsExcel2010 then
       // 康博士代码中写批量打印是,用Printer.Canvas,打印当前时,用PreviewBox.Canvas。不懂为什么
-      APrintCom.OutputToExcelRangeXMLEx(PreviewBox.Canvas, AStartPage,
-          AEndPage, GetTemplateXlsFileName, AFileName, Border, ExcelMode)
+      //APrintCom.OutputToExcelRangeXMLEx(PreviewBox.Canvas, AStartPage,
+          //AEndPage, GetTemplateXlsFileName, AFileName, Border, ExcelMode)
+      APrintCom.OutputToExcelFileOE(PreviewBox.Canvas, AStartPage, AEndPage, GetTemplateXlsFileName, ExcelMode, Border)
     else
       APrintCom.OutputToExcelFile(PreviewBox.Canvas, AStartPage,
           AEndPage, GetTemplateXlsFileName, AFileName, ExcelMode, Border);