none
Barcode generation and printing RRS feed

  • Question

  • I am working on a Point of Sale system using VB express 2008.
    I want to generate invoice with Barcode and also stock items with Barcode.
    Please advise what sort of Barcode system i should use for this and also how i can code to generate and pring the Barcode.
    Saturday, December 12, 2009 2:03 AM

Answers

  • Thanks Kmaf. I downloaded the font from the site:
    http://www.fontspace.com/i-shot-the-serif/free-3-of-9

    I visited the sites of Codeproject and the samples there are for C language.
    Please suggest some sample code for VB.net.
    Thanks again for your guidance.

    If you want to use the font, there is no need to use the barcode library. All you have to do is to create a code using graphics class in .net to create image and use the 3 of 9 font to draw the text on the image. Copy the font in font directory "C:\WINDOWS\Fonts\" . Make sure you download the free 3 of 9 extended because it accept more characters than 3 of 9 regular. Try the code below

    Function createBarCodeSimple(ByVal info As String) As Drawing.Bitmap
            Dim k As String = info
            Dim stchar As String = String.Empty
            Dim addStar As String = "*"
            Dim full As String = addStar & info & addStar
            info = full
            Dim bc As Drawing.Bitmap = New Drawing.Bitmap(1, 1)
            'Dim myf As Font = New Font("Arial", 12, FontStyle.Regular) ', GraphicsUnit.Point)
            Dim ft As Drawing.Font = New Drawing.Font("Free 3 of 9 Extended", 60, Drawing.FontStyle.Regular, Drawing.GraphicsUnit.Point)
            Dim g As Drawing.Graphics = Drawing.Graphics.FromImage(bc)
            Dim infoSize As Drawing.SizeF = g.MeasureString(info, ft)
            bc = New Drawing.Bitmap(bc, infoSize.ToSize)
            g = Drawing.Graphics.FromImage(bc)
            g.Clear(Drawing.Color.White)
            g.TextRenderingHint = Drawing.Text.TextRenderingHint.SingleBitPerPixel '
            For Each chr As Char In info
                stchar &= chr.ToString & " "
            Next
            g.DrawString(stchar, ft, New Drawing.SolidBrush(Drawing.Color.Black), 2, 3)
            g.Flush()
            ft.Dispose()
            g.Dispose()
            Return bc
        End Function

    kaymaf



    If that what you want, take it. If not, ignored it and no complain
    • Marked as answer by sazd1 Sunday, December 13, 2009 2:58 AM
    Saturday, December 12, 2009 3:30 PM
  • If you want to print the barcode text with the image, then try the methods below. I made different method with description and logo image.

     Function createBarCodeNoDescription(ByVal BarcodeNumber As String, ByVal BarcodeColor As Drawing.Color, ByVal BarcodeSize As Integer, ByVal AddBackGroundColor As Boolean) As Drawing.Bitmap
            Dim stchar As String = String.Empty
            Dim col1 As Drawing.Color = BarcodeColor
            Dim col2 As Drawing.Color = BarcodeColor
            Dim k As String = BarcodeNumber
            Dim addStar As String = "*"
            Dim full As String = addStar & BarcodeNumber & addStar
            BarcodeNumber = full
            Dim textsize As Drawing.SizeF
    
            Dim int As Integer = BarcodeSize / 2
            Dim bc As Drawing.Bitmap = New Drawing.Bitmap(BarcodeSize * 8, BarcodeSize * 2)
            Dim myf As Drawing.Font = New Drawing.Font("Arial", int, New Drawing.FontStyle) ', GraphicsUnit.Point)
            Dim ft As Drawing.Font = New Drawing.Font("Free 3 of 9 Extended", BarcodeSize, New Drawing.FontStyle, Drawing.GraphicsUnit.Point)
            Dim g As Drawing.Graphics = Drawing.Graphics.FromImage(bc)
            textsize = g.MeasureString(BarcodeNumber, myf)
            If AddBackGroundColor = True Then
                g.Clear(Drawing.Color.White)
            End If
            ' g.Clear(Panel1.BackColor)
            ' g.Clear(Color.Transparent)
            g.TextRenderingHint = Drawing.Text.TextRenderingHint.SingleBitPerPixel '
            g.DrawString(BarcodeNumber, ft, New Drawing.SolidBrush(col1), 2, 3)
            g.TextRenderingHint = Drawing.Text.TextRenderingHint.SystemDefault
            For Each chr As Char In k
                stchar &= chr.ToString & " "
            Next
            g.DrawString(stchar, myf, New Drawing.SolidBrush(col2), 6, textsize.Height + 6)
            '  g.DrawString(k, myf, New SolidBrush(Color.Black), 0, 30)
            g.Flush()
            ft.Dispose()
            g.Dispose()
            Return bc
        End Function
        Function createBarCodeSimple(ByVal info As String) As Drawing.Bitmap
            Dim k As String = info
            Dim stchar As String = String.Empty
            Dim addStar As String = "*"
            Dim full As String = addStar & info & addStar
            info = full
            Dim bc As Drawing.Bitmap = New Drawing.Bitmap(1, 1)
            'Dim myf As Font = New Font("Arial", 12, FontStyle.Regular) ', GraphicsUnit.Point)
            Dim ft As Drawing.Font = New Drawing.Font("Free 3 of 9 Extended", 60, Drawing.FontStyle.Regular, Drawing.GraphicsUnit.Point)
            Dim g As Drawing.Graphics = Drawing.Graphics.FromImage(bc)
            Dim infoSize As Drawing.SizeF = g.MeasureString(info, ft)
            bc = New Drawing.Bitmap(bc, infoSize.ToSize)
            g = Drawing.Graphics.FromImage(bc)
            g.Clear(Drawing.Color.White)
            g.TextRenderingHint = Drawing.Text.TextRenderingHint.SingleBitPerPixel '
            For Each chr As Char In info
                stchar &= chr.ToString & " "
            Next
            g.DrawString(stchar, ft, New Drawing.SolidBrush(Drawing.Color.Black), 2, 3)
            g.Flush()
            ft.Dispose()
            g.Dispose()
            Return bc
        End Function
        Function createBarCodeWithDescription(ByVal barcodeDescription As String, ByVal BarcodeNumber As String, ByVal BarcodeColor As Drawing.Color, ByVal BarcodeSize As Integer, ByVal AddBackGroundColor As Boolean) As Drawing.Bitmap
            Dim textsize As Drawing.SizeF
            Dim stchar As String = String.Empty
            Dim textsize2 As Drawing.SizeF
            Dim col1 As Drawing.Color = BarcodeColor
            Dim col2 As Drawing.Color = BarcodeColor
            Dim k As String = BarcodeNumber
            Dim addStar As String = "*"
            Dim full As String = addStar & BarcodeNumber & addStar
            BarcodeNumber = full
            Dim int As Integer = BarcodeSize / 2
            Dim bc As Drawing.Bitmap = New Drawing.Bitmap(BarcodeSize * 8, BarcodeSize * 3)
            Dim myf As Drawing.Font = New Drawing.Font("Arial", int, New Drawing.FontStyle) ', GraphicsUnit.Point)
            Dim ft As Drawing.Font = New Drawing.Font("Free 3 of 9 Extended", BarcodeSize, New Drawing.FontStyle, Drawing.GraphicsUnit.Point)
            Dim g As Drawing.Graphics = Drawing.Graphics.FromImage(bc)
            If AddBackGroundColor = True Then
                g.Clear(Drawing.Color.White)
            End If
            textsize = g.MeasureString(barcodeDescription, myf)
            textsize2 = g.MeasureString(BarcodeNumber, myf)
            g.TextRenderingHint = Drawing.Text.TextRenderingHint.SystemDefault
            g.DrawString(barcodeDescription, myf, New Drawing.SolidBrush(col2), 2, 0)
            g.TextRenderingHint = Drawing.Text.TextRenderingHint.SingleBitPerPixel '
            g.DrawString(BarcodeNumber, ft, New Drawing.SolidBrush(col1), 2, textsize.Height + 2)
            g.TextRenderingHint = Drawing.Text.TextRenderingHint.SystemDefault
            For Each chr As Char In k
                stchar &= chr.ToString & " "
            Next
    
            g.DrawString(stchar, myf, New Drawing.SolidBrush(col2), 6, textsize.Height + textsize2.Height + 6)
            g.Flush()
            ft.Dispose()
            g.Dispose()
            Return bc
        End Function
        Function createBarCodeWithDescriptionAndLogoImage(ByVal img As Drawing.Bitmap, ByVal barcodeDescription As String, ByVal BarcodeNumber As String, ByVal BarcodeColor As Drawing.Color, ByVal BarcodeSize As Integer, ByVal AddBackGroundColor As Boolean) As Drawing.Bitmap
            Dim textsize As Drawing.SizeF
            Dim stchar As String = String.Empty
            Dim textsize2 As Drawing.SizeF
            Dim col1 As Drawing.Color = BarcodeColor
            Dim col2 As Drawing.Color = BarcodeColor
            Dim k As String = BarcodeNumber
            Dim addStar As String = "*"
            Dim full As String = addStar & BarcodeNumber & addStar
            BarcodeNumber = full
            Dim int As Integer = BarcodeSize / 2
            img = New Drawing.Bitmap(img, New Drawing.Size(((img.Size.Width - img.Size.Width) + int), ((img.Size.Height - img.Size.Height) + int)))
            Dim bc As Drawing.Bitmap = New Drawing.Bitmap(BarcodeSize * 8, BarcodeSize * 3)
            Dim myf As Drawing.Font = New Drawing.Font("Arial", int, New Drawing.FontStyle) ', GraphicsUnit.Point)
            Dim ft As Drawing.Font = New Drawing.Font("Free 3 of 9 Extended", BarcodeSize, New Drawing.FontStyle, Drawing.GraphicsUnit.Point)
            Dim g As Drawing.Graphics = Drawing.Graphics.FromImage(bc)
            If AddBackGroundColor = True Then
                g.Clear(Drawing.Color.White)
            End If
            g.DrawImage(img, 2, 0)
            textsize = g.MeasureString(barcodeDescription, myf)
            textsize2 = g.MeasureString(BarcodeNumber, myf)
            g.TextRenderingHint = Drawing.Text.TextRenderingHint.SystemDefault
            g.DrawString(barcodeDescription, myf, New Drawing.SolidBrush(col2), img.Width + 5, 0)
            g.TextRenderingHint = Drawing.Text.TextRenderingHint.SingleBitPerPixel '
            g.DrawString(BarcodeNumber, ft, New Drawing.SolidBrush(col1), 2, textsize.Height + 3)
            g.TextRenderingHint = Drawing.Text.TextRenderingHint.SystemDefault
            For Each chr As Char In k
                stchar &= chr.ToString & " "
            Next
            g.DrawString(stchar, myf, New Drawing.SolidBrush(col2), 6, textsize.Height + textsize2.Height + 8)
            g.Flush()
            ft.Dispose()
            g.Dispose()
            Return bc
        End Function
    And for the second part of your question, to read barcode from image, you have to know how the barcode symbologies encoding algorithm. Try this link http://www.codeproject.com/KB/graphics/barcodeImaging.aspx

    The class library was C# code. Don't even bother to convert it to VB.NET because it use some unsafe code. What you can do, just download the source code and compile the barcode class to .net dll then you can reference it in your vb program. The library covered code39,code128, EAN/UPC. You only needs to use code39 which is for Font free3of9

    kaymaf
    If that what you want, take it. If not, ignored it and no complain
    • Marked as answer by sazd1 Monday, December 14, 2009 11:02 AM
    Sunday, December 13, 2009 3:21 AM

