Code 39 barcodes in SQL Server Reporting Services with checksum

Find a free Code 39 barcode font (not all of them work well!). I tried this one;

Edit your report, go to Report > Report Properties > Code. Enter the checksum calculation code;

Const C39CharSet As String = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ-. $/+%"
Public Function Code39(C39 As String) As String
  Dim i as Integer
  Dim total as String
  For i = 1 To Len(C39)
    total = InStr(C39CharSet, Mid(C39, i, 1)) - 1 + total
  Next i
  Code39= "*" & C39 & Mid$(C39CharSet, (total Mod 43 + 1), 1) & "*"
End Function

In your report, use the code as follows;


1234 for example returns *1234A*.

Please note that Reporting Services does not embed the fonts in PDF exports, so make sure you have the font installed on all clients! You could use similar code for Industrial 2of5 or Postnet barcodes.