Dim img As Image = Image.FromFile("img.bmp")
'image size in 1/100 inch measurement
Dim sz As New SizeF(100 * img.Width / img.HorizontalResolution, _
100 * img.Height / img.VerticalResolution)
Dim p As New PointF((e.PageBounds.Width - sz.Width) / 2, _
(e.PageBounds.Height - sz.Height) / 2)
e.Graphics.DrawImage(img, p)
img.Dispose()