Imprimir Rectangulo

Este es el ejemplo mas corto que he encontrado y aun no puedo imprimirlo. Una ayuda por favor

Public Class Form1
    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        e.Graphics.FillRectangle(Brushes.Red, New Rectangle(500, 500, 500, 500))
    End Sub
End Class

  ESTE OTRO EJEMPLO FUNCIONA PERFECTAMENTE POR PANTALLA, PERO AL TRATAR DE LANZARLO A LA iMPRESORA YA NO LO SUPE HACER

''Imports 
Public Class Form1
    Public Sub DibujarStringEnPantalla()
        Dim NombrePersona As String = "Don Federico García Lorca"
        Dim Direccion As String = "Dirección de la persona"
        'Creo el objeto grafico
        Dim Gr As Graphics = Me.CreateGraphics
        ' Defino tipo de letra y brocha.
        Dim drawFont As New Font("Arial", 16)
        Dim drawBrush As New SolidBrush(Color.Black)
        'Defino la posición donde voy a imrimir el texto referenciado a la esquina superior izquierda
        Dim x As Single = 10.0F
        Dim y As Single = 10.0F
        'Cadena de texto a imprimir
        Dim Texto As String = "Logroño (LaRioja) , " & Now.Date & vbCrLf & "Señor(a) " & NombrePersona & vbCrLf & "Dirección: " & Direccion
        ' Dibujo los textos en pantalla.
        Gr.DrawString(Texto, drawFont, drawBrush, x, y)
    End Sub
    ''Private Sub RadButton1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles RadButton1.Click
    ''DibujarStringEnPantalla()
    '' End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        DibujarStringEnPantalla()
    End Sub
    ''INTENTO LANZARLO A LA IMPRESORA PERO NO FUNCIONA
    Public Sub DibujarStringEnImpresora()
        Dim NombrePersona As String = "Don Federico García Lorca"
        Dim Direccion As String = "Dirección de la persona"
        'Creo el objeto grafico
        Dim Gr As Graphics = Me.CreateGraphics
        ' Defino tipo de letra y brocha.
        Dim drawFont As New Font("Arial", 16)
        Dim drawBrush As New SolidBrush(Color.Black)
        'Defino la posición donde voy a imrimir el texto referenciado a la esquina superior izquierda
        Dim x As Single = 10.0F
        Dim y As Single = 10.0F
        'Cadena de texto a imprimir
        Dim Texto As String = "Logroño (LaRioja) , " & Now.Date & vbCrLf & "Señor(a) " & NombrePersona & vbCrLf & "Dirección: " & Direccion
        Print(Texto)
        'M3 Pasarlo a la Impresora
        ''Printer.write & Texto ''As String = "Logroño (LaRioja) , " & Now.Date & vbCrLf & "Señor(a) " & NombrePersona & vbCrLf & "Dirección: " & Direccion
        ' Dibujo los textos en pantalla.
        Gr.DrawString(Texto, drawFont, drawBrush, x, y)
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        DibujarStringEnImpresora()
        PrintDocument1.Print()
    End Sub
End Class

Gracias

MauricioIvan

M3