FAQ: TBarCode OCX

• Adjust Data Matrix as symbology
• Set the Data Matrix format parameter to EAN ( enumeration eDMPr_UCCEAN). This inserts an FNC1 on the first position in the barcode and marks the barcode as GS1/EAN type.
• Enable Escape Sequences
• Use the sequence \F to encode an FNC1 separator character between variable length AIs.

The following workaround can help to solve the problem with the disappearing toolbar in Word 2007:

• Close Word 2007.
• Rename or delete the following file:

File: "TBarCode Add-In.dot"
Path (Windows XP): C:\Documents and Settings\[YourUserName]\Local
Settings\Application Data\TEC-IT\TBarCode9 

Path (Windows Vista): C:\users\[YourUserName]\AppData\Local\TEC-IT\TBarCode9

• Start Word 2007.

By doing so, a new .dot file should be created and the plugin should be visible again.

Visual Basic

Dim fnt As stdole.StdFont
Set fnt = new stdole.StdFont
fnt.Name = "Arial"
Set TBC.Font = fnt

Microsoft Visual C++

COleFont cOF = m_TBarCode.GetFont();
tagCY cy = cOF.GetSize();
cOF.SetName("Arial"); // Font Family = Arial
cy.int64 = cy.int64 * 1.5; // add 50% to original size
cOF.SetSize(cy);
m_TBarCode.SetFont((LPDISPATCH) cOF);
cOF.ReleaseDispatch();

VBscript^® (ASP):

Dim fnt
set fnt = Server.CreateObject("StdFont")
fnt.name = "Arial"
set TBC.Font = fnt

PHP (Windows):

$bcobj = new COM("TBarCode9.TBarCode9");
$fntobj = new COM("StdFont");
$fntobj->Name="Times";
$fntobj->Size=12;
$bcobj->Font=$fntobj;

For inserting multiple barcodes you can use the Serial Letter function in the TBarCode Toolbar. This function allows you to replace all marked text passages with barcodes after the mail merge document was created. For more information about the TBarCode Toolbar and its functionality, please refer to the TBarCode OCX User Manual.

If you encounter speed problems you may alternatively use the Word Mail Merge Macro which can be downloaded in the TBarCode Download Area. The required steps for using the macro are explained in the enclosed text document.

If this occurs during printing, this effect is caused by the printer driver. Along other printer models this effect happens with Toshiba TEC and DataMax printers.

If this occurs during bitmap generation, this effect is caused by the screen driver.

The solution is to change the draw mode of TBarCode:

TBarCode V8+ Set the ActiveX Property DrawMode to Compatible.

TBarCode V7 Create a file barcode.ini with the following content: [DRAW_MODE] UseGDIRect=1 Copy the barcode.ini file to the installation directory of TBarCode (where you can find the file tbarcode7.ocx or tbarcode7.dll). Restart the program.

Depending on the printer driver the first bar in the symbol may be truncated (when printing through Microsoft Access). Also the symbol may be shifted inside of the bounding box.

If this occurs you can work around this problem by specifying an additional quiet zone around the bar code. This can be done in the property tab Appearance - Quietzone - Adjust.

You may get this runtime error if you didn't specify the full Prog-ID with CreateObject. Reference the TBarCode Type Lib in the project settings, and use the following commands to create a TBarCode object in VB (sample for TBarCode OCX V9):

      Dim objTB As TBarCode9
      Set objTB = CreateObject("TBarCode9.TBarCode9")
      objTB.AboutBox

For further trouble shooting read Microsoft Knowledge Base Article - 244264

Licensing happens during startup of the document which contains the ActiveX^®Control.

• Open the Microsoft VBA editor with Alt+F11
• In the Project Explorer select This Workbook.
• Now enter the following code as for the Workbook-Open Event (sample for TBarCode OCX V9):

Private Sub Workbook_Open()
 Dim tbc As TBarCode9
 Set tbc = CreateObject ("TBarCode9.TBarCode9")
 tbc.LicenseMe "Mem:Licensee", eLicKindDeveloper, 1, "Key", eLicProd1D
 Set tbc = Nothing
End Sub

We recommend to password protect your VBA code in the project property window.

Below we show you how to license at startup of the database (sample for TBarCode OCX V9). Create a new Module with the following function (in Microsoft VBA Editor):

Public Function LicenseTBarCode()
 Dim TB As New TBarCode9
 TB.LicenseMe "Mem:Licensee", eLicKindDeveloper, 1, "Key", eLicProd1D
 SetTB = Nothing
End Function

