Dim exportOpts As ExportOptions = RptObj.ExportOptions If strRepFormate = "PDF" Then exportOpts.ExportFormatType = ExportFormatType.PortableDocFormat Else exportOpts.ExportFormatType = ExportFormatType.Excel Dim objExcelOptions As ExcelFormatOptions = New ExcelFormatOptions objExcelOptions.ExcelUseConstantColumnWidth = False RptObj.ExportOptions.FormatOptions = objExcelOptions End If exportOpts.ExportDestinationType = ExportDestinationType.DiskFile exportOpts.DestinationOptions = New DiskFileDestinationOptions Dim diskOpts As DiskFileDestinationOptions = New DiskFileDestinationOptions
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)