Export from Crystal Report

[acextreme]

Hi all,

I have a big problem when I try to export from Crystal Report 8.5 in .pdf from VB6. I use a database made in SQL Server 2000.
The problem is that all the decimal fields in database are truncated in pdf when I export from VB6. For example, If I have 75.45, it will return 75.00. If I export the data direct from Crystal Report, it works fine.
I tried with some updates for Crystal Report, but with no result.
Please, help me!

[Dököll]

Hi all,

I have a big problem when I try to export from Crystal Report 8.5 in .pdf from VB6. I use a database made in SQL Server 2000.
The problem is that all the decimal fields in database are truncated in pdf when I export from VB6. For example, If I have 75.45, it will return 75.00. If I export the data direct from Crystal Report, it works fine.
I tried with some updates for Crystal Report, but with no result.
Please, help me!

Hello acextreme!

Try this:

 
Dim crxApp As CRAXDRT.Application
Dim myReport As CRAXDRT.Report
Dim crxExport As CRAXDRT.ExportOptions
 
Set crxApp = New CRAXDRT.Application
Set myReport = crxApp.OpenReport(App.path & {YourReportName}, 1)
 
With myReport
    With .ExportOptions
        .UseReportDateFormat = True
        .UseReportNumberFormat = True
        .FormatType = crEFTPortableDocFormat
        .DestinationType = crEDTDiskFile
        .DiskFileName = App.path & "{YourFileName}.pdf"
    End With
    .Export False
End With
 
 

Perhaps you can mimmick to fit your purpose. Be sure all of your DLLs are properly installed;-)

Let us know if that works!

Dököll

[acextreme]

Hello acextreme!

Try this:

 
Dim crxApp As CRAXDRT.Application
Dim myReport As CRAXDRT.Report
Dim crxExport As CRAXDRT.ExportOptions
 
Set crxApp = New CRAXDRT.Application
Set myReport = crxApp.OpenReport(App.path & {YourReportName}, 1)
 
With myReport
    With .ExportOptions
        .UseReportDateFormat = True
        .UseReportNumberFormat = True
        .FormatType = crEFTPortableDocFormat
        .DestinationType = crEDTDiskFile
        .DiskFileName = App.path & "{YourFileName}.pdf"
    End With
    .Export False
End With
 
 

Perhaps you can mimmick to fit your purpose. Be sure all of your DLLs are properly installed;-)

Let us know if that works!

Dököll

Nope, It didn't work. This is the code that I used (or something like it). :((
I'm thinking if I can change the sql query from crystal making a conversion from decimal into float it will work....But I didn't succed to change it. And I read from some forums that sql query can not be changed.

[acextreme]

I find the problem.....I install Crystal Report 11 and use C:\Program Files\Common Files\Business Objects\3.0\bin\craxdrt.dll.
The code remain the same. It was only the .dll.