Crystal Reports Image at Runtime [RESOLVED]

[TC99]

Hi,

I am using VB6, Crystal Reports 8.5, .rpt report files and the CRViewer to show the reports. Data source is either Access or SQL.

I need to be able to set an image in the report at runtime to the logo of the company selected. I am happy to use either an image in a directory (path provided) or an image stored in a database (passed by ADO Recordset).

Can anyone tell me how this can be done, or just start me off on the right track as I am stumped!!

Thanks in advance.

TC

I had posted this in the Crystal Reports section but to no avail!!

[TC99]

Does anybody know how to do this???

[Ken Bradford]

Private Sub Section2_Format(ByVal pFormattingInfo As Object)

  Set Picture1.FormattedPicture = LoadPicture("c:\aImages\inside.jpg") 

end sub

See page 19 in this pdf file for a more detail example http://support.crystaldecisions.com/...8-ocxtordc.pdf

[TC99]

Hi Ken,

Thanks for the pdf link. It is just what I needed and works really well.

TC

[jeremy_ckw]

I tried your way of changing the image but I get a

"Permission denied."

error message.

Set crxPicObj = Report.Sections(2).ReportObjects.Item(18)
    With rsTemp
        If .State = adStateOpen Then
            .Close
        End If
        .Source = "SELECT * FROM CSREPSETUP"
        .Open
        
        If .RecordCount <> 0 Then
             sTemp = App.Path & "\Images\TempPic.jpg"
             If Len(Dir(sTemp)) > 0 Then
                 Kill sTemp
             End If
            lngSize = 0
            lngOffSet = 0
            f = FreeFile
            
            Open sTemp For Binary As #f
            lngSize = rsTemp("Image").ActualSize
            
            Do While lngOffSet < lngSize
                bytChunk() = rsTemp("Image").GetChunk(CHUNKSIZE)
                Put #f, , bytChunk()
                lngOffSet = lngOffSet + CHUNKSIZE
            Loop
            Close #f
            
            Set crxPicObj.FormattedPicture = LoadPicture(sTemp) 'This is where the error occurs.
            Kill sTemp
        End If
    End With

[Ken Bradford]

The image path can only be set in the section format sub.

I assume from your code that the image is in section2 on the report.

'Double-click anywhere in section 2 to get to the format sub.
Private Sub Section2_Format(ByVal pFormattingInfo As Object)

  Set crxPicObj.FormattedPicture = LoadPicture(App.Path & "\Images\TempPic.jpg"
) 

end sub

Delete from your code

Set crxPicObj.FormattedPicture = LoadPicture(sTemp)

Add the following code to

[jeremy_ckw]

Thanks for you reply!

You are right, the image can only be set in the section event. I think I'm using a wrong way to do this.

How do you double click on the section? I just have a crviewer on a form, that's all. Clicking it is like clicking any other components. It doesn't show me the section.

Regards,

[Ken Bradford]

The report viewer is used to display a report. You still need to add a report to your application.

From the main menu, select Project, Add Crystal Reports 8.5

If you have an existing report, you can import it from here.

This will create a report that will appear in the Designer section in the Project Window. Double click on that and a list of all designer objects will appear (ie your report). Double click on your report and it will open up like any other VB form. This is where you will double click on the picture to get to the format section.

Read the link I gave above, it will show you how to interact between the viewer and you report.

Hope this helps.

[bigmouth]

Originally posted by Ken Bradford
The report viewer is used to display a report. You still need to add a report to your application.

From the main menu, select Project, Add Crystal Reports 8.5

If you have an existing report, you can import it from here.

This will create a report that will appear in the Designer section in the Project Window. Double click on that and a list of all designer objects will appear (ie your report). Double click on your report and it will open up like any other VB form. This is where you will double click on the picture to get to the format section.

Read the link I gave above, it will show you how to interact between the viewer and you report.

Hope this helps.

Could you please tell me how to add Crystal report to project?
I went to the main menu and click "project", but there is no selection for adding Crystal report, only "data report", are you talking about that one?

please help