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