Public Class Form1
 
    Private WithEvents myPrintDoc As New Printing.PrintDocument
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Me.myPrintDoc.Print()
    End Sub
 
 
    Private Sub myPrintDoc_PrintPage(ByVal sender As Object, ByVal e As _
      System.Drawing.Printing.PrintPageEventArgs) Handles myPrintDoc.PrintPage
 
        e.Graphics.DrawString("Testdruck" _
                  , New Font("Arial", 10) _
                  , Brushes.Black _
                  , 100, 100 _
                  )
 
        e.HasMorePages = False
 
    End Sub
 
 
 
End Class