24-03-21, 03:12 PM
الكود التالى يحدد الطباعة من خلال منفذ com1 ما هو التعديل المطلوب للطباعة من منفذ usb والأفضل تحديد اسم طابعة معينة مثلا zt410 باستخدام منفذ usb او كابل شبكة (IP for printer 192.168.100.95).
Private Sub CMD_Print_Click()
On Error GoTo errhandler
Dim B$, CR$, SX$, EX$
Dim heatno As String
Dim i As Integer
Dim str As String
Dim BarcodeValue As String
Dim rs As New ADODB.Recordset
rs.LockType = adLockOptimistic
rs.CursorType = adOpenKeyset
Comm1.CommPort = GetSetting("Shipping", "setting", "comport")
Comm1.settings = GetSetting("Shipping", "setting", "connection")
heatno = GetSetting("Shipping", "setting", "heat")
rs.Open str, cn
If rs.EOF = False Then
If Comm1.PortOpen = False Then
Comm1.PortOpen = True
End If
CR$ = Chr$(13)
SX$ = Chr$(2)
EX$ = Chr$(3)
B$ = SX$ + "L" + CR$
Comm1.Output = B$
B$ = "D11" + CR$
Comm1.Output = B$
B$ = "H" + heatno
Comm1.Output = B$ + CR$
B$ = "491100401500130" + txtProductName + CR$
Comm1.Output = B$
B$ = "491100401500165" + txtAlloy_Temp + CR$
Comm1.Output = B$
If Trim(cmbPrintType) = "mm" Then
B$ = "491100401300200" + Trim(rs!PTH) + "*" + Trim(rs!PWidth) + "*" + Trim(rs!Plength) + " mm" + CR$ 'Size
Comm1.Output = B$
Else
B$ = "491100401300200" + Trim(rs!Pthin) + "*" + Trim(rs!pwidthin) + "*" + Trim(rs!Plengthin) + " In" + CR$ 'Size
Comm1.Output = B$
End If
B$ = "491100401500235" + CmbMeltNo + CR$ 'Melt No.
Comm1.Output = B$
Comm1.Output = "4E6200000200340" & BarcodeValue
Comm1.Output = CR$
B$ = "Q" + Trim(Format(Val(Me.txtqty.Text), "0000")) + CR$
Comm1.Output = B$
B$ = "E"
Comm1.Output = B$
End If
rs.Close
If Comm1.PortOpen = True Then
Comm1.PortOpen = False
End If
Exit Sub
errhandler:
MsgBox Err.Description
End Sub