Print af form

Hej

Windows form som jeg forsøger at printe som et billede. Jeg har fundet følgende kode som bestemmer størrelsen etc på det udskrevne MEN det billede/form som jeg skal udskrive er breddere end A4 papiret.
Hvordan kan man lave en fit-to-page?

Private Sub GetFormImage()
        Dim g As Graphics = Me.CreateGraphics()
        Dim s As Size = Me.Size
        formImage = New Bitmap(s.Width, s.Height, g)
        Dim mg As Graphics = Graphics.FromImage(formImage)
        Dim dc1 As IntPtr = g.GetHdc
        Dim dc2 As IntPtr = mg.GetHdc
        ' added code to compute and capture the form
        ' title bar and borders
        Dim widthDiff As Integer = _
          (Me.Width - Me.ClientRectangle.Width)
        Dim heightDiff As Integer = _
          (Me.Height - Me.ClientRectangle.Height)
        Dim borderSize As Integer = widthDiff \ 2
        Dim heightTitleBar As Integer = heightDiff - borderSize
        BitBlt(dc2, 0, 0, _
          Me.ClientRectangle.Width + widthDiff, _
          Me.ClientRectangle.Height + heightDiff, dc1, _
          0 - borderSize, 0 - heightTitleBar, 13369376)
        g.ReleaseHdc(dc1)
        mg.ReleaseHdc(dc2)
    End Sub