Here you may find thousands pre-made source code pieces for easy implementation in your own programming VB.NET projects. Macro pdf417 (multiple) in VB.NET can be implemented with ByteScout Barcode SDK. ByteScout Barcode SDK is the robost SDK that generates high quality barcode images and pdf. Can generate all popular types of barcodes from QR Code, Code 39, Code 128, UPC, GS1, GS-128, PDF417, Datamatrix to more exotic barcode types. Fully customizable fonts, colors, print sizes. Includes special functions to ensure output quality, and tools for adding barcodes to new or existing pdf files and images.
You will save a lot of time on writing and testing code as you may just take the code below and use it in your application. VB.NET sample code is all you need: copy and paste the code to your VB.NET application’s code editor, add a reference to ByteScout Barcode SDK (if you haven’t added yet) and you are ready to go! Enhanced documentation and tutorials are available along with installed ByteScout Barcode SDK if you’d like to dive deeper into the topic and the details of the API.
ByteScout Barcode SDK is available as free trial. You may get it from our website along with all other source code samples for VB.NET applications.
Imports Bytescout.BarCode Module Module1 Sub Main() ' Create new barcode Dim barcode As New Barcode() ' Set symbology barcode.Symbology = SymbologyType.MacroPDF417 ' we will encode value 123456789 ' will break into 3 segments, each segment includes 3 symbols ' 1st segment ' create the first segment barcode so set SegmentIndex = 1 barcode.Options.PDF417SegmentIndex = 1 ' Set value barcode.Value = "123" ' set that this is not the last segment yet barcode.Options.PDF417LastSegment = False ' Save barcode to image barcode.SaveImage("MacroPDFBarcode-part1.png") ' 2nd segment ' create the 2nd segment barcode so set SegmentIndex = 2 barcode.Options.PDF417SegmentIndex = 2 ' Set value barcode.Value = "456" ' set that this is not the last segment yet barcode.Options.PDF417LastSegment = False ' Save barcode to image barcode.SaveImage("MacroPDFBarcode-part2.png") ' 3rd segment ' create the 3rd segment barcode so set SegmentIndex = 3 barcode.Options.PDF417SegmentIndex = 3 ' Set value barcode.Value = "789" ' set that this is the LAST segment, so set PDF417LastSegment = TRUE barcode.Options.PDF417LastSegment = True ' Save barcode to image barcode.SaveImage("MacroPDFBarcode-part3.png") ' now open all three images ' Show image in default image viewer Process.Start("MacroPDFBarcode-part1.png") Process.Start("MacroPDFBarcode-part2.png") Process.Start("MacroPDFBarcode-part3.png") End Sub End Module