Export report with parameters via PDF

Oppie · #1 (**permalink**) October 22nd, 2003, 01:38 PM

Good afternoon,

I am creating a report website with asp.net and crystal.net. I have been successful in getting all of my reports to display correctly within the viewer, but I can not export them in any format, preferably PDF. I was able to pass the parameters to the viewer, but I can't seem to get the parameters to the export procedure. Does anyone have a clue how to pass the parameters that I have in this code below to the export procedure? I would like for the user to view the report within the webpage and then be able to click a PDF button that will send the report to the Acrobat Plug-In so the user may print or save the report.

InitializeComponent()
crReportDocument1 = New PendingDisbRpt
crvReports.ReportSource = crReportDocument1
''Get the collection of parameters from the report
crParameterFields = crvReports.ParameterFieldInfo
''Access the specified parameter from the collection
crParameterField = crParameterFields.Item("BANK")
crParameterValues = crParameterField.CurrentValues
''Set the current values for the parameter field
crParameterDiscreteValue = New ParameterDiscreteValue
crParameterDiscreteValue.Value = subLenderID
''Add the first current value for the parameter field
crParameterValues.Add(crParameterDiscreteValue)
''Access the specified parameter from the collection.
''This parameter is a Range parameter
crParameterField = crParameterFields.Item("DATE")
''Get the current values from the parameter field.
''At this point there are zero values set.
crParameterValues = crParameterField.CurrentValues
crParameterRangeValue = New ParameterRangeValue
''Set the current values for the Start and End valuse of the
''parameter field
With crParameterRangeValue
    .EndValue = subDisbEndDt
    .LowerBoundType = RangeBoundType.BoundInclusive
    .StartValue = subDisbStDt
    .UpperBoundType = RangeBoundType.BoundInclusive
End With
''Add the range current value for the parameter field
crParameterValues.Add(crParameterRangeValue)
crvReports.ParameterFieldInfo = crParameterFields

Thanks,

Oppie

simtap · #2 (**permalink**) November 12th, 2003, 09:26 PM

I know this is an old post from last month, however....

I have had the exact same issue with a project that I am working on. I have solved this - are you still looking for a solution?

Cheers,
Brendan.

aoco · #3 (**permalink**) November 27th, 2003, 12:31 PM

I have the same problem today.
Any chance of you sharing your fix ? - please ...

Aoco

simtap · #4 (**permalink**) November 27th, 2003, 06:53 PM

Here is how I did it. This code is from the Page_Load event.

