Print Data Matrix Barcode In Visual Basic Application

To print data matrix barcode in Visual Basic,
you need Barcodesoft BCSDatamatrix.ttf true type font and cruflbcs.dll .

If you download and install the demo of Barcodesoft Data Matrix font on your
computer, you will find crUFLBCS.dll from
"C:\Program Files\Common Files\Barcodesoft\Fontutil\" folder.

If you don't find cruflbcs.dll on your computer, please download it from Data Matrix Barcode VB .

crUFLBCS.dll is a COM object with IDataMatrix interface.
You can find the detailed information about IDataMatrix interface from readme.html.

To call the methods of IDataMatrix interface, you can use either Late Binding or Early Binding.

Late Binding

Late binding is used when type information of an object is unavailable at compile time.

Your codes using late binding to print data matrix barcode in Visual Basic run slower than using early binding.

However, your codes are version-independent as long as COM interface and method parameters remain unchanged.

You can find the sample using late binding to print Data Matrix barcode
in Visual Basic from this folder
C:\Program Files\Barcodesoft\datamatrixfont\ .

Please apply font typeface BCSDataMatrix to returned string "retval". You will see Data Matrix barcode .

Early Binding

Early binding requires the client to get access to the type library before compile.

Your codes using early binding to print data matrix barcode run faster than using late binding.

You can find the sample using early binding to print Data Matrix barcode
in Visual Basic from the following folder
C:\Program Files\Barcodesoft\datamatrixfont\.

1. Click Project menu, choose "Add Reference..." to load the type information of cruflBCS.dll.

2. Use the following code snippet to print barcode from Visual Basic.

Price: US$129

Dim cruflBCSObj As Object
Set cruflBCSObj = CreateObject("cruflBCS.DataMatrix.1")
cruflBCSObj.SetCRLF (1)
Dim retval As String
retval = cruflBCSObj.Encode(strTemp, "0")

Dim obj As cruflBCS.CBCSDataMatrix
Set obj = New cruflBCS.CBCSDataMatrix
datamatrix = obj.Encode(strToEncode)
Set obj = Nothing

For more information about Data Matrix barcode, please click Data Matrix.

Price: US$129

Dim cruflBCSObj As Object Set cruflBCSObj = CreateObject("cruflBCS.DataMatrix.1") cruflBCSObj.SetCRLF (1) Dim retval As String retval = cruflBCSObj.Encode(strTemp, "0")

Dim obj As cruflBCS.CBCSDataMatrix Set obj = New cruflBCS.CBCSDataMatrix datamatrix = obj.Encode(strToEncode) Set obj = Nothing

For more information about Data Matrix barcode, please click Data Matrix.

Dim cruflBCSObj As Object
Set cruflBCSObj = CreateObject("cruflBCS.DataMatrix.1")
cruflBCSObj.SetCRLF (1)
Dim retval As String
retval = cruflBCSObj.Encode(strTemp, "0")

Dim obj As cruflBCS.CBCSDataMatrix
Set obj = New cruflBCS.CBCSDataMatrix
datamatrix = obj.Encode(strToEncode)
Set obj = Nothing