Cómo imprimo reporte con un solo registro con Cristal Reports

en el reporte de cristal o cambia la instruccion Where de cristal en tiempo
de ejecucion
ejemplo

donde rpt es de tipo CrystalReports.Engine.ReportDocument
rpt.RecordSelectionFormula = {TuTabla.Identificador}=TuValor

o

Por medio de Parametros
Esta funcion es la que utilizo para ingresar parametros
en donde ParamName es el nombre del parametro que asignaste en tu reporte
y Value es el valor ejemplo

AddParametroCristal("NombreParametro",TuValor)


Private Sub AddParametroCristal(ByVal ParamName As String, ByVal Value As
Object)

Dim P As CrystalReports.Engine.ParameterFieldDefinition

'Recorre la coleccion de parametros

For Each P In mCrApp.DataDefinition.ParameterFields

If P.Name = ParamName Then 'Si el nombre del parametro es el correcto le
asigna el valor

Dim CV As New CrystalDecisions.Shared.ParameterDiscreteValue

Dim PV As CrystalDecisions.Shared.ParameterValues

CV.Value = Value

PV = P.CurrentValues

PV.Add(CV)

P.ApplyCurrentValues(PV)

Exit For

End If

Next

End Sub

Saludos



"rbal" escribió en el mensaje
news:

Hola,
Quiero imprimir un reporte con Cristal Report pero seleccionar un solor
registro para la impresión y no todo el reporte.

¿Cómo se hace?

Hola Henry
Parece que falta la primera línea de tu respuesta. Existe alguna manera de
hacer la impresión sin cambiar la instrucción en tiempo de ejecución,
solamente utilizando propiedades?

"Henry.Net" escribió:

en el reporte de cristal o cambia la instruccion Where de cristal en tiempo
de ejecucion
ejemplo

donde rpt es de tipo CrystalReports.Engine.ReportDocument
rpt.RecordSelectionFormula = {TuTabla.Identificador}=TuValor

o

Por medio de Parametros
Esta funcion es la que utilizo para ingresar parametros
en donde ParamName es el nombre del parametro que asignaste en tu reporte
y Value es el valor ejemplo

AddParametroCristal("NombreParametro",TuValor)


Private Sub AddParametroCristal(ByVal ParamName As String, ByVal Value As
Object)

Dim P As CrystalReports.Engine.ParameterFieldDefinition

'Recorre la coleccion de parametros

For Each P In mCrApp.DataDefinition.ParameterFields

If P.Name = ParamName Then 'Si el nombre del parametro es el correcto le
asigna el valor

Dim CV As New CrystalDecisions.Shared.ParameterDiscreteValue

Dim PV As CrystalDecisions.Shared.ParameterValues

CV.Value = Value

PV = P.CurrentValues

PV.Add(CV)

P.ApplyCurrentValues(PV)

Exit For

End If

Next

End Sub

Saludos



"rbal" escribió en el mensaje
news:
> Hola,
> Quiero imprimir un reporte con Cristal Report pero seleccionar un solor
> registro para la impresión y no todo el reporte.
>
> ¿Cómo se hace?