RE:Crystal Reports ayuda por favor
Publicado por
Luís Alberto (1 intervención) el 30/07/2007 23:14:08
pues mira, en realidad había estado en el disco # 3, solo que estaba dentro de otras subcarpetas y había que buscarlo, no como un instalador autorun, sino como un simple archivillo, lo encontré, lo instalé y ahora estoy estancado en el proceso de impresión, justamente aquí me da el error:
Private Sub imprimir_Click()
If DataCombo1 <> "" Then
If strCadena <> "" Then
strCadena = strCadena & " and "
End If
strCadena = strCadena & "{totales.newmatricula} = " & txt_newmatricula
MDIprobando.reporte.SelectionFormula = ""
'MDIprobando.reporte.SelectionFormula = strCadena
MDIprobando.reporte.Destination = crptToPrinter
MDIprobando.reporte.DataFiles(0) = "C:\encanto\integrl.mdb"
MDIprobando.reporte.WindowTitle = "Papel"
MDIprobando.reporte.WindowState = crptMaximized
MDIprobando.reporte.ReportFileName = "C:\encanto\rpt\datosgen1.rpt"
MDIprobando.reporte.Action = 0
'AQUÍ me da error 20536 en tiempo de ejecución con la opción 1 o 0
ErrHandler:
If Err.Number = -2147206461 Then
MsgBox "El archivo de reporte no se encuentra, restáurelo de los discos de instalación", _
vbCritical + vbOKOnly
End If
Else
MsgBox "Por favor elija un curso para imprimir", vbOKOnly
End If
End Sub
si conoce alguna forma de desatascarme agracezco mucho su ayuda de antemano, saludos cordiales.