Hi,
I am using crystal report 8.5 developer version and MS Access (2003). I have created a report with a JPG company logo inserted. If I manually export the report to PDF. No problem and the picture looks good. However when I run VB code from Access 2003 to auto export to PDF, the picture quality decreased badly. Is there anyone who could give me some advice?
Thanks in advance. I here also attached part of the VB code below for your easy reference
ReportName = Source
'Using the .OpenReport method from the Application object to set your Report object to a RPT file
Set crxReport = crxApplication.OpenReport(ReportName)
crxReport.ParameterFields.Item(1).AddCurrentValue (CustDB!CustNum)
OutName = Destination + CStr(CustDB!CustNum) + ".pdf"
crxReport.ReadRecords
'Defines report's format type
crxReport.ExportOptions.FormatType = crEFTPortableDocFormat
'Defines report's destination type
crxReport.ExportOptions.DestinationType = crEDTDiskFile
'Defines report's file name
crxReport.ExportOptions.DiskFileName = OutName
'exports without calling the exporting dialog window
crxReport.Export False
I am using crystal report 8.5 developer version and MS Access (2003). I have created a report with a JPG company logo inserted. If I manually export the report to PDF. No problem and the picture looks good. However when I run VB code from Access 2003 to auto export to PDF, the picture quality decreased badly. Is there anyone who could give me some advice?
Thanks in advance. I here also attached part of the VB code below for your easy reference
ReportName = Source
'Using the .OpenReport method from the Application object to set your Report object to a RPT file
Set crxReport = crxApplication.OpenReport(ReportName)
crxReport.ParameterFields.Item(1).AddCurrentValue (CustDB!CustNum)
OutName = Destination + CStr(CustDB!CustNum) + ".pdf"
crxReport.ReadRecords
'Defines report's format type
crxReport.ExportOptions.FormatType = crEFTPortableDocFormat
'Defines report's destination type
crxReport.ExportOptions.DestinationType = crEDTDiskFile
'Defines report's file name
crxReport.ExportOptions.DiskFileName = OutName
'exports without calling the exporting dialog window
crxReport.Export False