'ClearCheck drucken
    Private Sub cmd_prnCHK_Click(ByVal sender As Object, _
                                 ByVal e As PrintPageEventArgs) _
                                 Handles cmd_prnCHK.Click
 
 
        e.Graphics.DrawString(txt_Fab.Text, x:=36, y:=30)
        [...]
 
 
    End Sub