Operation not yet implemented when exporting crystal report to pdf

Question

Thank you in advance,
When running the line **** export within the following code, I am getting the following error message:
"Error in File C:\DOCUME1\rborda\LOCALS1\Temp\TimeDetailTest {00DC8730-45CD-4A29-8854-C44BBD5B5230}.rpt: Operation not yet implemented."
I tried the following solution registering dlls, but still did not solve the problem above:
regsvr32 "C:\Program Files\Common Files\Crystal Decisions\2.0\bin\crtslv.dll"
regsvr32 "C:\Program Files\Common Files\Crystal Decisions\2.0\bin\ExportModeller.dll"
regsvr32 "C:\Program Files\Common Files\Crystal Decisions\2.0\bin\tslv.dll"
CODE:
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Imports CrystalDecisions.ReportAppServer
Imports CrystalDecisions.Web
Imports CrystalDecisions.ReportSource
Partial Public Class _Default
    Inherits System.Web.UI.Page
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    End Sub
    Private Sub btnRunReport_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnRunReport.Click
        'Try
        Dim ConInfo As New CrystalDecisions.Shared.TableLogOnInfo
        Dim oRptDoc As New ReportDocument
        Dim expo As New ExportOptions
        Dim oDiskFileDestinOption As New DiskFileDestinationOptions()
        Dim strCrystalReportFilePath As String
        Dim strPdfFileDestinationPath As String
        Dim crParameterDiscreteValue As ParameterDiscreteValue
        Dim crParameterFieldDefinitions As ParameterFieldDefinitions
        Dim crParameterFieldLocation As ParameterFieldDefinition
        Dim crParameterValues As ParameterValues
        strCrystalReportFilePath = "C:\TimeDetailTest.rpt"
        strPdfFileDestinationPath = "C:\TimeDetailTest0814.pdf"
        oRptDoc.Load(strCrystalReportFilePath) 'loads the crystalreports in to the memory
        'Create parameter objects
        'Provide Parameter values
        crParameterFieldDefinitions = oRptDoc.DataDefinition.ParameterFields
        crParameterFieldLocation = crParameterFieldDefinitions.Item("StartPeriod")
        crParameterValues = crParameterFieldLocation.CurrentValues
        crParameterDiscreteValue = New CrystalDecisions.Shared.ParameterDiscreteValue
        crParameterDiscreteValue.Value = #7/6/2008#
        crParameterValues.Add(crParameterDiscreteValue)
        crParameterFieldLocation.ApplyCurrentValues(crParameterValues)
        crParameterFieldLocation = crParameterFieldDefinitions.Item("EndPeriod")
        crParameterValues = crParameterFieldLocation.CurrentValues
        crParameterDiscreteValue = New CrystalDecisions.Shared.ParameterDiscreteValue
        crParameterDiscreteValue.Value = #8/2/2008#
        crParameterValues.Add(crParameterDiscreteValue)
        crParameterFieldLocation.ApplyCurrentValues(crParameterValues)
        'Export Information
        oDiskFileDestinOption.DiskFileName = strPdfFileDestinationPath    'path of file where u want to locate ur PDF
        oRptDoc.ExportOptions.DestinationOptions = oDiskFileDestinOption
        oRptDoc.ExportOptions.ExportDestinationType = ExportDestinationType.DiskFile
        oRptDoc.ExportOptions.ExportFormatType = ExportFormatType.PortableDocFormat
       oRptDoc.Export()
    End Sub
End Class

Answer 1

I got the same error message when trying to export a report to Excel format.  This happened with an existing report that had always exported with no problem, until I added a couple of new formulas. After investigating, I discovered that one of my formulas was returning a divide by zero error if a date range was too small.  Once I fixed that formula, it began exporting again with no problem.  I discovered this by trying to export to PDF (since all of the situations discussed here involved PDF) and that was when it returned the divide by zero error.