T
tm
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
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