Anybody know how to do this?

[bburnell]

I want to send a crytal report job to the printer and have that job print 3 copies. Right now CR is sending 3 jobs. I've asked Crystal Decisions about this and they said CR will always send 3 jobs. Can this be done? The only way I can think of is maybe through Post Script or PCL. Any suggestions?
Thanks!
Brett

CR v8.0
VB v6.0
Xerox DC265 Please visit my websites!

http://www.b2ksolutions.net

http://smsforce.virtualave.net

http://www.goodguyz.com

 

[bburnell]

Anybody, please? Please visit my websites!

http://www.b2ksolutions.net

http://smsforce.virtualave.net

http://www.goodguyz.com

 

[bburnell]

Hi,
If anyone is interested in the problem/solution to this, here it is. After talking to Xerox and Crystal Solutions, we found that when you check "collate," it will send 3 jobs instead of 1. The problem is when you do that and you have a 1 page report duplexed, it prints 2 jobs on 1 sheet of paper. Here is some code Crystal Solutions sent me to help fix it...

Dim Job As Integer
Dim H As Integer
Dim CrMode As crDEVMODE
Dim POptions As PEPrintOptions

Private Sub Form_Load()

PEOpenEngine
Job = PEOpenPrintJob("C:\temp\report1.rpt&quot
If Job = 0 Then MsgBox "Error:" & PEGetErrorCode(Job)

POptions.StructSize = PE_SIZEOF_PRINT_OPTIONS

H = PEGetPrintOptions(Job, POptions)
If H = 0 Then MsgBox "Error:" & PEGetErrorCode(Job)

POptions.collation = PE_COLLATED
'use PE_UNCOLLATED for uncollated

H = PESetPrintOptions(Job, POptions)
If H = 0 Then MsgBox "Error:" & PEGetErrorCode(Job)

H = PEOutputToPrinter(Job, 1)
If H = 0 Then MsgBox "Error:" & PEGetErrorCode(Job)

H = PEStartPrintJob(Job, True)
If H = 0 Then MsgBox "Error:" & PEGetErrorCode(Job)

H = PEClosePrintJob(Job)
PECloseEngine

End Sub

They also referred me to their knowledgebase article #C2005478. I hope this helps others as well as it helped me!
Brett Please visit my websites!

http://www.b2ksolutions.net

http://smsforce.virtualave.net

http://www.goodguyz.com