Private Sub Drucken(ByVal sender As Object, ByVal e As EventArgs) Handles _
   PrintToolStripMenuItem.Click, PrintToolStripButton.Click
 
        PrintDocument1.Print()
    End Sub
 
    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e _
      As System.Drawing.Printing.PrintPageEventArgs) Handles _
      PrintDocument1.PrintPage
 
                    e.Graphics.DrawString("Test", New Font("Arial", 18, _
                      FontStyle.Bold), Brushes.Blue, 0, 0)