Javascript VB.net如何在客户端直接打印文本

我正在尝试将变量某些文本打印到打印机上，作为创建条形码标签Zebra打印机3488的通用文本，在使用Printing.PrintDocument时工作正常。在服务器端，所有我需要打印的变量文本或文本框直接打印到打印机上，无需弹出， 我知道我必须使用JavaScript、Activex或vbscript，所以如果有人能帮助我，我将不胜感激

多谢各位

滨田

---以下代码在服务器端运行良好---

Imports System.Drawing.Printing
Imports System.Drawing

Dim printernameD As String
TextToBePrinted = TextBox3.Text

Dim prn As New Printing.PrintDocument
Using (prn)

    TextToBePrinted = "Line 1111111111111" & Environment.NewLine
    TextToBePrinted = TextToBePrinted & "Line 2222222222222222" & Environment.NewLine
    TextToBePrinted = TextToBePrinted & "Line 3333333333333333" & Environment.NewLine
    TextToBePrinted = TextToBePrinted & "Line 4444444444444444" & Environment.NewLine

    AddHandler prn.PrintPage, AddressOf Me.PrintPageHandler
    prn.Print()
    RemoveHandler prn.PrintPage, AddressOf Me.PrintPageHandler
End Using

Private Sub PrintPageHandler(ByVal sender As Object, ByVal args As Printing.PrintPageEventArgs)

    Dim myFont As New Font("Times New Roman", 12) ' font

    Dim drawFont As New Font("EAN 13", 12)
    Dim drawBrush As New SolidBrush(Color.Black)
    ' Create rectangle for drawing. 
    Dim x As Single = 50.0F
    Dim y As Single = 50.0F
    Dim width As Single = 200.0F
    Dim height As Single = 50.0F
    Dim drawRect As New RectangleF(x, y, width, height)
    ' Set format of string. 
    Dim drawFormat As New StringFormat
    drawFormat.Alignment = StringAlignment.Center

    args.Graphics.DrawString(TextToBePrinted, New Font(myFont, FontStyle.Regular), Brushes.Black, 5, 5)

End Sub

---

Web服务器无法命令打印机。最接近的是服务器生成一个PostScript，即用户下载并打印的PDF文档

幸运的是，您可以为此重新使用现有代码：只需安装Adobe Acrobat Pro或其他PDF打印机驱动程序，并将代码更改为打印到该虚拟打印机，确定PDF的保存位置，然后将其返回到客户端

本页的第一个答案解释了如何使用Chrome Kiosk模式打印，这是我在读那篇文章之前从未听说过的，但听起来很有希望。希望能有帮助