Create a new Macro named "Autoexec" with the following settings:

Action = RunCode
Functionname = License TBarCode()

Please use this code snippet as starting point:

Barcode.Barcode = eBC_PDF417
Barcode.Text = "My Data... "

' the following settings produce a barcode 82,296 mm wide
' if your barcode should have a constant width, set the data columns
' as shown below (increase/decrease to make wider/smaller symbol)

Barcode.PDF417.Columns = 15

Dim X, Y
Dim Scaling
Dim Dpi

' define ratio of module width (small bar width) to row height
X = 1
Y = 1       ' keeps default ratio, which is 1:3
'Y = 3 / 2  ' creates 1:5 ratio

Dpi = 300     ' 300 dpi printer
Scaling = 3   ' 1 Module (smallest bar) = 3 Pixels = 0.254mm

Dim Cols
Dim Rows

Cols = Barcode.Get2DXCols()
Rows = Barcode.Get2DXRows()

Dim XSize
Dim YSize

XSize = Int(X * Cols)     
YSize = Int(Y * Rows)   

' scale with DPI enlarging factor
XSize = XSize * Scaling
YSize = YSize * Scaling

' Save barcode as bitmap
Barcode.SaveImage "c:\temp\barcode.bmp", eIMBmp, XSize, YSize, Dpi, Dpi

Please use this code snippet as starting point:

' set barcode type = PDF417
Me.bc.Object.BarCode = 55

' set size mode to CustomModuleWidth
Me.bc.Object.SizeMode = 1

' now adjust module width to 0.254 mms
Me.bc.Object.ModuleWidth = "254"

' set number of data columns
' optional parameter, but required to get constant width
Me.bc.Object.PDF417.Columns = 5

' adjust row height to 3 times of the module width
Me.bc.Object.PDF417.RowHeight = 254 * 3

Me.bc.Object.Text = "my data"

Since I've added TBarCode to my Word 2003 document, I cannot protect it.

Solution: You have to leave design mode to be able to protect the document. If you insert a Barcode Control, the document is switched to design mode. Through the Control Toolbox you can leave design mode, then you are able to protect the document.

For further information visit Microsoft Office Online.

Please use this code snippet as starting point:

Dim obj As New TBarCode9
  With obj
    .BarCode = eBC_DataMatrix
    .Text = myData

    .ModuleWidth = "508"
    .SizeMode = eSizeMode_CustomModuleWidth

    .Dpi = 96 ' usually screen resolution
    width = .BCHeightHdc(0, 96, 96, eMUPixel)
    height = .BCWidthHdc(0, 96, 96, eMUPixel)

    .CopyToClipboardEx 0, width, height, ""
  End With

The default bar code type can be set through a file named barcode.ini.

The barcode.ini file must be located in the installation path of TBarCode and has to contain the following lines:

[DEFAULT_SETTINGS]
BarcodeType=8

The index (in this example 8) for the required barcode type can be found in the barcode reference, chapter 6.

Please use this code snippet as starting point.

Dim obj As New TBarCode9
Dim nWidth As Long
Dim nHeight As Long
  With obj
    .BarCode = eBC_DataMatrix
    .DataMatrix.Size = eDMSz_32x32
    .Text = myData

    .QuietZoneUnit = eMUModules
    .QuietZoneBottom = 2
    .QuietZoneLeft = 2
    .QuietZoneTop = 2
    .QuietZoneRight = 2

    .ModuleWidth = "508"
    .SizeMode = eSizeMode_CustomModuleWidth
    .Dpi = 1440 / Screen.TwipsPerPixelX ' screen resolution in dpi

    Height = .BCHeightHdc(0, 96, 96, eMUPixel) ' module width should be set
    Width = .BCWidthHdc(0, 96, 96, eMUPixel) ' module width should be set
   
    .CopyToClipboardEx 0, Width, Height, ""
  End With

TBarCode V9 and Barcode Studio V9 allows you to specify the target code page for the data to be encoded.

tbarcode.CodePage = eCodePage_Custom
tbarcode.CodePageCustom = 28605   ' Latin-9 on Windows

Alternatively you can use Windows API character set conversion functions.

The PDF417 "GLI" code is an indicator for the reader software, which character set is used for the forthcoming data string. The AIM ECI table contains ECI 000017 for ISO/IEC 8859-15 Latin alphabet No. 9. ECI is the successor of GLI.

The GLI or ECI indicator can be insert by escape sequences into the data stream:

PDF417: \Gnnnnnn (n...6 digits specifying the GLI)

Encode: \G000017 + bar code data