RESOLVED!! How to export to PDF for printing using VS.NET

[ARPRINCE]

Has anyone successfully configured export to PDF for printing using VS and CR on a web? I'm having problems with my code. It craps out when I reach export command.

I'm getting the error:

Invalid export options.
Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code.

Exception Details: CrystalDecisions.CrystalReports.Engine.InvalidArgumentException: Invalid export options.

Source Error:


Line 286: '| EXPORT |
Line 287: '+--------+
Line 288: crReportDocument1.Export() '<---- ERROR HERE
Line 289:
Line 290: '+-----------------+


Source File: c:\inetpub\wwwroot\CRTEST\RAInformation_ORIG.aspx.vb Line: 288

Stack Trace:


[InvalidArgumentException: Invalid export options.]
.L(String , EngineExceptionErrorID )
.H(String , Int32 )
CrystalDecisions.CrystalReports.Engine.FormatEngine.internalSetExportOptions(ExportOptions exportOptions)
CrystalDecisions.CrystalReports.Engine.FormatEngine.Export(ExportRequestContext reqContext)
CrystalDecisions.CrystalReports.Engine.FormatEngine.Export()
CrystalDecisions.CrystalReports.Engine.ReportDocument.Export()
CRTEST.RAInformation_ORIG1.Button1_Click(Object sender, EventArgs e) in c:\inetpub\wwwroot\CRTEST\RAInformation_ORIG.aspx.vb:288
System.Web.UI.WebControls.Button.OnClick(EventArgs e)
System.Web.UI.WebControls.Button.System.Web.UI.IPostBackEventHandler.RaisePostBackEvent(String eventArgument)
System.Web.UI.Page.RaisePostBackEvent(IPostBackEventHandler sourceControl, String eventArgument)
System.Web.UI.Page.RaisePostBackEvent(NameValueCollection postData)
System.Web.UI.Page.ProcessRequestMain()

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim crReportDocument1 As ReportDocument
        Dim crExportOptions As ExportOptions
        Dim crDiskFileDestinationOptions As DiskFileDestinationOptions
 
        '+-------------------------+
        '| CREATE NAME OF PDF FILE |
        '+-------------------------+
        Dim Fname As String
        Fname = "C:\EXPORTS\" & Session.SessionID.ToString & ".pdf"
 
        '+--------------------------+
        '| INITIALIZE REPORT OBJECT |
        '+--------------------------+
        crReportDocument1 = New ReportDocument
        crReportDocument1.Load("C:\inetpub\wwwroot\CRTEST\RAInformation_ORIG.RPT")
 
        '+-----------------+
        '| SQL SERVER INFO |
        '+-----------------+
        crConnectionInfo = New ConnectionInfo
        With crConnectionInfo
            .ServerName = "SQLMAIN"
            .DatabaseName = "RMA"
            .UserID = "USER1"
            .Password = "TESTDATA"
        End With
 
        '+------------------------------------------+
        '| GET TABLES COLLECTION FROM REPORT OBJECT |
        '+------------------------------------------+
        crDatabase = crReportDocument1.Database
        crTables = crDatabase.Tables
 
        '+-------------------------+
        '| APPLY LOGIN INFORMATION |
        '+-------------------------+
        For Each crTable In crTables
            crTableLogOnInfo = crTable.LogOnInfo
            crTableLogOnInfo.ConnectionInfo = crConnectionInfo
            crTable.ApplyLogOnInfo(crTableLogOnInfo)
        Next
 
        '+---------------------------+
        '| INITIALIZE EXPORT OPTIONS |
        '+---------------------------+
        crDiskFileDestinationOptions = New DiskFileDestinationOptions
        crDiskFileDestinationOptions.DiskFileName = Fname
        crExportOptions = crReportDocument1.ExportOptions
 
 
        '+------------------------------------------------+
        '| INITILIZE PARAMETER FIELD AND VALUE COLLECTION |
        '+------------------------------------------------+
        Dim crParamFields As ParameterFieldDefinitions = crReportDocument1.DataDefinition.ParameterFields
        Dim crParamField As ParameterFieldDefinition                                                ' Crystal Parameter Field
        Dim crParamValues As ParameterValues                                                        ' Crystal Parameter Values Collection
        Dim crParamValue As ParameterDiscreteValue                                                  ' Crystal Parameter Value 
 
        '+---------------------+
        '| SET PARAMETER VALUE |
        '+---------------------+
        crParamField = crParamFields(0)               ' Get Parameter Field
        crParamValues = crParamField.CurrentValues              ' Get Current Values
        crParamValue = New ParameterDiscreteValue               ' Instanciate New Discrete Value
        crParamValue.Value = "16040050"                         ' Set Discrete Value
        crParamValues.Add(crParamValue)                         ' Add Value to CurrentValues Collection
        crParamField.ApplyCurrentValues(crParamValues)          ' Apply Value Changes
 
 
        With crExportOptions
            .DestinationOptions = crDiskFileDestinationOptions
            .DestinationOptions = .ExportDestinationType.DiskFile
            .ExportFormatType = .ExportFormatType.PortableDocFormat
        End With
 
 
        '+--------+
        '| EXPORT |
        '+--------+
        crReportDocument1.Export()       '<---- ERROR HERE
 
        '+-----------------+
        '| SEND TO BROWSER |
        '+-----------------+
        Response.ClearContent()
        Response.ClearHeaders()
        Response.ContentType = "application/pdf"
        Response.WriteFile(Fname)
 
        '+---------+
        '| CLEANUP |
        '+---------+
        Response.Flush()
        Response.Close()
 
        System.IO.File.Delete(Fname)
    End Sub

TIF

[ARPRINCE]

OK here's the culprit!

With crExportOptions
            .DestinationOptions = crDiskFileDestinationOptions
            '.DestinationOptions = .ExportDestinationType.DiskFile.ExportFormatType    <---- WRONG OPTION
            .ExportDestinationType = .ExportDestinationType.DiskFile
            .ExportFormatType = .ExportFormatType.PortableDocFormat
        End With