Filter
Top Products
A-24 Programmer’s Manual
Case 72
objForm.txtScanType.Text = "UPC A + 2"
Case 73
objForm.txtScanType.Text = "UPC E + 2"
Case 74
objForm.txtScanType.Text = "EAN 8 + 2"
Case 75
objForm.txtScanType.Text = "EAN 13 + 2"
Case 80
objForm.txtScanType.Text = "UPC E1 + 2"
Case 136
objForm.txtScanType.Text = "UPC A + 5"
Case 137
objForm.txtScanType.Text = "UPC E + 5"
Case 138
objForm.txtScanType.Text = "EAN 8 + 5"
Case 139
objForm.txtScanType.Text = "EAN 13 + 5"
Case 144
objForm.txtScanType.Text = "UPC E1 + 5"
End Select
objForm.txtScanData.Text = ""
End If 'If (msg.WParam.ToInt32() = SM_SCANSTATUS)
End If 'If (msg.Msg = unScanMsgID) Then
' -- Call the base class WndProc for default message handling
' base.WndProc(ref msg)
MyBase.WndProc(msg)
End Sub
'************************************************************
'* PrintLabel
'* Description
'* After a good scan, Print Label
'************************************************************
Public Sub PrintLabel()
Dim strFCN1 As String = "~201"
' Code 128 Function Code F1
Dim strType As String