前次改动衍生的bug(批量导出问题)

Forms/ReportsFrm.pas

@@ -1456,13 +1456,8 @@ 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