Exportar un reporte de crystal a pdf
Publicado por Alejandra (1 intervención) el 27/03/2013 16:30:05
Hola a todos estoy trantando de exportar un reporte a pdf con este codigo
Dim Aplication As CRAXDRT.Application
Dim prcdReport As CRAXDRT.Report
Set Aplication = New CRAXDRT.Application
Set prcdReport = Aplication.OpenReport(App.Path & "\ReciboTicket.rpt")
'prcdReport.Database.SetDataSource =
prcdReport.EnableParameterPrompting = False
prcdReport.DiscardSavedData
prcdReport.ExportOptions.DestinationType = crEDTDiskFile
prcdReport.ExportOptions.DiskFileName = App.Path & "\prueba.pdf"
prcdReport.ExportOptions.FormatType = crEFTPortableDocFormat
prcdReport.Export False
Set Aplication = Nothing
Set prcdReport = Nothing
pero al ejecutar la linea (prcdReport.Export False) da el mensaje de error "File not found"
busque por todas las dll reinstale registre y me sigue saliendo el mismo error, si alguien tiene alguna idea de como resolver esto se los agradecere. Desde ya muchas gracias
Dim Aplication As CRAXDRT.Application
Dim prcdReport As CRAXDRT.Report
Set Aplication = New CRAXDRT.Application
Set prcdReport = Aplication.OpenReport(App.Path & "\ReciboTicket.rpt")
'prcdReport.Database.SetDataSource =
prcdReport.EnableParameterPrompting = False
prcdReport.DiscardSavedData
prcdReport.ExportOptions.DestinationType = crEDTDiskFile
prcdReport.ExportOptions.DiskFileName = App.Path & "\prueba.pdf"
prcdReport.ExportOptions.FormatType = crEFTPortableDocFormat
prcdReport.Export False
Set Aplication = Nothing
Set prcdReport = Nothing
pero al ejecutar la linea (prcdReport.Export False) da el mensaje de error "File not found"
busque por todas las dll reinstale registre y me sigue saliendo el mismo error, si alguien tiene alguna idea de como resolver esto se los agradecere. Desde ya muchas gracias
Valora esta pregunta


0