Print Barcode as Image in RDLC Local Report Using VB.NET

RDLC Report on client side barcode generator control SDK is a robust and mature .NET component to add 40+ linear and 2D barcode features and compatibilities into RDLC local report without additional barcode control or font installed. The RDLC report inserted barcode images can be exported to PDF, Excel, Word and other file documents with barcode images maintained well using C# or VB.NET coding. Barcode settings and parameters are easy to be customized in VB.NET or C#.NET both in ASP.NET RDLC and Windows EDLC.

This page gives you a detail guide of how to print barcode images in RDLC report using VB.NET with sample barcodes in RDLC in ASP.NET and Windows Applications. For creating RDLC barcode image using C#.NET, please refer to how to generate barcode images using C# in RDLC client side report.

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'AdventureWorks.vProductAndDescription' table. You can move, or remove it, as needed.
Me.vProductAndDescriptionTableAdapter.Fill(Me.AdventureWorks.vProductAndDescription)
Dim barcode As Terrek.Barcode.DotNET.DotNETControl
barcode.Symbol = Terrek.Barcode.BarcodeSymbol.Code128
Dim row As AdventureWorks.vProductAndDescriptionRow
For Each row In Me.AdventureWorks.vProductAndDescription.Rows
' set barcode encoding data value
barcode.BarcodeData = row.ProductID.ToString()
' set drawing barcode image format
barcode.BarcodeFormat = System.Drawing.Imaging.ImageFormat.Png
row.Barcode = barcode.drawBarcodeAsBytes()
Next
Me.ReportViewer1.RefreshReport()
End Sub

Imports Terrek.Barcode
Public Class Product
Private m_name As String
Private m_price As Integer
Private m_bit As Byte()
Public Sub New(name As String, price As Integer, data As String)
m_name = name
m_price = price
Dim barcode As Terrek.Barcode.DotNET.DotNETControl
barcode.Symbol = Terrek.Barcode.BarcodeSymbol.PDF417
barcode.BarcodeData = data
m_bit = barcode.drawBarcodeAsBytes()
End Sub
Public ReadOnly Property Bit() As Byte()
Get
Return m_bit
End Get
End Property
Public ReadOnly Property Name() As String
Get
Return m_name
End Get
End Property
Public ReadOnly Property Price() As Integer
Get
Return m_price
End Get
End Property
End Class