如何在VB.net中打印包含.zpl代码的.txt？

Private Sub PrintZPLFile()
    Dim filePath As String = "path/to/your/file.txt" ' 替换为你的文件路径
    
    ' 读取文件内容
    Dim zplCode As String = System.IO.File.ReadAllText(filePath)
    
    ' 创建一个PrintDocument对象
    Dim pd As New System.Drawing.Printing.PrintDocument()
    
    ' 设置打印机名称
    pd.PrinterSettings.PrinterName = "your_printer_name" ' 替换为你的打印机名称
    
    ' 设置打印机分辨率
    pd.DefaultPageSettings.PrinterResolution.Kind = Drawing.Printing.PrinterResolutionKind.High
    
    ' 设置打印机页面大小
    pd.DefaultPageSettings.PaperSize = New Drawing.Printing.PaperSize("Custom", 800, 600) ' 替换为你的页面大小
    
    ' 设置打印机页面边距
    pd.DefaultPageSettings.Margins = New Drawing.Printing.Margins(0, 0, 0, 0)
    
    ' 设置打印机原始页边距
    pd.OriginAtMargins = True
    
    ' 添加打印事件处理程序
    AddHandler pd.PrintPage, Sub(sender As Object, e As Drawing.Printing.PrintPageEventArgs)
        ' 将.zpl代码绘制到打印页面上
        e.Graphics.DrawString(zplCode, New Drawing.Font("Courier New", 10), Drawing.Brushes.Black, 0, 0)
    End Sub
    
    ' 启动打印
    pd.Print()
End Sub