Problemas imprimiendo reporte crystal8.5
Hola, te pido ayuda ya que necesito imprimir un reporte sencillísimo hecho en Crystal report 8.5, se pega a una tabla única que lo que lista son notas sin ningún filtro.
Cuando trato de imprimirlo desde código VB6.0 me indica el Error 20599 Cannot open SQL Server.
Le envuoio el código usado
Sub ImprimeCalificacion()
'Procedimiento que imprime la calificacion de los proveedores detallada
Dim sql As String 'consulta a la base de datos
Dim loRs As New ADODB.Recordset
Dim crParamDefs As CRAXDDRT.ParameterFieldDefinitions
Dim crParamDef As CRAXDDRT.ParameterFieldDefinition
On Error GoTo Errorhandler
repImprime.ReportFileName = gsRuta & "Evaluacion.rpt"
repImprime.Connect = db '"DSN = Compras;UID = " & gsCodUsr & ";PWD =" & gsClave & " ;DSQ =Compras"
repImprime.Destination = 0 'Ver por Pantalla
repImprime.WindowMaxButton = True
repImprime.Action = 1
end sub
No se que hacer porque siempre me da ese error y no puedo imprimir nada de nada, ¿me ayudan por favor?
Cuando trato de imprimirlo desde código VB6.0 me indica el Error 20599 Cannot open SQL Server.
Le envuoio el código usado
Sub ImprimeCalificacion()
'Procedimiento que imprime la calificacion de los proveedores detallada
Dim sql As String 'consulta a la base de datos
Dim loRs As New ADODB.Recordset
Dim crParamDefs As CRAXDDRT.ParameterFieldDefinitions
Dim crParamDef As CRAXDDRT.ParameterFieldDefinition
On Error GoTo Errorhandler
repImprime.ReportFileName = gsRuta & "Evaluacion.rpt"
repImprime.Connect = db '"DSN = Compras;UID = " & gsCodUsr & ";PWD =" & gsClave & " ;DSQ =Compras"
repImprime.Destination = 0 'Ver por Pantalla
repImprime.WindowMaxButton = True
repImprime.Action = 1
end sub
No se que hacer porque siempre me da ese error y no puedo imprimir nada de nada, ¿me ayudan por favor?
1 respuesta
Respuesta de robertotf
Lamento no poder ayudarte ya que no trabajo con Crystal Report.
