#BARCODE GENERATOR FOR EXCEL MAC MOD#
WeightSum = WeightSum + i * SymbolValue(99) 'Code-CĬontentString = ContentString + SymbolString(99) 'Code-CĬontent = Right(Content, Len(Content) - 1) 'cut 1st symbolĬontentString = ContentString + SymbolString(105)ĬontentString = ContentString + SymbolString(SymbolValue(WeightSum Mod 103))ĬontentString = ContentString + SymbolString(106)ĬontentString = ContentString + Tbar_Symbol WeightSum = WeightSum + i * SymbolValue(k)ĬontentString = ContentString + SymbolString(k)
If IsNumeric(Content) = True Then ' value is numericĬontentString = ContentString + SymbolString(104) ' Supports B and C charsets only values 00-94, 99,101, 103-105 for B, 00-101, 103-105 for CĬonst Tbar_Symbol As String * 2 = "11" ' termination barĭim ContentString As String ' bars sequenceĭim SymbolValue(0 To 106) As Integer ' valuesĭim SymbolString(0 To 106) As String * 11 'bits sequenceĭim SymbolCharB(0 To 106) As String * 1 'Chars in B setĭim SymbolCharC(0 To 106) As String * 2 'Chars in B set Sub Code128Generate(ByVal X As Single, ByVal Y As Single, ByVal Height As Single, ByVal LineWeight As Single, _īyRef TargetSheet As Worksheet, ByVal Content As String) Win 7 Ultimate, MS Office 2007 were used to develop and tests.
#BARCODE GENERATOR FOR EXCEL MAC CODE#
Obviously version-depended code (different versions/OSs/printers can vary the result, NOT tested). A barcode position is only correct when 100% print size is set. Sub does not support a barcode inclination just vertical orientation A complete barcode width is not pre-calulated and drawing begins from left which can cause unexpected overhangs Code does not check the length of the encoded string Code does not generate any special "instruction" symbols: symbols 95-98, 100, 102 in charset "B" and 102 in charset "C". 10% bars overlapping is used for drawing as this value showed the best result at scanning tests. This tweak significantly reduces barcode length for a numeric string. A "tweak" for numeric strings has been implemented: If a numeric string to be encoded is of odd length the first symbol is encoded as "B" the rest of symbols are encoded as "C". Sub draws a barcode onto a target Worksheet from beginning position which is defined by horizontal offset (X), vertical offset (Y) measured in mm of required height in mm bar width is defined in pt
The sub uses Shapes collection to draw lines of a barcode instead of special fonts Main symbology has been picked from CODE128 SYMBOLOGY It was much easier and faster than Code93 as Code128 is simpler to encode and yet more powerful particularly for strings of digits. And finally I've developed it! As before want to share it with other Mr.Excel users and Google searchers. Since the Code93 barcode generator has been developed I've been thinking of Code128.
0 kommentar(er)