All replies

  • There are many type of barcode symbology that you can use. Standard retail barcode are UPCA, UPCE but for stock item, use CODE39  or CODE39 Extended because it accept alphanumeric value, and the extended accept all keyboard characters. You can google for free font, the name is free 3 of 9 extended regular  and file name is  FRE3OF9X.TTF (true font). Also, you can generate the same barcode without font using GDI+ to draw the bar based on encoding.

    Barcode code39 example article: http://www.codeproject.com/KB/miscctrl/barcodectl.aspx
                                                  : http://www.codeproject.com/KB/graphics/BarcodeLibrary.aspx


    Read about barcode symbologies http://en.wikipedia.org/wiki/Barcode


    kaymaf
    If that what you want, take it. If not, ignored it and no complain
    Saturday, December 12, 2009 3:27 AM
  • Thanks Kmaf. I downloaded the font from the site:
    http://www.fontspace.com/i-shot-the-serif/free-3-of-9

    I visited the sites of Codeproject and the samples there are for C language.
    Please suggest some sample code for VB.net.
    Thanks again for your guidance.
    Saturday, December 12, 2009 11:04 AM
  • Saturday, December 12, 2009 11:18 AM
  • Thanks Kmaf. I downloaded the font from the site:
    http://www.fontspace.com/i-shot-the-serif/free-3-of-9

    I visited the sites of Codeproject and the samples there are for C language.
    Please suggest some sample code for VB.net.
    Thanks again for your guidance.

    If you want to use the font, there is no need to use the barcode library. All you have to do is to create a code using graphics class in .net to create image and use the 3 of 9 font to draw the text on the image. Copy the font in font directory "C:\WINDOWS\Fonts\" . Make sure you download the free 3 of 9 extended because it accept more characters than 3 of 9 regular. Try the code below

    Function createBarCodeSimple(ByVal info As String) As Drawing.Bitmap
            Dim k As String = info
            Dim stchar As String = String.Empty
            Dim addStar As String = "*"
            Dim full As String = addStar & info & addStar
            info = full
            Dim bc As Drawing.Bitmap = New Drawing.Bitmap(1, 1)
            'Dim myf As Font = New Font("Arial", 12, FontStyle.Regular) ', GraphicsUnit.Point)
            Dim ft As Drawing.Font = New Drawing.Font("Free 3 of 9 Extended", 60, Drawing.FontStyle.Regular, Drawing.GraphicsUnit.Point)
            Dim g As Drawing.Graphics = Drawing.Graphics.FromImage(bc)
            Dim infoSize As Drawing.SizeF = g.MeasureString(info, ft)
            bc = New Drawing.Bitmap(bc, infoSize.ToSize)
            g = Drawing.Graphics.FromImage(bc)
            g.Clear(Drawing.Color.White)
            g.TextRenderingHint = Drawing.Text.TextRenderingHint.SingleBitPerPixel '
            For Each chr As Char In info
                stchar &= chr.ToString & " "
            Next
            g.DrawString(stchar, ft, New Drawing.SolidBrush(Drawing.Color.Black), 2, 3)
            g.Flush()
            ft.Dispose()
            g.Dispose()
            Return bc
        End Function

    kaymaf



    If that what you want, take it. If not, ignored it and no complain
    • Marked as answer by sazd1 Sunday, December 13, 2009 2:58 AM
    Saturday, December 12, 2009 3:30 PM
  • Thanks Kaymaf it worked like a charm and it was good to see code creation through Vb express 2008.
    I am using a Textbox for input of code and a picturebox to display the Barcode as under:

    PictureBox1.Image = createBarCodeSimple(txtEAN.Text)

     

    I have two more queiries related to barcode. 
    How can i display the code entered in Textbox under the barcode in picturebox.
    And how I can verify that the barcode is of the same code i.e. how i can reverse converting the barcode displayed in picturebox  back to code.
    Thanks once again for all your guidance.
     

    Sunday, December 13, 2009 2:58 AM
  • If you want to print the barcode text with the image, then try the methods below. I made different method with description and logo image.

     Function createBarCodeNoDescription(ByVal BarcodeNumber As String, ByVal BarcodeColor As Drawing.Color, ByVal BarcodeSize As Integer, ByVal AddBackGroundColor As Boolean) As Drawing.Bitmap
            Dim stchar As String = String.Empty
            Dim col1 As Drawing.Color = BarcodeColor
            Dim col2 As Drawing.Color = BarcodeColor
            Dim k As String = BarcodeNumber
            Dim addStar As String = "*"
            Dim full As String = addStar & BarcodeNumber & addStar
            BarcodeNumber = full
            Dim textsize As Drawing.SizeF
    
            Dim int As Integer = BarcodeSize / 2
            Dim bc As Drawing.Bitmap = New Drawing.Bitmap(BarcodeSize * 8, BarcodeSize * 2)
            Dim myf As Drawing.Font = New Drawing.Font("Arial", int, New Drawing.FontStyle) ', GraphicsUnit.Point)
            Dim ft As Drawing.Font = New Drawing.Font("Free 3 of 9 Extended", BarcodeSize, New Drawing.FontStyle, Drawing.GraphicsUnit.Point)
            Dim g As Drawing.Graphics = Drawing.Graphics.FromImage(bc)
            textsize = g.MeasureString(BarcodeNumber, myf)
            If AddBackGroundColor = True Then
                g.Clear(Drawing.Color.White)
            End If
            ' g.Clear(Panel1.BackColor)
            ' g.Clear(Color.Transparent)
            g.TextRenderingHint = Drawing.Text.TextRenderingHint.SingleBitPerPixel '
            g.DrawString(BarcodeNumber, ft, New Drawing.SolidBrush(col1), 2, 3)
            g.TextRenderingHint = Drawing.Text.TextRenderingHint.SystemDefault
            For Each chr As Char In k
                stchar &= chr.ToString & " "
            Next
            g.DrawString(stchar, myf, New Drawing.SolidBrush(col2), 6, textsize.Height + 6)
            '  g.DrawString(k, myf, New SolidBrush(Color.Black), 0, 30)
            g.Flush()
            ft.Dispose()
            g.Dispose()
            Return bc
        End Function
        Function createBarCodeSimple(ByVal info As String) As Drawing.Bitmap
            Dim k As String = info
            Dim stchar As String = String.Empty
            Dim addStar As String = "*"
            Dim full As String = addStar & info & addStar
            info = full
            Dim bc As Drawing.Bitmap = New Drawing.Bitmap(1, 1)
            'Dim myf As Font = New Font("Arial", 12, FontStyle.Regular) ', GraphicsUnit.Point)
            Dim ft As Drawing.Font = New Drawing.Font("Free 3 of 9 Extended", 60, Drawing.FontStyle.Regular, Drawing.GraphicsUnit.Point)
            Dim g As Drawing.Graphics = Drawing.Graphics.FromImage(bc)
            Dim infoSize As Drawing.SizeF = g.MeasureString(info, ft)
            bc = New Drawing.Bitmap(bc, infoSize.ToSize)
            g = Drawing.Graphics.FromImage(bc)
            g.Clear(Drawing.Color.White)
            g.TextRenderingHint = Drawing.Text.TextRenderingHint.SingleBitPerPixel '
            For Each chr As Char In info
                stchar &= chr.ToString & " "
            Next
            g.DrawString(stchar, ft, New Drawing.SolidBrush(Drawing.Color.Black), 2, 3)
            g.Flush()
            ft.Dispose()
            g.Dispose()
            Return bc
        End Function
        Function createBarCodeWithDescription(ByVal barcodeDescription As String, ByVal BarcodeNumber As String, ByVal BarcodeColor As Drawing.Color, ByVal BarcodeSize As Integer, ByVal AddBackGroundColor As Boolean) As Drawing.Bitmap
            Dim textsize As Drawing.SizeF
            Dim stchar As String = String.Empty
            Dim textsize2 As Drawing.SizeF
            Dim col1 As Drawing.Color = BarcodeColor
            Dim col2 As Drawing.Color = BarcodeColor
            Dim k As String = BarcodeNumber
            Dim addStar As String = "*"
            Dim full As String = addStar & BarcodeNumber & addStar
            BarcodeNumber = full
            Dim int As Integer = BarcodeSize / 2
            Dim bc As Drawing.Bitmap = New Drawing.Bitmap(BarcodeSize * 8, BarcodeSize * 3)
            Dim myf As Drawing.Font = New Drawing.Font("Arial", int, New Drawing.FontStyle) ', GraphicsUnit.Point)
            Dim ft As Drawing.Font = New Drawing.Font("Free 3 of 9 Extended", BarcodeSize, New Drawing.FontStyle, Drawing.GraphicsUnit.Point)
            Dim g As Drawing.Graphics = Drawing.Graphics.FromImage(bc)
            If AddBackGroundColor = True Then
                g.Clear(Drawing.Color.White)
            End If
            textsize = g.MeasureString(barcodeDescription, myf)
            textsize2 = g.MeasureString(BarcodeNumber, myf)
            g.TextRenderingHint = Drawing.Text.TextRenderingHint.SystemDefault
            g.DrawString(barcodeDescription, myf, New Drawing.SolidBrush(col2), 2, 0)
            g.TextRenderingHint = Drawing.Text.TextRenderingHint.SingleBitPerPixel '
            g.DrawString(BarcodeNumber, ft, New Drawing.SolidBrush(col1), 2, textsize.Height + 2)
            g.TextRenderingHint = Drawing.Text.TextRenderingHint.SystemDefault
            For Each chr As Char In k
                stchar &= chr.ToString & " "
            Next
    
            g.DrawString(stchar, myf, New Drawing.SolidBrush(col2), 6, textsize.Height + textsize2.Height + 6)
            g.Flush()
            ft.Dispose()
            g.Dispose()
            Return bc
        End Function
        Function createBarCodeWithDescriptionAndLogoImage(ByVal img As Drawing.Bitmap, ByVal barcodeDescription As String, ByVal BarcodeNumber As String, ByVal BarcodeColor As Drawing.Color, ByVal BarcodeSize As Integer, ByVal AddBackGroundColor As Boolean) As Drawing.Bitmap
            Dim textsize As Drawing.SizeF
            Dim stchar As String = String.Empty
            Dim textsize2 As Drawing.SizeF
            Dim col1 As Drawing.Color = BarcodeColor
            Dim col2 As Drawing.Color = BarcodeColor
            Dim k As String = BarcodeNumber
            Dim addStar As String = "*"
            Dim full As String = addStar & BarcodeNumber & addStar
            BarcodeNumber = full
            Dim int As Integer = BarcodeSize / 2
            img = New Drawing.Bitmap(img, New Drawing.Size(((img.Size.Width - img.Size.Width) + int), ((img.Size.Height - img.Size.Height) + int)))
            Dim bc As Drawing.Bitmap = New Drawing.Bitmap(BarcodeSize * 8, BarcodeSize * 3)
            Dim myf As Drawing.Font = New Drawing.Font("Arial", int, New Drawing.FontStyle) ', GraphicsUnit.Point)
            Dim ft As Drawing.Font = New Drawing.Font("Free 3 of 9 Extended", BarcodeSize, New Drawing.FontStyle, Drawing.GraphicsUnit.Point)
            Dim g As Drawing.Graphics = Drawing.Graphics.FromImage(bc)
            If AddBackGroundColor = True Then
                g.Clear(Drawing.Color.White)
            End If
            g.DrawImage(img, 2, 0)
            textsize = g.MeasureString(barcodeDescription, myf)
            textsize2 = g.MeasureString(BarcodeNumber, myf)
            g.TextRenderingHint = Drawing.Text.TextRenderingHint.SystemDefault
            g.DrawString(barcodeDescription, myf, New Drawing.SolidBrush(col2), img.Width + 5, 0)
            g.TextRenderingHint = Drawing.Text.TextRenderingHint.SingleBitPerPixel '
            g.DrawString(BarcodeNumber, ft, New Drawing.SolidBrush(col1), 2, textsize.Height + 3)
            g.TextRenderingHint = Drawing.Text.TextRenderingHint.SystemDefault
            For Each chr As Char In k
                stchar &= chr.ToString & " "
            Next
            g.DrawString(stchar, myf, New Drawing.SolidBrush(col2), 6, textsize.Height + textsize2.Height + 8)
            g.Flush()
            ft.Dispose()
            g.Dispose()
            Return bc
        End Function
    And for the second part of your question, to read barcode from image, you have to know how the barcode symbologies encoding algorithm. Try this link http://www.codeproject.com/KB/graphics/barcodeImaging.aspx

    The class library was C# code. Don't even bother to convert it to VB.NET because it use some unsafe code. What you can do, just download the source code and compile the barcode class to .net dll then you can reference it in your vb program. The library covered code39,code128, EAN/UPC. You only needs to use code39 which is for Font free3of9

    kaymaf
    If that what you want, take it. If not, ignored it and no complain
    • Marked as answer by sazd1 Monday, December 14, 2009 11:02 AM
    Sunday, December 13, 2009 3:21 AM
  • Hi Kaymaf
    Thanks so much for all of your guidance, help and explaining the things with code. I am sure this thread will help all other newbees like me.
    Thanks again for your support.
    Monday, December 14, 2009 11:03 AM
  • Barcode generation and printing is a hot topic in barcode field, as the barcode market is developing day by day, there are more and more <a href="http://www.rasteredge.com/online-barcode-generator/qr-code/">FREE barcode generation</a>and printing program which we can use, it is nice.


    Wednesday, January 23, 2013 8:06 AM
  • There are some sample code for barcode solution with font, check it. http://www.keepautomation.com/font_tools/source_code_barcode_font_encoder.html

    Thursday, May 2, 2013 2:57 AM
  • thank you sir, Actually I use this code to print barcode in crystal report using vb.net 2008 prof. edition and it is worked properly.

    thanks again sir.


    and i want to know the mechanism of reading barcode from the generated barcode using the above code.
    Saturday, August 31, 2013 1:40 AM