1)Importar la clase:
Imports System.Drawing.Printing
2)Escribir en lugar del manejador de evento un procedimiento:
Private Sub ImprimirTexto(ByVal sender As System.Object, ByVal ePrint As PrintPageEventArgs)
ePrint.Graphics.DrawString(txt.Text, New Font("Arial", 11, FontStyle.Regular), _
Brushes.Black, 100, 100)
ePrint.HasMorePages = False
End Sub
3)En el evento click de tu boton pones:
Try
Dim prnTxt As New PrintDocument
AddHandler prnTxt.PrintPage, AddressOf Me.ImprimirTexto
prnTxt.Print()
Catch ex As Exception
MsgBox("Ex : " & ex.ToString)
End Try