Code:

        'NEW TO TEST EXPORT TO PDF
        Dim crExportOptions As ExportOptions
        Dim crDiskFileDestinationOptions As DiskFileDestinationOptions
        Dim fname As String

        Dim MyTableLogOnInfo As CrystalDecisions.Shared.TableLogOnInfo
        'CrystalDecisions.Shared.TableLogOnInfo MyTableLogOnInfo;
        Dim MyConnectionInfo As New ConnectionInfo()
        'ConnectionInfo MyConnectionInfo;

        ''create a ReportDocument and load the CR report file...
        Dim MyReportDocument As New ReportDocument()
        'ReportDocument MyReportDocument = new ReportDocument();
        'MyReportDocument.Load(@"d:\delta\TryCrystal\CrystalReport2.rpt");
        MyReportDocument.Load("c:\Inetpub\wwwroot\Beston\sample3.rpt")
        ''set up connection information (the password isn't kept in the report file)...
        'MyConnectionInfo = new ConnectionInfo();
        MyConnectionInfo.Password = "password"
        Dim T As CrystalDecisions.CrystalReports.Engine.Table
        For Each T In MyReportDocument.Database.Tables
            MyTableLogOnInfo = T.LogOnInfo
            MyTableLogOnInfo.ConnectionInfo = MyConnectionInfo
            T.ApplyLogOnInfo(MyTableLogOnInfo)
        Next


        'set the viewer's report source...
        'crvSample.ReportSource = MyReportDocument
        Dim field As New CrystalDecisions.Shared.ParameterValues()
        Dim value As New CrystalDecisions.Shared.ParameterDiscreteValue()

        value.Value = 1
        field.Add(value)

        MyReportDocument.DataDefinition.ParameterFields(0).ApplyCurrentValues(field)

        'Export the file instead.
        fname = "c:\export\" & Session.SessionID.ToString & ".pdf"
        crDiskFileDestinationOptions = New DiskFileDestinationOptions()
        crDiskFileDestinationOptions.DiskFileName = fname
        crExportOptions = MyReportDocument.ExportOptions
        With crExportOptions
            .DestinationOptions = crDiskFileDestinationOptions
            .ExportDestinationType = ExportDestinationType.DiskFile
            .ExportFormatType = ExportFormatType.PortableDocFormat
        End With

        MyReportDocument.Export()

        Response.ClearContent()
        Response.ClearHeaders()
        Response.ContentType = "application/pdf"
        Response.WriteFile(fname)
        Response.Flush()
        Response.Close()

This code exports the report to a PDF file, and then loads the PDF file into the browser.

If you find anymore to add to the discussion, please post it here. I was working on this stuff as research for a project for one of my clients. They have since canned it, and I don't have time to examine it further.

Cheers,
Brendan.

simtap · #5 (**permalink**) November 27th, 2003, 07:00 PM

Further to the above, note that I could not seem to combine the Viewer and its parameters with exporting, and exporting without the viewer handles parameters differently...

evilmousse · #6 (**permalink**) December 15th, 2003, 02:25 PM

i have this code, and it works for me.
it loads querystring params as the report params,
they just need to have all the same names. the
rpt querystring is taken as the report object's name,
any and all others get taken as reportparams.
cheers, and good luck.
no time for explanations, dr. jones.

   -evilme

Imports System.IO
    Private Sub ImageButton1_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton1.Click
        Dim crReportDocument As New CrystalDecisions.CrystalReports.Engine.ReportDocum ent
        Dim crExportOptions As CrystalDecisions.Shared.ExportOptions
        Dim OutputFile As String 'full path to destination file, minus extension
        Dim OutputURL As String ' URL of output file

        Dim loop1, loop2 As Integer
        Dim arr1(), arr2() As String
        Dim coll As System.Collections.Specialized.NameValueCollection

        crReportDocument.Load(Server.MapPath(Request.Query String("rpt") + ".rpt"))
        coll = Request.QueryString
        arr1 = coll.AllKeys
        For loop1 = 0 To arr1.GetUpperBound(0)
            arr2 = coll.GetValues(loop1)
            If (arr1(loop1) <> "rpt") Then
                crReportDocument.SetParameterValue("@" + arr1(loop1), arr2(0))
            End If
        Next loop1

        crReportDocument.SetDatabaseLogon("mylogin", "mypwd", "myhost", "mydb")

        crExportOptions = crReportDocument.ExportOptions
        crExportOptions.ExportFormatType = CrystalDecisions.Shared.ExportFormatType.PortableD ocFormat
        OutputFile = Server.MapPath(".\ExportedReports\" & Request.QueryString("rpt") & ".pdf")
        OutputURL = "./ExportedReports/" & Request.QueryString("rpt") & ".pdf"
        If File.Exists(OutputFile) Then
            File.Delete(OutputFile)
        End If
        Dim crDiskFileDestinationOptions As New CrystalDecisions.Shared.DiskFileDestinationOptions

        'The ASPNET user account must have Modify (Read & Write) permissions on the export directory

        crDiskFileDestinationOptions.DiskFileName = OutputFile
        With crExportOptions
            .DestinationOptions = crDiskFileDestinationOptions
            .ExportDestinationType = CrystalDecisions.Shared.ExportDestinationType.Disk File
        End With
        crReportDocument.Export()
        Response.Redirect(OutputURL)
    End Sub

vidyashan2k · #7 (**permalink**) March 2nd, 2005, 02:19 PM

Hi
How to overcome this problem.I face that in Visual Studio 2003.
Please give your suggestions ASAP.

Thanks

FridaTan · #8 (**permalink**) March 14th, 2005, 10:57 AM

Hi, I am now using ASP.NET with to do a project. I used Crystal Report to generate reports. My problem is, when I generate a report and able to export it into PDF, MS Word and MS Exel file, it could not export the content of report. The PDF just shows the header of report only. Any one know why the content were not exported together?

I need to solve this problem urgently, please help.

Regards,
Frida

Need to download code?

Navigation