Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal ev As _
      PrintPageEventArgs) Handles PrintDocument1.PrintPage
 
        ev.Graphics.DrawString("Testdruck", New Font("FontA11[255]", 11, _
          FontStyle.Regular), Brushes.Black, 0, 0)
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        PrintDocument1.Print()
 
    End Sub