I use CR9 and this is how I do it:
VB Code:
Dim CRXParamDefs As CRAXDRT.ParameterFieldDefinitions
Dim CRXParamDef As CRAXDRT.ParameterFieldDefinition
Set CRXParamDefs = crxReport.ParameterFields
'DISABLE PROMPTING
crxReport.EnableParameterPrompting = False
For Each CRXParamDef In CRXParamDefs
With CRXParamDef
'GET THE PARAMETER NAME
Select Case .ParameterFieldName
Case "@ServiceTimeLine"
'SET THE VALUE (REPORT_PRMx is a Variable)
.SetCurrentValue REPORT_PRM2
Case "@FormCode"
.SetCurrentValue REPORT_PRM1
End Select
End With
Next