Can't print more than 75 reports... Load report failed

Question

Hi,
I have a problem: I can't print more than 75 reports without restarting my application.
I'm using VB, Visual Studio 2005 and Crystal Reports Developer XI Release 2.
It's a windows application.
In the following examples I'm exporting to pdf but the same hapens if I put it on a viewer.
I tried to do some tests to find out the problem. I don't have a solution yet
Test 1:
I made a cycle printing 100 times the same report. I used the code from an example that was in the BusinessObjects website and just put it into a cycle. At 75 I get the error "Load Report Failed"
   at CrystalDecisions.ReportAppServer.ReportClientDocumentWrapper.EnsureDocumentIsOpened()
   at CrystalDecisions.CrystalReports.Engine.ReportDocument.Load(String filename, OpenReportMethod openMethod, Int16 parentJob)
   at CrystalDecisions.CrystalReports.Engine.ReportClass.Load(String reportName, OpenReportMethod openMethod, Int16 parentJob)
   at CrystalDecisions.CrystalReports.Engine.ReportDocument.EnsureLoadReport()
Dim ExportFolder As String = Application.StartupPath + "\export"
If Not IO.Directory.Exists(ExportFolder) Then
IO.Directory.CreateDirectory(ExportFolder)
End If
For i As Integer = 1 To 100
Dim crReportDocument As ReportDocument
Dim crDiskFileDestinationOptions As DiskFileDestinationOptions
''The path/location where the exported file will be saved
Dim exportFilePath As String = ExportFolder + "\exported" & i & ".pdf"
''Create an instance of the Chart report
crReportDocument = New Chart()
''Set the options for saving the exported file to disk
crDiskFileDestinationOptions = New DiskFileDestinationOptions()
crDiskFileDestinationOptions.DiskFileName = exportFilePath
crReportDocument.ExportOptions.DestinationOptions = crDiskFileDestinationOptions
crReportDocument.ExportOptions.ExportDestinationType = ExportDestinationType.DiskFile
crReportDocument.ExportOptions.ExportFormatType = ExportFormatType.PortableDocFormat
''Export the report
crReportDocument.Export()
Next
Test 2:
I try to insert a "crReportDocument.Dispose() after the Export. It takes more than 1 minute doing the dispose and lots of time processing the 2nd report (more than 2 minutes)
Dim ExportFolder As String = Application.StartupPath + "\export"
If Not IO.Directory.Exists(ExportFolder) Then
IO.Directory.CreateDirectory(ExportFolder)
End If
For i As Integer = 1 To 100
Dim crReportDocument As ReportDocument
Dim crDiskFileDestinationOptions As DiskFileDestinationOptions
''The path/location where the exported file will be saved
Dim exportFilePath As String = ExportFolder + "\exported" & i & ".pdf"
''Create an instance of the Chart report
crReportDocument = New Chart()
''Set the options for saving the exported file to disk
crDiskFileDestinationOptions = New DiskFileDestinationOptions()
crDiskFileDestinationOptions.DiskFileName = exportFilePath
crReportDocument.ExportOptions.DestinationOptions = crDiskFileDestinationOptions
crReportDocument.ExportOptions.ExportDestinationType = ExportDestinationType.DiskFile
crReportDocument.ExportOptions.ExportFormatType = ExportFormatType.PortableDocFormat
''Export the report
crReportDocument.Export()
' Dispose
crReportDocument.Dispose()
Next
Test 3
Same as Test3 but with ReportDocument.Close() before the dispose.
Still doesn't work, Close takes too long, just like Dispose...
Test 4
I tried using a global variable with the ReportDocument.
Instead of creating new instances of the ReportDocument, I keep using the same.
It works fine if I use always the same report file, but if I try to print 2 different reports the 2nd returns the error "Load Report Failed" and takes too long loading before the error.
Well, I made some researches on internet and I foud this, but still doesn't work with me, because Dispose always takes too long... 
http://www.arquitecturadesoftware.org/blogs/hugobatista/archive/2006/02/22/236.aspx
http://www.arquitecturadesoftware.org/blogs/hugobatista/archive/2006/05/23/328.aspx
http://www.arquitecturadesoftware.org/blogs/hugobatista/archive/2007/04/05/CrystalReportsMemoryLeakFixByJerryCote.aspx
Can anybody help?
Thanks
Isabel
Edited by: Isabel Cabral on Aug 12, 2008 8:12 PM

Answer 1

Already tried that, then I get another problem...
After exporting the first report, takes 1 or 2 minutes doing the Close and the Dispose, and after that it takes too long trying to load the next report (after 1 hour I give up!).
This is the code I'm using to do the tests:
        'Create the export folder
        Dim ExportFolder As String = Application.StartupPath + "\export"
        If Not IO.Directory.Exists(ExportFolder) Then
            IO.Directory.CreateDirectory(ExportFolder)
        End If
        For i As Integer = 1 To 100
            Dim crReportDocument As ReportDocument
            Dim crDiskFileDestinationOptions As DiskFileDestinationOptions
            ''The path/location where the exported file will be saved
            Dim exportFilePath As String = ExportFolder + "\exported" & i & ".pdf"
            ''Create an instance of the Chart report
            crReportDocument = New Chart()
            ''Set the options for saving the exported file to disk
            crDiskFileDestinationOptions = New DiskFileDestinationOptions()
            crDiskFileDestinationOptions.DiskFileName = exportFilePath
            crReportDocument.ExportOptions.DestinationOptions = crDiskFileDestinationOptions
            crReportDocument.ExportOptions.ExportDestinationType = ExportDestinationType.DiskFile
            crReportDocument.ExportOptions.ExportFormatType = ExportFormatType.PortableDocFormat
            ''Export the report
            crReportDocument.Export()
            'Close and dispose
            crReportDocument.Close()
            crReportDocument.Dispose()
        Next
Thanks,
Isabel