Imports System.Drawing.Printing
 
Public Class Form1
 
    Private Sub PrintText(ByVal sender As Object, ByVal ev As _
      PrintPageEventArgs)
        ev.Graphics.DrawString(TextBox1.Text, New Font("Arial", 12, _
                                    FontStyle.Regular), Brushes.Black, 100, 100)
        ev.HasMorePages = False
 
    End Sub
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, _
                              ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim PrintDoc As New PrintDocument
            AddHandler PrintDoc.PrintPage, AddressOf Me.PrintText
            PrintDoc.Print()
        Catch ex As Exception
            MessageBox.Show("Druck-Problem!", ex.ToString)
        End Try
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, _
                           ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
End Class