Public Class Form1   
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim pd As New System.Drawing.Printing.PrintDocument
        With pd
            .DocumentName = "PD"
            AddHandler .PrintPage, AddressOf PrintPage
            .Print()
        End With
    End Sub
    Private Sub PrintPage(ByVal sender As Object, ByVal e As _
      System.Drawing.Printing.PrintPageEventArgs)
        Dim TextFont As New Font("Courier New", 16, FontStyle.Regular)          _
               'TextFont
        Dim drawRect As New RectangleF(60, 60, 710, 990)                        _
               'Druckbereich X,Y,Breit,Hoch
        e.Graphics.DrawString("Hallo Leute", TextFont, Brushes.Black, drawRect) _
               'den Text in schwarz ausgeben
    End Sub
End Class