cReport As CRAXDDRT.Report  
With cReport.ExportOptions
 .FormatType = crEFTExcel97
            .ExcelExportAllPages = True
            .ExcelAreaType = crDetail
            .ExcelChopPageHeader = False
            .ExcelConvertDateToString = False
            .ExcelExportImagesInDataOnly = True
            .ExcelExportPageAreaPair = crExportNoPageAreaPair
            .ExcelMaintainColumnAlignment = False
            .ExcelPageBreaks = False
            .ExcelShowGridlines = True
            .ExcelUseConstantColumnWidth = False
.DestinationType = CRExportDestinationType.crEDTDiskFile
            .DiskFileName = aSavePath
            
            If CheckSaveFileReport(aSavePath) Then
                cReport.Export (False)
                MsgBox "Экспорт завершен!" & vbCrLf & "Путь к сохраненному файлу " & aSavePath
            End If
         End Select