Hi,

I am facing an error while I am trying to export a crystal report file to pdf. The error is
"error: Exception has been thrown by the target of an invocation."
I am also enclosing the some code snippet:

Dim strExportFile as string = Server.MapPath(Request.ApplicationPath) & "\Report\" & fileName
now I am exporting to that folder "Report" which is physically in c:\inetpub\wwwroot\mywebapp\Report

I have given permission to that folder, but still receiving this error.

Please suggest.




Raja Sarkar

Judging from your code snippet and the error I don't have the foggiest idea why you are getting that error.

When I export from Crystal to PDF i do this:

        oStream = crDoc.ExportToStream(CrystalDecisions.Shared.Expor tFormatType.PortableDocFormat)
        Response.Clear()
        Response.Buffer = True
        Response.ContentType = "application/pdf"


        Response.BinaryWrite(oStream.ToArray)
        Response.End()
        oStream.Close()
        oStream = Nothing

Where crDoc = my crystal document.

"The one language all programmers understand is profanity."

Thanks for the suggestion which is working fine.

But still I need to know the reason for this error. I am enclosing the whole code. Please help if possible.

If Len(Trim(ConfigurationSettings.AppSettings("report folder"))) > 0 then
strExportFile = trim(ConfigurationSettings.AppSettings("reportfold er")) & "\" & Session.SessionID.ToString + ".pdf"
Else
  strExportFile = Server.MapPath(Request.ApplicationPath) & "\Report\" & fileName
End If

Dim exportOpts As New ExportOptions
Dim diskOpts As New DiskFileDestinationOptions
exportOpts = rptItemPrint.ExportOptions
exportOpts.ExportFormatType = ExportFormatType.PortableDocFormat
exportOpts.ExportDestinationType = ExportDestinationType.DiskFile
diskOpts.DiskFileName = strExportFile
exportOpts.DestinationOptions = diskOpts
Try
  rptItemPrint.Export()
Catch ex As Exception
  lblError.Text = ex.Message
  Exit Function
end Try

Raja Sarkar