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