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

我們繼續(xù)講解在TBarCode Office中關(guān)于TBarCode OCX的常見問題解答。

※如何在Access VBA中生成PDF417？

請使用此代碼段作為起點：

' 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"

※如何在Access VBA中計算Mod-10？

請使用此代碼段作為起點：

Public Function CalculateMod10(data As String) As String

Dim tbc As TBarCode11Lib.TBarCode11
Set tbc = CreateObject("TBarCode11.TBarCode11")
Dim cd As String
cd = tbc.CalculateCheckdigits(eCDMod10, data)
CalculateMod10 = Left(cd, 1)

End Function

※如何在Word VBA中以編程方式添加條形碼控件？

  Dim barcodeShape As InlineShape

    ' switch to design mode (optional)
    ' ActiveDocument.ToggleFormsDesign
    
    ' Insert bar code object at actual position in document
    Set barcodeShape = Selection.InlineShapes.AddOLEControl(ClassType:="TBarCode10.TBarCode10.1")

    ' change size
    barcodeShape.Width = 200
    barcodeShape.Height = 100

    ' adjust bar code properties programmatically
    barcodeShape.OLEFormat.Object.Barcode = 20    ' 20 = Code-128
    barcodeShape.OLEFormat.Object.Text = "Hello"

※如何生成優(yōu)化的PDF417位圖圖像？

請使用此代碼段作為起點：

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

※如何使用CopyToClipboard在Excel VBA中生成數(shù)據(jù)矩陣？

請使用此代碼段作為起點：

Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long)  As Long
Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long

Dim obj As New TBarCode10
Dim nWidth As Long
Dim nHeight As Long
Dim dc 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

    dc = CreateCompatibleDC(0) ' screen DC

    nWidth = .BCWidthHdc(dc, 96, 96, eMUPixel) + 0.9999   ' module width should be set
    nHeight = .BCHeightHdc(dc, 96, 96, eMUPixel) + 0.9999 ' module width should be set
   
    .CopyToClipboardEx dc, nWidth, nHeight, ""

    DeleteDC(dc)
  End With

※如何創(chuàng)建VCard條形碼？

VCard本身不是條形碼類型，它是一種特殊的文件格式，可用于在條形碼中存儲數(shù)據(jù)（例如，存儲到QR碼中）。只需將您的數(shù)據(jù)帶入給定格式，您就可以使用手機讀取條形碼并將數(shù)據(jù)識別為聯(lián)系信息。

※如何在GS1條形碼中編碼FNC1？

要將功能字符FNC1添加到條形碼數(shù)據(jù)，請按以下步驟操作：

1. 輸入條形碼數(shù)據(jù)“10222333 \ F 15100701”。
2. 切換到“設(shè)置”選項卡并檢查Escape Sequences。
3. 將插入FNC1并在HRT中自動識別應(yīng)用程序標識符（AI = 15）。
4. 在Barcode Studio 11.5+中，您可以使用新的GS1應(yīng)用程序標識符助手。

- 未完待續(xù) -

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

工廠春季采購季，知名企業(yè)良心推薦，詳情點擊下方圖片