如何使用Vb.net从文本框打印文本？

交易完成后，我希望textbox中的所有文本自动打印。 但是，我的代码不起作用。请有人帮我找到一个解决方案或任何其他方式打印文本使用任何打印机

输入：TextBox4.Text=“asdf” 输出：asdf（在打印页上）

代码

---

由于注释的限制，我无法发布代码，因此以下是调用打印机的全部代码：

Public Class myPrinter
    Friend TextToBePrinted As String
    Public Sub print(ByVal text As String)
        TextToBePrinted = text
        Dim prn As New Printing.PrintDocument
        Using (prn)
            prn.PrinterSettings.PrinterName = PrinterSettings.InstalledPrinters.Item(0)
            AddHandler prn.PrintPage, AddressOf Me.PrintPageHandler
            prn.Print()
            RemoveHandler prn.PrintPage, AddressOf Me.PrintPageHandler
        End Using
    End Sub

    Private Sub PrintPageHandler(ByVal sender As Object, ByVal args As Printing.PrintPageEventArgs)
        Dim myFont As New Font("Microsoft San Serif", 10)
        args.Graphics.DrawString(TextToBePrinted, New Font(myFont, FontStyle.Regular), Brushes.Black, 50, 50)
    End Sub
End Class

然后

'working code 
RequiredFieldsGovPriv() 'your sub
Dim mprinter As New myPrinter
mprinter.print(txttextbox.Text)
'Continue to work...

---

这些代码在我的项目中运行良好。如果您仍然无法打印，请在调用打印功能时发布错误消息或程序执行任何操作的屏幕截图。

使用此链接（）。将该类添加到项目中，然后在需要打印文本时调用prt（）。对于打印机名称，您可以使用计算机默认打印机的

PrinterSettings.InstalledPrinters.Item（0）

，在这种情况下，您必须导入

System.Drawing.Printing

它不起作用，并且出现错误“访问打印机“PrinterName”的设置无效。”@因为您的计算机没有任何名为“PrinterName”的打印机。您必须将其替换为“设备和打印机”窗格中显示的打印机名称。或者，如我所建议的，将其替换为InstalledPrinters属性，在这种情况下，它将与任何具有默认打印机的计算机一起工作。是否有任何方法可以将输入的内容打印到textbox.text中@只要调用prt（textbox.text），它就会完成这项工作。。。。

'working code 
RequiredFieldsGovPriv() 'your sub
Dim mprinter As New myPrinter
mprinter.print(txttextbox.Text)
'Continue to work...