Print sub VB.Net

Public Sub PrintDocument(ByVal strTxt As String)
    Dim printer As New PCPrint()
    printer.PrinterFont = New Font("Verdana", 10)
    printer.TextToPrint = strTxt
    printer.Print()
End Sub