SoloCodigo

Run-Time error '-2147192184(80047288)'; Server has not yet been opened

--------------------------------------------------------------------------------

Hola estoy tratando de Exportar un documento de Crystal 8.5 des de VB 6 pero me marca este error Run-Tome error '-2147192184(80047288)'; Server has not yet been opened......... ya baje el MDAC 2.8 y sigue la cosa igual, utilizo esta rutina:


Dim Export As CRAXDRT.ExportOptions
Dim Report As CRAXDRT.Report
Dim appl As New CRAXDRT.Application

appl.LogOnServer "PDSODBC.DLL", "ExxSysTech", "", "", ""

Set Report = appl.OpenReport(pathREPORTES & "EXCO1010.rpt", 1)

Report.ExportOptions.DestinationType = crEDTDiskFile
Report.ExportOptions.FormatType = crEFTPortableDocFormat
Report.ExportOptions.DiskFileName = pathINTERNET & 10 & ".pdf"
Report.Export False


ExxSysTech = Es el ODBC que creo en la maquina
EXCO1010 = Es el nombre del reporte que quiero exportar
Utilizo la Referencia.......... Crystal Report 8.5 ActiveX Designer Run Time Library


Si alguien sabe o ha experimentado el mismo problema y lo soluciono por favor paseme el tip. Gracias.

[email:n8y8klf1]vazquezvega@hotmail.com[/email:n8y8klf1]
Monterrey, Mexico.