SoloCodigo

Mira:

Lo que tienes que hacer es tambien redireccionar los subinformes, recuerda que en realidad son informes y si no les indicas la ubicacion de la base de datos no te saldran los datos.  Pueds hacer lo que sigue a mi me funcionea bien:

Si ya tienes codigo para imprimir desde visual aumenta estas lineas al codigo:

 'PARA EL CONTROL DE LOS SUBREPORTES
        aaa = CReport1.GetNthSubreportName(0)
        bbb = CReport1.GetNthSubreportName(1)

        CReport1.SubreportToChange = aaa
        CReport1.DataFiles(0) = gblubicacion & "Ventas.mdb"

        CReport1.SubreportToChange = bbb
        CReport1.DataFiles(0) = gblubicacion & "Ventas.mdb"

        CReport1.SubreportToChange = ""
        CReport1.Action = 1



donde aaa y bbb son variables string
gblubicacion es una variable donde se encuentra la rura de la base de datos
tambien podrias sustituir  CReport1.DataFiles(0) = gblubicacion & "Ventas.mdb"
por otro ejemplo   CReport1.DataFiles(0) ="C:\carpeta\Ventas.mdb"


pruebalo seguro te funcionara

saludos

Juan Carlos

Hola a todos:
Me registré a éste foro con el solo motivo de dar testimonio de como sirven las respuestas de las personas en los foros y animar a todos a colaborar cuando saben las respuestas. Mi duda era la misma que "MindEye" posteado en: "Vie Jul 09, 2004 5:27 pm" y respondido por "Juan C  Lun Jul 12, 2004 9:11 pm". Hoy es 25/Ago/2009 y quería decirle gracias a Juan porque hoy todavía su respuesta sigue ayudando. Así lo hice yo con su ayuda:

  ctlImpresion.ReportFileName = frmLogin.strPathReport & "" & vNombreRpt
  MDIMenu.ctlImpresion.SubreportToChange =  MDIMenu.ctlImpresion.GetNthSubreportName(0)
  MDIMenu.ctlImpresion.DataFiles(0) = frmLogin.vPathDB
  MDIMenu.ctlImpresion.SubreportToChange = ""

Saludos
Carlos - PY