Lotus Notes - Cambio de versión de Crystal Reports

   
Vista:

Cambio de versión de Crystal Reports

Publicado por CRISTOBAL cristobalcoletogarcia@yahoo.es (2 intervenciones) el 18/02/2016 16:05:28
Hola a tod@s,

Estamos haciendo pruebas de migración a Windows 10, y en los nuevos equipos, en lugar de tener instalado el Crystal Reports 8, nos van a instalar el 11.

Hasta ahora, para crear un objeto de Crystal Reports estaba usando este código pero, con la versión 11 me está fallando, dándome el mensaje "The object's application or class is not available"

1
2
3
4
5
6
7
8
9
10
Public Function EjecutaReportForm( Source As Notesuidocument )
        Dim m_Viewer As Variant, App As Variant
 
        With Source
                Stop
                ' The Crystal Report Viewer Control
                Set m_Viewer = .GetObject("Crystal Report Viewer Control")
                
                ' The application object
                Set App = CreateObject("CrystalRuntime.Application")

Alguien sabría decirme cómo hay que invocar al Crystal Reports para la versión 11?

Muchas gracias anticipadas
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder