Como modifico mi codigo para pasarle ese parametro desde un text1, el codigo que utilizo para el reporte sin parametro es este:
Código:
Public Function Imprimir(strsql As String, strpathrep As String) As Boolean Dim rs As New ADODB.Recordset On Error GoTo OcurrioError Set Cryapp = CreateObject("Crystal.CRPE.Application") Set CryReport = Cryapp.OpenReport(strpathrep) rs.Open strsql, dbConex, adOpenDynamic, adLockOptimistic Set reportDb = CryReport.Database Set reportTables = reportDb.Tables Set reportTable = reportTables.Item(1) Call reportTable.SetPrivateData(3, rs) Set repView = CryReport.Preview Imprimir = True Exit Function OcurrioError: Imprimir = False MsgBox "Ocurrio un error: " & Err.Number & " " & Err.Description End Function