hoanbhxhls > 11-03-15, 06:26 PM
maidinhdan > 15-03-15, 09:07 PM
(11-03-15, 06:26 PM)hoanbhxhls Đã viết: -mình muốn tích hợp in mã vạch vào phần mềm quản lý bán hàng bằng access thì làm như nào
-Mình dùng 1 số font down trên mạng nhưng in ra máy quét không đọc được
-Dùng bartender để thiết kế mã vạch máy quét đọc được
-Bạn nào có code tạo mã vạch bằng ms access thì hỗ trợ nhé
Xin chân thành cảm ơn
Trích dẫn:-Mình dùng 1 số font down trên mạng nhưng in ra máy quét không đọc được
-Dùng bartender để thiết kế mã vạch máy quét đọc được
Dim I As Integer
Dim J As Integer
Dim F As Integer
Dim DataToPrint As String
Dim OnlyCorrectData As String
Dim PrintableString As String
Dim Encoding As String
Dim WeightedTotal As Long
Dim WeightValue As Integer
Dim CurrentValue As Long
Dim CheckDigitValue As Integer
Dim Factor As Integer
Dim CheckDigit As Integer
Dim CurrentEncoding As String
Dim NewLine As String
Dim msg As String
Dim CurrentChar As String
Dim CurrentCharNum As Integer
Dim C128_StartA As String
Dim C128_StartB As String
Dim C128_StartC As String
Dim C128_Stop As String
Dim C128Start As String
Dim C128CheckDigit As String
Dim StartCode As String
Dim StopCode As String
Dim Fnc1 As String
Dim LeadingDigit As Integer
Dim EAN2AddOn As String
Dim EAN5AddOn As String
Dim EANAddOnToPrint As String
Dim HumanReadableText As String
Dim StringLength As Integer
Dim CorrectFNC As Integer
Dim CID As Integer
Dim FID As Integer
Dim NCID As Integer
'END OF DECLARACTIONS
Public Function Code128(DataToFormat As String, O
Code dài quá đính kèm trong file IDAutomationVBA.bas
maidinhdan > 15-03-15, 09:49 PM