Printer And rDC

[nagesh2002]

Hi

I have to send same report to 2 diffenrent printers and
user selected paper tray, I am using crystareports 8.371 activex run time libray.I created a report based on query
which has 2 parameters . Iam using syntax like this

Dim rep As New CRAXDRT.Report
Dim crpParamDefs As CRAXDRT.ParameterFieldDefinitions
Dim crpParamDef As CRAXDRT.ParameterFieldDefinition

Set rep = obj.OpenReport(app_path & "reports7\InvoiceVACATION.rpt&quot
rep.ParameterFields(1).AddCurrentValue -1
rep.ParameterFields(2).AddCurrentValue 21893302
rep.RecordSelectionFormula = ""
rep.PaperSource = crPRBinMiddle
rep.PaperOrientation = crPortrait
rep.PrintOut (False)

I am getting error 'server has not yet opened.
But if i used the report without parameters and using selection formala passing data it is working fine.

Can you give solution for it.

Thanks
Rao