Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e _
      As System.Drawing.Printing.PrintPageEventArgs) Handles _
      PrintDocument1.PrintPage
        Dim pr As New Rectangle(0, 0, Me.Width, Me.Height)
        Dim pp = New Bitmap(Me.Width, Me.Height)
        Me.DrawToBitmap(pp, pr)
        PrintDocument1.PrinterSettings = PrintDialog1.PrinterSettings
        e.Graphics.DrawImage(pp, pr)
    End Sub
 
    Private Sub PrintMe_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles PrintMe.Click
        If PrintDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            PrintDocument1.Print()
        End If
    End Sub

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov