Joe Coley
6-Jul-2005, 12:44 PM
When running a report compiled from VDF, it works. When running the same
program from a shortcut, I get an error. I have narrowed the error down to
occurring in the CrystalReport.pkg in the following line:
Procedure StartPrintJob // Integer iWaitUntilDone
Integer iPrintJob iResult iObject
Get PrintJob To iPrintJob
// note that the statuspanel logic is private (and unused). This could
// change in the future
// Check if there is a status object...
If (StatusPanel_Id(self)) Begin
Move (StatusPanel_Id(self)) To iObject
// in case this pkg is used inside of a set of packages that does not
support
// the label property, we will exclude this from the code. Even if supported
this
// only works if the container object supports the label property.
#IFDEF SET_LABEL
#IFDEF GET_LABEL
Set Label Of iObject To (Label(self))
#ENDIF
#ENDIF
Send Popup To iObject
End // If (StatusPanel_Id(self)) Begin
Move (PEStartPrintJob(iPrintJob,True)) To iResult <<----- ERROR HERE
Send HandlePossibleError
// Stop displaying status info...
If iObject Send Deactivate To (StatusPanel_Id(self))
End_Procedure // StartPrintJob
This happens on several different machines. Any ideas on what to look for? I
only have CR9 installed on this machine. Again, what is odd, is that it
works straight from a compile and not from a shortcut.
Joe Coley (with help from David Martinko).
program from a shortcut, I get an error. I have narrowed the error down to
occurring in the CrystalReport.pkg in the following line:
Procedure StartPrintJob // Integer iWaitUntilDone
Integer iPrintJob iResult iObject
Get PrintJob To iPrintJob
// note that the statuspanel logic is private (and unused). This could
// change in the future
// Check if there is a status object...
If (StatusPanel_Id(self)) Begin
Move (StatusPanel_Id(self)) To iObject
// in case this pkg is used inside of a set of packages that does not
support
// the label property, we will exclude this from the code. Even if supported
this
// only works if the container object supports the label property.
#IFDEF SET_LABEL
#IFDEF GET_LABEL
Set Label Of iObject To (Label(self))
#ENDIF
#ENDIF
Send Popup To iObject
End // If (StatusPanel_Id(self)) Begin
Move (PEStartPrintJob(iPrintJob,True)) To iResult <<----- ERROR HERE
Send HandlePossibleError
// Stop displaying status info...
If iObject Send Deactivate To (StatusPanel_Id(self))
End_Procedure // StartPrintJob
This happens on several different machines. Any ideas on what to look for? I
only have CR9 installed on this machine. Again, what is odd, is that it
works straight from a compile and not from a shortcut.
Joe Coley (with help from David Martinko).