RESOLVED --> Error while exporting a crystal report

[mel_flynn]

I am getting the following error when trying to export a crystal report to PDF format.
Run-time error '-2147190908 (80047784)'
Failed to export the report

It works fine on my machine, but the error occurs when running on clients machine. I know the problem isn't with the code but with some .dll file.

 
Crystal.ReportFileName = strPath & "Quote.rpt" 
Crystal.DataFiles(0) = strPath & "QuoteSystem.mdb" 
Crystal.SelectionFormula = "{Quote.QuoteNo} = " & cboQuoteNo.Text 
Crystal.PrintFileName = QuoteLocation & ".rpt" 
Crystal.PrintFileType = crptCrystal 
Crystal.Destination = crptToFile 
Crystal.PrintReport 

Dim CRXApplication As Object, CRXReport As Object, _ 
CRXExportOptions As Object 

Set CRXApplication = CreateObject("CrystalRuntime.Application") 
Set CRXReport = CRXApplication.OpenReport(Crystal.PrintFileName) 
Set CRXExportOptions = CRXReport.ExportOptions 
CRXExportOptions.FormatType = crEFTPortableDocFormat 
CRXExportOptions.DestinationType = crEDTDiskFile 
CRXExportOptions.DiskFileName = Left(Crystal.PrintFileName, Len(Crystal.PrintFileName) - 3) & "pdf" 
CRXReport.DisplayProgressDialog = False 
CRXReport.Export False 
Set CRXExportOptions = Nothing 
Set CRXReport = Nothing 
Set CRXApplication = Nothing 

rsQuoteHdr!FileLocation = Left(Crystal.PrintFileName, Len(Crystal.PrintFileName) - 3) 
rsQuoteHdr.Update 
lbLoc.Caption = rsQuoteHdr!FileLocation 

Kill Crystal.PrintFileName