export excel OE paper-type

Forms/ReportsFrm.dfm

@@ -212,8 +212,8 @@ object ReportsForm: TReportsForm
         object imgSearch: TImage
           Left = 197
           Top = 3
-          Width = 16
-          Height = 16
+          Width = 32
+          Height = 32
           Cursor = crHandPoint
           Anchors = [akTop, akRight]
           AutoSize = True
@@ -296,7 +296,7 @@ object ReportsForm: TReportsForm
     Font.Charset = DEFAULT_CHARSET
     Font.Color = clWindowText
     Font.Height = -12
-    Font.Name = 'Microsoft YaHei UI'
+    Font.Name = #24494#36719#38597#40657
     Font.Style = []
     Bars = <
       item

Forms/ReportsFrm.pas

@@ -1456,13 +1456,19 @@ procedure TReportsForm.ExportXlsReport(AStartPage, AEndPage: Integer;
   procedure ExportPagesXlsReport(AStartPage, AEndPage: Integer; const AFileName: string);
   var
     Border : TColumnLineRec;
+    Node: TExTreeNode;
+    vTemplateNode: TTemplateNode;
   begin
     LoadExcelBorder(Border);
+    Node := extvReport.Selected;
+    vTemplateNode := TTemplateNode(Node.Data);
+    LoadTemplet(vTemplateNode, APrintCom);
     if IsExcel2010 then
       APrintCom.OutputToExcelFileOE(PreviewBox.Canvas, AStartPage, AEndPage, AFileName, ExcelMode, Border, nil)
     else
-      APrintCom.OutputToExcelFile(PreviewBox.Canvas, AStartPage,
-          AEndPage, GetTemplateXlsFileName, AFileName, ExcelMode, Border);
+      //APrintCom.OutputToExcelFile(PreviewBox.Canvas, AStartPage, AEndPage, GetTemplateXlsFileName, AFileName, ExcelMode, Border);
+      APrintCom.OutputToExcelFileOE(PreviewBox.Canvas, AStartPage, AEndPage, AFileName, ExcelMode, Border, nil);
+      //现2010格式与之前格式应用同一控件导出
   end;
 
 var