Monday, August 27, 2012

Export Crystal Report to PDF using VB.Net for Download in your DotNetNuke site

The code below will force download of PDF version of you crystal report in DotNetNuke. This code is base on this article.
' Create a temporary filename
Dim strPDF As String = MapPath("Reports/TO" & Session.SessionID & ".pdf")

' Create report
Dim rpt As New TravelOrderList

' Set report params
'rpt.SetParameterValue("ReportTitle", "Report Title")
'rpt.SetParameterValue("ReportSubTitle", "Sub Title")

' Set report datasource
rpt.SetDataSource(ds)
Dim CrExportOptions As ExportOptions Dim CrDiskFileDestinationOptions As New DiskFileDestinationOptions() Dim CrFormatTypeOptions As New PdfRtfWordFormatOptions() CrDiskFileDestinationOptions.DiskFileName = strPDF CrExportOptions = rpt.ExportOptions With CrExportOptions .ExportDestinationType = ExportDestinationType.DiskFile .ExportFormatType = ExportFormatType.PortableDocFormat .DestinationOptions = CrDiskFileDestinationOptions .FormatOptions = CrFormatTypeOptions End With rpt.Export() ' Force download(in DNN) FileSystemUtils.DownloadFile(strPDF) ' Delete temp file IO.File.Delete(strPDF)

HTH



No comments:

Post a Comment