Private Sub btnVorschau_Click(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles btnVorschau.Click
        Try
            If PrintPreviewDialog1.ShowDialog = DialogResult.OK Then
                PrintDoc1.Print()
            End If
        Catch ex As Exception
            Errorhandler("Fehler bei Druckvorschau", ex)
        End Try
    End Sub
 
    Private Sub btnDruck_Click(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles btnDruck.Click
        Try
            If PrintDialog1.ShowDialog = DialogResult.OK Then
                PrintDoc1.Print()
            End If
        Catch ex As Exception
            Errorhandler("Fehler bei Fehler beim Drucken", ex)
        End Try
    End Sub
 
    Private Sub PrintDoc1_PrintPage(ByVal sender As Object, ByVal e As _
      System.Drawing.Printing.PrintPageEventArgs) Handles PrintDoc1.PrintPage
        Try
            Dim gr As Graphics = e.Graphics
        Dim fnt1 As New Font("arial", 20)
            gr.DrawString("Dies ist ein erster Drucktest", fnt1, Brushes.Black, _
              0, 0)
        Catch ex As Exception
            Errorhandler("Fehler bei Fehler beim Drucken", ex)
        End Try
    End Sub