shankarpatil
Programmer
Hi All,
Please suggest some solution to the following problem.I am trying to get thru this for a long time.Additional information about the environment is at the bottom.
i) I am trying to set the paper source using RDC .If any one has a working code for the same please pass it to me
I am using the following code to set the paper source at run time. The property propTrayNumber is a valid enum printer tray integer.
After setting the paper source with fReportObject.PaperSource = 256 ,the .papersource still returns 0. No matter what valid integer I set for the paper source the .paperSource returns 0
Private Sub CRViewer1_PrintButtonClicked(UseDefault As Boolean)
Dim tempPrinter As printer
If UCase(Trim(propPrinterName)) = "DEFUALT" Then
Else
For Each tempPrinter In Printers
If (Trim(UCase(tempPrinter.DeviceName))) = (Trim(UCase(propPrinterName))) Then
fReportObject.SelectPrinter tempPrinter.DriverName, tempPrinter.DeviceName, tempPrinter.Port fReportObject.PaperSource =256
End If
Next
End If
End Sub
Seagate Crystal Reports
Version: SCR 8.0.x.371 (Developer)
Database : DB/2
Operating System: Windows NT 4.0 Workstation
Programming Language : Visual Basic 6.0 (32 Bit)
Object Model : RDC
Please suggest some solution to the following problem.I am trying to get thru this for a long time.Additional information about the environment is at the bottom.
i) I am trying to set the paper source using RDC .If any one has a working code for the same please pass it to me
I am using the following code to set the paper source at run time. The property propTrayNumber is a valid enum printer tray integer.
After setting the paper source with fReportObject.PaperSource = 256 ,the .papersource still returns 0. No matter what valid integer I set for the paper source the .paperSource returns 0
Private Sub CRViewer1_PrintButtonClicked(UseDefault As Boolean)
Dim tempPrinter As printer
If UCase(Trim(propPrinterName)) = "DEFUALT" Then
Else
For Each tempPrinter In Printers
If (Trim(UCase(tempPrinter.DeviceName))) = (Trim(UCase(propPrinterName))) Then
fReportObject.SelectPrinter tempPrinter.DriverName, tempPrinter.DeviceName, tempPrinter.Port fReportObject.PaperSource =256
End If
Next
End If
End Sub
Seagate Crystal Reports
Version: SCR 8.0.x.371 (Developer)
Database : DB/2
Operating System: Windows NT 4.0 Workstation
Programming Language : Visual Basic 6.0 (32 Bit)
Object Model : RDC