|
| |
User Groups : Forums : SiteExperts :
Microsoft .NET
:  |  trouble with crystalreports and arraylist
I'm setting up a class that will generate crystal multiple report objects, add each object to an arraylist as it is created, and finally, loop through the arraylist and print each report. I have several different methods that generate the report objects and a separate method that prints them. The problem is that when I try to call the "PrintToPrinter" method on each report
object, I get a nullreference exception.
Further examination showed that though I can reference the objects themselves, any attempt to reference a property or method in any of these objects results in the same exception. Somehow, when I instantiate an object and pass it to the arraylist in one method, and try to reference object members in another method, all members for that object are erased! I know the objects are in the arraylist and I know they are the right type because running the "getType" method on them returns the right value ("CrystalDecisions.CrystalReports.Engine.ReportDocument") How can I store an object in a collection while keeping everything about that object intact?
NOTE: I'm stuck with framework version 1.1 so the new "generics" collection available in version 2 is not an option. Code follows:
----- here is the arraylist declaration:
Private objQueue As New ArrayList
----- here is the code that adds the reportdocumentobject to the arraylist:
objReport.PrintOptions.Printername = "printer name"
objReport.SetParameterValue("copytype", "Dealer")
Me.AddToQueue(objReport)
----- The method "AddToQueue" adds the report to the arraylist:
'--- sends loaded report to Print Queue. GV 10/15/07
Public Function AddToQueue(ByRef Document As ReportDocument) As Boolean
Try
objQueue.Add(Document)
Return True
Catch ex As Exception
Return False
End Try
End Function
----- The method "PrintDocs" prints all documents in the arraylist:
Public Function PrintDocs() As Boolean
Dim objCurrentDoc As ReportDocument
Dim x As Integer
Try
'--- print all documents in queue.
If objQueue.Count = 0 Then
Throw New ApplicationException("There were no documents in
the Queue.")
End If
For x = 0 To objQueue.Count - 1
objCurrentDoc = objQueue.Item(x)
'--- this is the line that throws the exception
objCurrentDoc.PrintToPrinter(1, False, 0, 0)
Next
Return True
Catch ex As Exception
Return False
End Try
End Function
'---- the arraylist object is also exposed as a property:
'--- container for documents to be printed.
Public Property Queue() As ArrayList
Get
Return objQueue
End Get
Set(ByVal Value As ArrayList)
objQueue = Value
End Set
End Property
Started By gvenzke on Oct 19, 2007 at 8:20:40 AM | | | 1 Response(s) | Reply |
| Earlier Replies | Replies 1 to 1 of 1 | Later Replies | | on (# 1)
| | Earlier Replies | Replies 1 to 1 of 1 | Later Replies |
To respond to a discussion, you must first logon.
If you are not registered, please register yourself to become a member of the SiteExperts.community.
|
