|
|
@@ -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
|
