Font for creation barcodes. This font make possible to display or print different barcodes - Int2of5, Code39, Code93, Code128 and other in applications like excel, word, crystal report. This font conteins only space - chr(32) and three bars - chr(33), chr(34), chr(35) 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" Code = "" 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" If Len(Bar) Mod 2 = 1 Then Bar = Bar & "0" Int2Of5 = ToBar3(Bar) End Function Function ToBar3(s As String) Dim i As Integer ToBar3 = "" For i = 1 To Len(s) / 2 ToBar3 = ToBar3 & Chr(BinToDec(Mid(s, i * 2 - 1, 2)) + 32) Next i End Function Function BinToDec(Bits As String) As Long If Len(Bits) > 0 Then BinToDec = 2 * BinToDec(Left(Bits, Len(Bits) - 1)) + CLng(Right(Bits, 1)) End If End Function