Dim crDiskFileDestinationOptions As New DiskFileDestinationOptions() Dim rptRepDocument As New ReportDocument Dim conInfo As New ConnectionInfo rptRepDocument.RecordSelectionFormula = strSelection mstrExportFilePath = AppTmpPath & "\tmp\" & docno & ".html" crDiskFileDestinationOptions.DiskFileName = mstrExportFilePath crExportOptions = rptRepDocument.ExportOptions With crExportOptions .DestinationOptions = crDiskFileDestinationOptions .ExportDestinationType = CrystalDecisions.Shared.ExportDestinationType.DiskFile .ExportFormatType = CrystalDecisions.Shared.ExportFormatType.HTML40 End With rptRepDocument.Export()
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)