Hi Expert , crystal report export problem. system not responding

Question

Hi,
crystal report export problem. system not responding.
Thanks
Rajkumar Gupta

Answer 1

Dear Raj,
Please try this
          Try
            Dim oSubReport As CrystalDecisions.CrystalReports.Engine.SubreportObject
            Dim rptSubReportDoc As CrystalDecisions.CrystalReports.Engine.ReportDocument
            Dim rptView As New CrystalDecisions.Windows.Forms.CrystalReportViewer
            Dim rptPath As String = System.Windows.Forms.Application.StartupPath & "\" & rptName
            Dim rptDoc As New CrystalDecisions.CrystalReports.Engine.ReportDocument
            rptDoc.Load(rptPath)
            rptView.ShowExportButton = True
            rptView.ReportSource = rptDoc
            For Each oMainReportTable As CrystalDecisions.CrystalReports.Engine.Table In rptDoc.Database.Tables
                oMainReportTable.Location = System.Windows.Forms.Application.StartupPath & "\" & SourceXML
            Next
            For Each rptSection As CrystalDecisions.CrystalReports.Engine.Section In rptDoc.ReportDefinition.Sections
                For Each rptObject As CrystalDecisions.CrystalReports.Engine.ReportObject In rptSection.ReportObjects
                    If rptObject.Kind = CrystalDecisions.Shared.ReportObjectKind.SubreportObject Then
                        oSubReport = rptObject
                        rptSubReportDoc = oSubReport.OpenSubreport(oSubReport.SubreportName)
                        For Each oSubTable As CrystalDecisions.CrystalReports.Engine.Table In rptSubReportDoc.Database.Tables
                            oSubTable.Location = System.Windows.Forms.Application.StartupPath & "\" & SourceXML
                        Next
                    End If
                Next
            Next
            'Setting Paper
            Dim rawKind As Integer = 0
            Dim printSet As New System.Drawing.Printing.PrinterSettings
            For i As Integer = 0 To printSet.PaperSizes.Count - 1
                If printSet.PaperSizes.Item(i).PaperName.ToUpper = PaperName.ToUpper Then
                    rawKind = CInt(printSet.PaperSizes.Item(i).RawKind)
                    Exit For
                End If
            Next
            Dim MyTest As New SaveFileDialog
            rptDoc.PrintOptions.PaperSize = CType(rawKind, CrystalDecisions.Shared.PaperSize)
            rptDoc.ExportToStream(ExportFormatType.Excel)
            'rptDoc.SaveAs("C:\TBKING.xls", True)
            '''How to export the report
            Try
                Dim CrExportOptions As ExportOptions
                Dim CrDiskFileDestinationOptions As New _
                DiskFileDestinationOptions()
                Dim rename As String
                rename = rptName.Replace(".rpt", "")
                Dim CrFormatTypeOptions As New ExcelFormatOptions
                CrDiskFileDestinationOptions.DiskFileName = _
                                            "c:\Report\" & rename & "_Export_File.xls"
                CrExportOptions = rptDoc.ExportOptions
                With CrExportOptions
                    .ExportDestinationType = ExportDestinationType.DiskFile
                    .ExportFormatType = ExportFormatType.Excel
                    .DestinationOptions = CrDiskFileDestinationOptions
                    .FormatOptions = CrFormatTypeOptions
                End With
                rptDoc.Export()
            Catch ex As Exception
                MsgBox(ex.ToString)
            End Try
            '' end by kevin shah
            rptView.Show()
            rptView.ShowExportButton = True
            Dim oFrm As New System.Windows.Forms.Form
            rptView.DisplayGroupTree = True
            rptView.Dock = System.Windows.Forms.DockStyle.Fill
            rptView.Location = New System.Drawing.Point(0, 0)
            oFrm.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
            oFrm.Controls.Add(rptView)
            oFrm.Name = "Report Viewer"
            oFrm.Text = "Report Viewer11"
            oFrm.ResumeLayout(True)
            oFrm.WindowState = System.Windows.Forms.FormWindowState.Maximized
            oFrm.TopMost = True
            oFrm.ShowDialog()
        Catch ex As Exception
            objMain.objApplication.MessageBox(ex.Message)
        End Try
By pressing this button XLS file be generated on C:\report\
Hope this will resolved the issue
Thanks
Kevin