SoloCodigo

Gracias por el código , ahora le echare un vistazo, en cuanto a los de la versión 10, siento no poder ayudarte , porque no tengo el disco de instalación porque a mi me lo han instalado, y una vez que lo han hecho se llevarón en CD , y no tengo tampoco la posibilidad de conseguirlo.

Salu2

Yo he pasado de la versión 8 a la versión 10.

Mi problema esta en que en la versión 10 no se puede utilizar la OCX, en la que para hacer cualquier cosa con el Report solo tenias que poner

REPORT.Connect = "CADENA DE CONEXIÓN"
REPORT.ReportFileName = "NOMBRE DEL REPORT"
REPORT.Action=1

Y ya esta.

Pero ahora tengo que hacer algo parecido a esto:

Dim cr_app As CRAXDRT.Application
Dim cr_listado As CRAXDRT.Report

Set cr_app = New CRAXDRT.Application
Set cr_listado = New CRAXDRT.Report

Set cr_listado = cr_app.OpenReport("NOMBRE  DEL REPORT", 1)

Visor.ReportSource = cr_listado

Visor.DisplayGroupTree = False
Visor.ViewReport

Y no tengo ni idea de:
Como pasarle la cadena de conexión, como cambiar las formulas y como pasarle datos a los subinformes o de como mandarlo directamente a la impresora.

Si alguien me puede ayudar se lo agradecería muchisimo.

Salu2