Pasar Variable A Reporte

[GeoAvila]

bueno aqui te pongo un ejemplo

Código:

Option Explicit
Private crApp As New CRAXDRT.Application
Private crReport As New CRAXDRT.Report
Private Sub CargarReporte()
Dim crParamDefs As CRAXDRT.ParameterFieldDefinitions
Dim crParamDef As CRAXDRT.ParameterFieldDefinition
On Error GoTo ErrHandler
'Abrir el reporte
Screen.MousePointer = vbHourglass
 
mflgContinuar = True
Set crReport = crApp.OpenReport(App.Path & "\ReportesSQL\RptCuadre.rpt", 1)
' Parametros del reporte
Set crParamDefs = crReport.ParameterFields
For Each crParamDef In crParamDefs
Select Case crParamDef.ParameterFieldName
Case "fecha"
crParamDef.AddCurrentValue (Format(FechaFin.value, "DD/MM/yyyy")) 'un parametro de fecha
Case "usuario"
crParamDef.AddCurrentValue (Val(TxtCodUsr.Text)) ' un parametro de numero
End Select
Next
CRViewer1.ReportSource = crReport
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
Set crParamDefs = Nothing
Set crParamDef = Nothing
Exit Sub
ErrHandler:
If Err.Number = -2147206461 Then
MsgBox "Error al cargar el reporte", _
vbCritical + vbOKOnly
Else
MsgBox Err.Description, vbCritical + vbOKOnly
End If
mflgContinuar = False
Screen.MousePointer = vbDefault
End Sub

Nos Vemos