EJEMPLO:
Private Sub btn_Imprimir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Imprimir.Click
Dim Listado As New frmListado()
Dim Reporte As New crMayorAnalitico()
Dim Reporte2 As New crMayorAnalitico2()
'Para imprimir parametros:
Dim pvCollection As New CrystalDecisions.Shared.ParameterValues()
Dim pdvString1 As New CrystalDecisions.Shared.ParameterDiscreteValue()
pvCollection.Clear()
pdvString1.Value = var_TipoS
pvCollection.Add(pdvString1)
Reporte.DataDefinition.ParameterFields("var_TipoS").ApplyCurrentValues(pvCollection)
pvCollection.Clear()
pdvString1.Value = var_GrupoS
pvCollection.Add(pdvString1)
Reporte.DataDefinition.ParameterFields("var_GrupoS").ApplyCurrentValues(pvCollection)
y asi con cuanto parametros desees pasar
'********************************
Listado.ShowDialog()
End Sub