PDF 417 barcode is a 2D barcode symbology that is able to encode more than 1000 characters.

With Barcodesoft PDF417 barcode font package and Microsoft® Access®, it has never been so easy to print PDF417 bar code from your Windows computer and desktop printer.

1. Copy all true type fonts (*.ttf) under fonts folder to your c:\Windows\Fonts folder.

2. Open DOS prompt. If you are using Windows Vista or Windows 7, please Open DOS prompt as administrator.
Please go to the following folder
CD C:\Program Files (x86)\Common Files\Barcodesoft\FontUtil
Type in the following DOS command to register crUFLbcs.dll
regsvr32 crUFLbcs.dll


If registration fails, please use the following DOS command to register it.
Regtlibv12 is a utility of Windows .NET Framework 2.0.
Regtlibv12 _cruflbcs.tlb

3. Start Microsoft® Access® and change security level
If you use Access 2000 or Access 2003, please click menu Tools ==> Security ==> User Level Security Wizard. Set security level to “Enable All Macros”.
If you use Access 2007, please click Microsoft Office Button
Then click “Access Options”, it will popup a dialog. Choose “Trust Center”, click “Trust Center Settings”. Set macro settings to “Enable all macros” as shown below.



4. Start Microsoft® Access® first. Press ALT + F11 to open Microsoft® Visual Basic editor.



5. From Visual Basic editor, choose menu Tools ===> References. It will popup a dialog. Click Browse button and choose cruflbcs.dll from your working folder.
Usually it's under C:\Program File\CommonFiles\Barcodesoft\Fontutil folder.
Click the checkbox beside crUFLBcs 1.0 Type Library as shown below. Then click OK button.





6. Press Ctrl+M, it will popup a dialog, choose barcodesoft.bas under
C:\Program File\CommonFiles\Barcodesoft\Fontutil folder. Then click "Open".



If PDF417 or MicroPDF417 function looks different from the codes below,
please copy and paste the following code snippet to replace it in barcodesoft module.

Public Function PDF_417(strToEncode As String) As String
Dim obj As cruflBCS.CPDF417
Set obj = New cruflBCS.CPDF417
PDF_417 = obj.Encode(strToEncode, 0, 0, 0, 0, 0, 0)
;The second parameter is string index, default value is zero.
; The third to 7th parameters are MaxRow, FixedColumn, Security, Compaction Mode and Truncated options
Set obj = Nothing
End Function

Public Function MicroPDF417(strToEncode As String) As String
Dim obj As cruflBCS.CMicroPDF417
Set obj = New cruflBCS.CMicroPDF417
MicroPDF417 = obj.Encode(strToEncode)
Set obj = Nothing
End Function



7. Close Visual Basic and go back to your Access database. Now, create a report in Design view and type in one of the following macros in the field where you want to show pdf417 barcode or microPDF417 barcode before apply font typeface "BcsPdf417":
=pdf417([data.code])
=micropdf417([data.code])

Please notice that 'data' is the Table name, 'code' is the Field name.




8. Right click the field you want to display PDF417 barcode. Choose Properties from context menu. Apply font typeface BCSPdf417 to the field.




Another smart and simple solution for printing PDF417 barcode is using Microsoft® Word. First launch Barcodesoft Encoder, then type in whatever you would like to encode. Then press the Copy to clipboard button. Now open Word, and press Ctrl+V. You will see PDF417 bar code appear.

For more information about PDF417 barcode, please click BarCodeSoft PDF417 Bar Code.

Microsoft and the Office logo are trademarks or registered trademarks of Microsoft Corporation in the United States and/or other countries.