When drawing the bitmap, scale it to fit the print area.
Dim scaleX As Single = e.PageBounds.Width / formBitmap.Width
Dim scaleY As Single = e.PageBounds.Height / formBitmap.Height
Dim scale As Single = Math.Min(scaleX, scaleY)
e.Graphics.DrawImage(formBitmap, 0, 0, formBitmap.Width * scale, formBitmap.Height * scale)