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.
