TBarCode Office 是一款適用于 Microsoft® Word 2007、 2010和2013等具有強大功能的條碼插件。通過此插件只需點擊幾下鼠標(biāo)便可在您的 Word 文檔 - 包括支持系列信件中添加所有條碼。

從本篇文章開始，我們將講解在TBarCode Office中關(guān)于TBarCode OCX的常見問題解答。

※如何生成EAN數(shù)據(jù)矩陣/ GS1數(shù)據(jù)矩陣？

• 將Data Matrix調(diào)整為符號系統(tǒng)
• 將Data Matrix格式參數(shù)設(shè)置為EAN（枚舉eDMPr_UCCEAN）。這會在條形碼的第一個位置插入FNC1，并將條形碼標(biāo)記為GS1 / EAN類型。
• 啟用轉(zhuǎn)義序列
• 使用序列\ F在可變長度AI之間編碼FNC1分隔符。

※如何將十六進制序列編碼為二進制值？

要使用TBarCode V9編碼十六進制值，必須使用“Escape Sequences”格式為“\ xhh”（hh =十六進制值）。有必要將十六進制序列（例如，從DP Premiumadress）轉(zhuǎn)換為此格式，并打開TBarCode屬性“EscapeSequences”。下面我們?yōu)榇宿D(zhuǎn)換提供VBA示例代碼：

'CreateTBCHEXString（sHexValue）
'sHexValue ....轉(zhuǎn)換后的數(shù)據(jù)流
在每個字節(jié)之前'設(shè)置'\ x“

私有函數(shù)CreateTBCHEXString（sHexValue）
    Dim sTBCText As String
   
    '設(shè)置TBarCode所需的前綴“\ xhh”
    sHexPrefix =“\ x”
    
    '將生成的字符串變?yōu)?ldquo;\ xhh”格式
    對于i = 1到Len（sHexValue）步驟2
        sTBCText = sTBCText＆sHexPrefix＆Mid $（sHexValue，i，2）
    下一個我
    
    CreateTBCHEXString = sTBCText
結(jié)束功能

※如何編碼二進制數(shù)據(jù)（二維碼）？

即使您對二進制數(shù)據(jù)使用轉(zhuǎn)義序列，編碼器也將使用代碼頁轉(zhuǎn)換（例如：\ x88根據(jù)需要在Data Matrix中導(dǎo)致不同的值）。

• 關(guān)閉代碼頁轉(zhuǎn)換（使用編碼模式LowByte）
• 強制二進制編碼模式（如果可用）（參見PDF417編碼模式，數(shù)據(jù)矩陣EnforceBinaryEncoding）

※在Microsoft Visual Basic，Visual C ++，VBscript，PHP中更改HRT字體

Visual Basic

Dim fnt As stdole.StdFont
設(shè)置fnt = new stdole.StdFont
fnt.Name =“Arial”
設(shè)置TBC.Font = fnt

Microsoft Visual C ++

COleFont cOF = m_TBarCode.GetFont（）;
tagCY cy = cOF.GetSize（）;
cOF.SetName（ “Arial字體”）; //字體系列= Arial
cy.int64 = cy.int64 * 1.5; //將50％添加到原始大小
cOF.SetSize（CY）;
m_TBarCode.SetFont（（LPDISPATCH）cOF）;
cOF.ReleaseDispatch（）;

VBscript的^®（ASP）：

朦朧的fnt
set fnt = Server.CreateObject（“StdFont”）
fnt.name =“Arial”
設(shè)置TBC.Font = fnt

PHP（Windows）：

$ bcobj = new COM（“TBarCode9.TBarCode9”）;
$ fntobj = new COM（“StdFont”）;
$ fntobj->名稱= “時報”;
$ fntobj->尺寸= 12;
$ bcobj->字體= $ fntobj;

※如何更改Navision / Dynamics NAV中的HRT字體?

您需要生成OLE Automation.StdFont類型的自動化變量。然后將此字體對象分配給TBarCode COM對象。

名稱數(shù)據(jù)類型子類型
StdFont Automation'OLE Automation'.StdFont

CLEAR（BC）;
BC.Refresh;
如果ISCLEAR（StdFont）那么
  CREATE（標(biāo)準(zhǔn)體）;
StdFont.Size：= 30;
StdFont.Name：='Arial';
BC.Font：= StdFont;

※如何向控件添加其他文本行？

這可以通過以編程方式更改活動文本索引來實現(xiàn)。以下是Excel VBA的示例。TBarCode111是工作表上TBarCode實例的名稱。

'首先為我們的文本區(qū)添加一個安靜的區(qū)域
TBarCode111.QuietZoneTop = 10
TBarCode111.QuietZoneUnit = eMUMM

'在文本區(qū)＃0中設(shè)置條形碼數(shù)據(jù)（+正常HRT）
TBarCode111.ActiveTextIndex = 0
TBarCode111.BarCode = eBC_Code128
TBarCode111.Text =“1234567890”
TBarCode111.DisplayText =“”
Dim fontBarcode As New stdole.StdFont
fontBarcode.Name =“Arial”
fontBarcode.Size = 12
TBarCode111.font = fontBarcode


'將文本索引更改為（輔助）文本區(qū)域＃1
TBarCode111.ActiveTextIndex = 1

'現(xiàn)在調(diào)整文本區(qū)域＃1的所有設(shè)置
TBarCode111.DisplayText =“我的標(biāo)簽文字”
TBarCode111.TextPositionLeft = 0
TBarCode111.TextPositionTop = 0
TBarCode111.TextClipping = False
TBarCode111.PrintDataText = True

Dim fontLabel As New stdole.StdFont
fontLabel.Name =“Arial”
fontLabel.Size = 10
fontLabel.Weight = 800
TBarCode111.font = fontLabel

'將文本索引重置為條形碼文本
TBarCode111.ActiveTextIndex = 0

- 未完待續(xù) -

其他精彩教程，盡在資源列表

世界讀書日，“樊登讀書”21天聽書卡免費領(lǐng)，點擊下方圖片即可領(lǐng)取