I am using the following VBA code to automatically refresh my crystal reports:
Dim crpApplication As CRPEAuto.Application
Dim crpReport As CRPEAuto.Report
Set crpApplication = CreateObject("Crystal.CRPE.Application"
...
Set crpReport = crpApplication.OpenReport(strStartDirectory & "\" & Rs!ReportName)
crpReport.DiscardSavedData
crpReport.ExportOptions.DiskFileName = strEndDirectory & "\" & Rs!ReportName
crpReport.ExportOptions.DestinationType = crEDTDiskFile
crpReport.ExportOptions.FormatType crEFTCrystalReport
crEFTCrystalReportcrpReport.Export (False)
If I use the crystal version 7 engine the reports are in version 7, if I use the crystal version 8 engine then the reports are in version 8.
What I would like to do is use version 8 and refresh into version 7. This works when you refresh and save using crystal, but there does not seem to be a way to do this in programming.
Any ideas?
Harry
Dim crpApplication As CRPEAuto.Application
Dim crpReport As CRPEAuto.Report
Set crpApplication = CreateObject("Crystal.CRPE.Application"
...
Set crpReport = crpApplication.OpenReport(strStartDirectory & "\" & Rs!ReportName)
crpReport.DiscardSavedData
crpReport.ExportOptions.DiskFileName = strEndDirectory & "\" & Rs!ReportName
crpReport.ExportOptions.DestinationType = crEDTDiskFile
crpReport.ExportOptions.FormatType crEFTCrystalReport
crEFTCrystalReportcrpReport.Export (False)
If I use the crystal version 7 engine the reports are in version 7, if I use the crystal version 8 engine then the reports are in version 8.
What I would like to do is use version 8 and refresh into version 7. This works when you refresh and save using crystal, but there does not seem to be a way to do this in programming.
Any ideas?
Harry