Report, Export xlsx

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

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