Printing a graphics image

[Tom McL.]

I am trying to print a form using the following code, everything works fine

but the margins are not acted upon. What I am I doing wrong?

Private Sub CaptureScreen()

Dim myGraphics As Graphics = Me.CreateGraphics()

Dim s As Size = Me.Size

memoryImage = New Bitmap(s.Width, s.Height, myGraphics)

Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage)

memoryGraphics.CopyFromScreen(Me.Location.X, Me.Location.Y, 0, 0, s)

End Sub

Private Sub printDocument1_PrintPage(ByVal sender As System.Object, _

ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles
printDocument1.PrintPage

Dim margins As New Margins(0, 0, 600, 0)

printDocument1.DefaultPageSettings.Margins = margins

e.Graphics.DrawImage(memoryImage, 0, 0)

End Sub