Crystal Reports

Buenos días a tod@s, estaba intentado buscar un problema sobre el crystal reports pero como no funciona el buscador os lanzo la pregunta para ver si alguien sabe de esto:

Mi problema es que cuando se imprimen rpts (informes crystal), da un mensaje de "Demasiados informes abiertos. Cierre uno de ellos", el problema es que solo hay abierto el informe que se esta imprimiendo y no da siempre, sino que da cuando le de la gana.

Los informes en principio se encuentran en el servidor se se llaman desde local, pero para realizar pruebas, se cogieron y se pusieron en local para que la llamada fuera de local a local.

Ya no se que hacer... lo último que se me ocurre deciros es que la conexión que utilizo el RDO.......

Por favor... ¿Alguien me puede lanzar una ayuda???

Muchas gracias por anticipado.

Editado por alejandrofuentes, Viernes, 18 de Junio de 2004, 04:50</TR>

RE: Crystal Reports

mira a ver si te sirve de ayuda yo lo hago asi

Lista.ReportFileName = PathReport + "report.rpt"
Lista.Formulas(0) = "nomemp=" & GNomEmp & ""
gCtrlImp = CompruebaSeleccion(Lista)
result = Lista.PrintReport
If result <> 0 Then
MsgBox "Problemas en la generación del listado - " & result, vbCritical
End If

el pathreport le envio el camino donde encontrar el "rpt"
y la funcion "compruebaseleccion" es

Public Function CompruebaSeleccion(ByRef Lista As CrystalReport) As Integer
On Error GoTo errorreport
If gnumimp <> 99 Then
Set Printer = Printers(gnumimp)
lista.PrinterName = Printer.DeviceName
lista.PrinterDriver = Printer.DriverName
lista.PrinterPort = Printer.Port
End If
Lista.WindowShowCancelBtn = True
Lista.WindowShowCloseBtn = True
Lista.WindowShowExportBtn = True
Lista.WindowShowGroupTree = True
Lista.WindowShowNavigationCtls = True
Lista.WindowShowPrintBtn = True
Lista.WindowShowPrintSetupBtn = True
Lista.WindowShowProgressCtls = True
Lista.WindowShowSearchBtn = True
Lista.WindowShowZoomCtl = True
Lista.WindowShowRefreshBtn = True
Lista.DataFiles(0) = PathParam

Modificación de la Ubicación del Subinforme
Dim i As Long
For i = 0 To Lista.GetNSubreports - 1
Lista.SubreportToChange = Lista.GetNthSubreportName(i)
Lista.DataFiles(0) = PathParam
Next i

Se vuelve a dejar para que afecte al principal
Lista.SubreportToChange = ""
CompruebaSeleccion = 0
Exit Function
errorreport:
If Err = 20401 Then
Resume Next
End If
End Function

a ver si hay suerte

__________________
J.Mora