SoloCodigo

Tengo un proyecto hecho con VB y CR 8.5. Después de compilarlo y hacer el paquete de instalación con todas sus dll's y ocx correspondientes lo llevo a instalar en ordenadores distintos pero ninguno con vb ni cr.

El problema viene cuando en algunos ordenadores me funciona el proyecto correctamente y en otros me da el siguiente error:

"Error 430: Esta clase no admite Automatización o la interfaz esperada"

¿A qué se debe este fallo??

Espero que alguien me pueda ayudar o darme alguna idea porque no se me ocurre nada... estoy desesperado.

Salu2

No imprimir una imagen en Crystal (URGE XFAVOR)

He diseñado un informe para imprimir recibos, en este incluyo los correspondientes campos/campos calculados y una imagen de un recibo de fondo para que el usuario vea préviamente el informe de como le quedarán los recibos a la hora de imprimirlos con la imagen de fondo incluida pero no quisiera que a la hora de imprimir el informe se imprimiese la imagen del recibo pues el cliente ya mete el papel con la imagen del recibo impreso. No consigo HACER QUE NO SE IMPRIMA LA IMAGEN con los datos.

Utilizo CR 8.5 y VB6.0.

Espero que alguien pueda solucionar mi problema pues me urge solucionarlo pronto. Muchas gracias a todos.

Tengo unos reportes hechos con Crystal Reports 8 y cuando hago referencia a uno desde VB6 para mostrar o imprimir no hay ningun problema pero cuando intento hacer una consulta para filtrar los datos que quiero que salgan siempre me da el error capturado de "No se encuentra servidor SQL". ¿A qué se debe? Necesito con urgencia solucionar el problema ya que es parte de un proyecto. Muchisimas gracias a todos.

Código:
Public Function Imprimir(ByVal reporte As String, ByVal titulo As String)
    'IMPRIME INFORMES DE CLIENTES/TARIFAS
On Error GoTo defError
    MDI.CrystalReport1.WindowControlBox = True
    MDI.CrystalReport1.WindowState = crptMaximized
    MDI.CrystalReport1.WindowTitle = titulo
    MDI.CrystalReport1.Destination = crptToWindow 'crptToPrinter
    MDI.CrystalReport1.ReportSource = crptReport
    'MDI.CrystalReport1.DataFiles(0) = App.Path & "datosbdregara.mdb"
    MDI.CrystalReport1.ReportFileName = App.Path & "rpt" & reporte
    MDI.CrystalReport1.SelectionFormula = "{tblClientes.PROVINCIA}='" & var & "'" & ""
    MDI.CrystalReport1.Action = 1
    Exit Function
defError:
    If Err.Number = 20507 Then
        MsgBox "El informe a imprimir no se encuentra o está dañado." & Chr(13) & Chr(13) & "Asegúrese de que el informe se encuentra correctamente en el directorio rpt y vuelva a intentar la operación.", vbExclamation, "Imprimir"
    Else
        MsgBox "Error nº" & Err.Number & ": " & Err.Description, vbCritical, "Imprimir"
    End If
End Function