1 2 3 4 5 6 7 8 9 10 11
| Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim PArgs As PaintEventArgs
PArgs = New PaintEventArgs(e.Graphics, New Rectangle(Me.Panel1.Left, Me.Panel1.Top, Me.Panel1.Width, Me.Panel1.Height))
InvokePaint(Me.Panel1, PArgs)
PArgs = New PaintEventArgs(e.Graphics, New Rectangle(Me.Button2.Left, Me.Button2.Top, Me.Button2.Width, Me.Button2.Height))
InvokePaint(Me.Button2, PArgs)
PArgs = New PaintEventArgs(e.Graphics, New Rectangle(Me.Button1.Left, Me.Button1.Top, Me.Button1.Width, Me.Button1.Height))
InvokePaint(Me.Button1, PArgs)
End Sub |
Partager