400分悬赏SATO DR360 条形码打印命令
目前我在SATO DR360用CODE128来打印条形码，已经CODE128的编码已经完成了，但是不知道如何用什么命令向SATO DR360发送打印命令，
已经知道CODE39在SATO DR360是怎么工作的。
付上CODE39的打印命令。
Dim STX, ETX, ESC, CHR127
Dim i As Integer
Dim J As Integer
STX = Chr(2)
ETX = Chr(3)
ESC = Chr(27)
CHR127 = Chr(127)
mscommpbc.CommPort = comportn
mscommpbc.PortOpen = True
Dim prtxt(20) As String
Dim tsize As Integer
J = 1
tsize = Len(labeltitle)
If tsize <= 12 Then
prtxt(J) = "L01" & "1020031" & Trim(Str(Int(383 + 24 * (12 - tsize) / 2))) _
& "001" & IIf(tsize < 10, "0" + Trim(Str(tsize)), Trim(Str(tsize))) _
& "1100000000000000000000000000000000000000000000000000"
Else
prtxt(J) = "L01" & "1010031" & Trim(Str(Int(399 + 12 * (25 - tsize) / 2))) _
& "001" & Trim(Str(tsize)) _
& "2100000000000000000000000000000000000000000000000000"
End If
prtxt(J + 1) = "D01" & labeltitle
J = J + 2
Select Case btype:
Case "CODE39":
prtxt(J) = "L02" & "7010063390001" & IIf(Len(sBarcodeData) < 10, "0" + Trim(Str(Len(sBarcodeData))), Trim(Str(Len(sBarcodeData)))) _
& "0106400000000000000000000000000000000000000000000000"
prtxt(J + 1) = "D02" & "*" & sBarcodeData & "*"
prtxt(J + 2) = "L03" & "1010128420003" & IIf(Len(sBarcodeData) < 10, "0" + Trim(Str(Len(sBarcodeData))), Trim(Str(Len(sBarcodeData)))) _
& "1100000000000000000000000000000000000000000000000000"
prtxt(J + 3) = "D03" & sBarcodeData
J = J + 4
Case "EAN13":
prtxt(J) = "L02" & "7030063390003" & IIf(Len(sBarcodeData) < 10, "0" + Trim(Str(Len(sBarcodeData))), Trim(Str(Len(sBarcodeData)))) _
& "0206410000000000000000000000000000000000000000000000"
prtxt(J + 1) = "D02" & sBarcodeData
prtxt(J + 2) = "L03" & "1010128420003" & IIf(Len(sBarcodeData) < 10, "0" + Trim(Str(Len(sBarcodeData))), Trim(Str(Len(sBarcodeData)))) _
& "1100000000000000000000000000000000000000000000000000"
prtxt(J + 3) = "D03" & sBarcodeData
J = J + 4
Case Else:
End Select
prtxt(J) = "L04" & "1010144380001202105300000000000000000000000000000000000000000000000"
If chkPrefix.Value = vbChecked Then
prtxt(J + 1) = "D04" & txtPrefix.Text
Else
prtxt(J + 1) = "D04"
End If
J = J + 2
prtxt(J) = "L05" & "2020146" & IIf(prtxt(J - 1) = "D04", "400", "420") & "001201105300000000000000000000000000000000000000000000000"
If checkprice.Value = Checked Then
prtxt(J + 1) = "D05" & PAD(Trim(sPrice), 20)
Else
prtxt(J + 1) = "D05"
End If
J = J + 2
prtxt(J) = "L06" & "1010174390003301100000000000000000000000000000000000000000000000000"
If checkdesp.Value = Unchecked Then
sInvDescription = ""
End If
prtxt(J + 1) = "D06" & sInvDescription
J = J + 2
mscommpbc.Output = STX
WaitTime 0.01
mscommpbc.Output = ESC & "A"
WaitTime 0.01
mscommpbc.Output = ESC & "M" & "0240000020+00+000000137"
WaitTime 0.01
For i = 1 To J - 1
If prtxt(i) <> "" Then
mscommpbc.Output = ESC & prtxt(i)
WaitTime 0.01
End If
Next i
mscommpbc.Output = ESC & "Q" & Trim(Str(CInt(qty)))
WaitTime 0.01
mscommpbc.Output = ESC & "Z"
WaitTime 0.01
mscommpbc.Output = ETX
WaitTime 0.01
mscommpbc.PortOpen = False
