Exporting report based on a file (.rpt)

Question

Hi
Not sure how to do this:
I have a winforms app with a Crystal Viewer on a Form. I load the ReportSource from a file
cryViewer.ReportSource = "C:\CryReport.rpt"
for instance.
What I want to do once the report is loaded and possibly refreshed by the user is to export the report to PDF/Excel/Word etc.
I have done this before with reports that are generated with a Crystal Report Class (reports embedded in the WinForm application) by setting up the ExportOptions and using the Export() function as is well documented everywhere.
I can't seem to work out how to Export if the Viewer has it's report originally brought in from a file.
Any ideas anyone?
Thanks in advance,
Julian

Answer 1

Thanks for your prompt reply Ludek.
Based on a report that is pre-created in the (VB) WinForm app at design time, giving you a .vb Class file, I have exported a report with the following code before:
Public Function CrystalConvert(ByVal rptIn As CrystalDecisions.CrystalReports.Engine.ReportClass, _
                                                   ByVal inFormat As CrystalDecisions.Shared.ExportFormatType, _
                                                   ByVal strInPath As String) As Boolean
        Try
            Dim CrExportOptions As CrystalDecisions.Shared.ExportOptions
            Dim CrDiskFileDestinationOptions As New CrystalDecisions.Shared.DiskFileDestinationOptions
            'Set the destination path and file name
            CrDiskFileDestinationOptions.DiskFileName = strInPath
            'Set export options
            CrExportOptions = rptIn.ExportOptions
            With CrExportOptions
                'Set the destination to a disk file
                .ExportDestinationType = CrystalDecisions.Shared.ExportDestinationType.DiskFile
                'Set the format
                .ExportFormatType = inFormat
                'Set the destination options to DiskFileDestinationOptions object
                .DestinationOptions = CrDiskFileDestinationOptions             
            End With
            'Export the report
            rptIn.Export()
            CrDiskFileDestinationOptions = Nothing
            CrExportOptions = Nothing
        Catch ex As Exception
            ITAXError()
            Return True
        Finally
            GC.Collect()
        End Try
    End Function
What I now need to do is do the same, but this time instead of the report being created inside the project at design time, I pass a file name to the Crystal Viewer, setting it's ReportSource and the viewer displaying the report. This means that I can't use the above function as the ReportSource is simply a file name string, whereas before I was passing in the class name that was auto-generated at design time.
What I need is for the user not to be able to click the Export button, but for them to click a button of my own design and do an export then so that I have control over where it is stored on the system, and they are shielded from any Explorer type interface.
the following code snippet is almost there:
   Dim rpt As New ReportDocument
   rpt.Load(CStr(cryViewer.ReportSource))
   rpt.SaveAs(strTempFileNameCRY, True)
   rpt.ExportToDisk(ExportFormatType.WordForWindows, strTempFileNameDoc)
The only problem is that the user may have clicked the Refresh button, and the data seen on screen may be different to what was originally generated from the .rpt, and the the above snippet is based on the .rpt.
Is there a way of exporting what we're seeing on screen without using the Crystal Viewer Export button?
Sorry for the lengthy reply, but if there is an answer, then I'd like to know it.
Many thanks for your time
Julian