stx

JH625项目条码格式更改，在编程过程中，出现了 更改任何格式，条码打印出来的格式都没有改变，源码如下： Public Function GetBarcodeStr2DG(ByVal PrintProductCode1 As String, ByVal PrintProductType1 As String, ByVal PrintDateStr1 As String, ByVal PrintBatchStr1 As String, ByVal PrintDescribeCode1 As String) As String Dim t As String Dim d As String Dim n As String d = Microsoft.VisualBasic.Left(PrintProductCode1, 20) '取条码位数 t = Microsoft.VisualBasic.Right(PrintProductCode1, 11) n = t + " " + LogSysCode Dim str0 As String str0 = "" str0 += "<STX><ESC>C0<ETX>" & vbCrLf str0 += "<STX><SI>l31<ETX>" & vbCrLf str0 += "<STX><ESC>P;<ETX>" & vbCrLf str0 +