Sizing Image to Report (Was Picture in Image Box in Formscoding and Modulesvba)

K

Kahuna

Hi Folks

I have a form, which has a subform-with an ImageBox (Image2). I load this up
using the following code

Me.Image2.Picture = gImageName
Me.Image2.Width = Me.Image2.ImageWidth
Me.Image2.Height = Me.Image2.ImageHeight
Me.Image2.SizeMode = acOLESizeZoom
Me.Image2.PictureAlignment = 0

This works well with a small image, but I get an Overflow error 6 with
larger images. Could be a problem, but I can work-around-it with an 'On
Error Resume Next'.

Q1. Am I missing something here? Could this Resume bite me later?? How could
the overflow be avoided?

I also use a similar technique to print a report with the image. I use the
same code and the same Resume. The challenge with this is that I can now get
the full image into an A4 Portrait size page, but when I change the aspect
to Landscape (for a specifically landscape scanned image) the image remains
the same size and I get 3 pages, 1 & 2 are blank. I realise the blank pages
are a size issue, and its the rotations to landscape that is causing it.

Q2. What would be a good approach to get the image to zoom to fit a
landscape or portrait page layout.

Appreciate any feedback

Cheers
 
Top