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