Download disabled
The designer of this FontStruction has chosen not to make it available for download from this website by
choosing an “All Rights Reserved" license.
Please respect their decision and desist from requesting license changes in the comments.
If you would like to use the FontStruction for a specific project, you may be able to contact the
designer directly about obtaining a license.
It is the simplest font for creation barcodes in different applications like excel, word, crystal report.
This font conteins only space - chr(32) and bar - chr(33) but make possible
to display or print barcodes different type like Int2of5, Code39, Code93, Code128 and other.
Visual basic function below display barcode of Int2of5 type.
Function Int2Of5(s As String) As String
Dim A As Variant
Dim Bar As String
Dim Code As String
Dim i, j As Integer
A = Array("00110", "10001", "01001", "11000", "00101", _
"10100", "01100", "00011", "10010", "01010")
Bar = "1010"
If Len(s) Mod 2 = 1 Then s = "0" & s
For i = 1 To Len(s) / 2
For j = 1 To 5
Bar = Bar & IIf(Mid(A(Val(Mid(s, i * 2 - 1, 1))), j, 1) = "0", "1", "11")
Bar = Bar & IIf(Mid(A(Val(Mid(s, i * 2, 1))), j, 1) = "0", "0", "00")
Next j
Next i
Bar = Bar & "1101"
Int2Of5 = ToBar1(Bar)
End Function
Function ToBar1(s As String)
If Len(s) > 0 Then
ToBar1 = ToBar1(Left(s, Len(s) - 1)) & Chr(32 + Val(Right(s, 1)))
End If
End Function
0 Comments
Please sign in to comment.