Image control in report

[bilalo]

I have a report with a logo on its top.
When the logo has no picture linked to it, I want the report to be printed without a blank space on its top.
The image control does not have a "can shrink" property, I tried to change programmatically its visibility or its width and height but didn't work.
Any idea?


I

[Micron]

Post your code attempt and please use code tags (# on posting toolbar). State what view you're trying to do this in. Some events are not available to certain views.
Or take a crack at setting the size of the control but don't forget that you have to resize the section that it's in as well.

[bilalo]

Post your code attempt and please use code tags (# on posting toolbar). State what view you're trying to do this in. Some events are not available to certain views.
Or take a crack at setting the size of the control but don't forget that you have to resize the section that it's in as well.

My report has no report header, it starts with a group header that includes the logo, I tried to change the visibility and the (width/Height to zero) on (Report_Open, GroupHeader_Print, Detail_Print).
My current solution is to create two similar reports, one with logo and another without logo, and I open the corresponding report after checking if there is a picture or not.

Is there a better alternative?

[June7]

How are logo images loaded, where are they stored?

You still have not provided attempted code as requested. If you want to provide db for analysis, follow instructions at bottom of my post.

I have code that sets image size if no image available. Images are in Detail section but expect should be adaptable to other sections.

Option Compare Database
Option Explicit
Dim lngImgHt As Long

Private Sub Report_Load()
lngImgHt = Me.Image82.Height
End Sub

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
'This line used if image is in Attachment field
'If IsNull(DLookup("Att.FileData", "Umpires", "UmpID='" & Me!UmpID & "'")) Then

If IsNull(Me!Image) Then
    Me.Image82.Height = 0
    Me.Detail.Height = 0
Else
    Me.Image82.Height = lngImgHt
End If
End Sub