TBarCode Office 是一款适用于 Microsoft® Word 2007、 2010和2013等具有强大功能的条码插件。通过此插件只需点击几下鼠标便可在您的 Word 文档 - 包括支持系列信件中添加所有条码。

我们继续讲解在TBarCode Office中关于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"

※如何生成优化的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中生成数据矩阵？

请使用此代码段作为起点：

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

※如何创建VCard条形码？

VCard本身不是条形码类型，它是一种特殊的文件格式，可用于在条形码中存储数据（例如，存储到QR码中）。只需将您的数据带入给定格式，您就可以使用手机读取条形码并将数据识别为联系信息。

※如何在GS1条形码中编码FNC1？

要将功能字符FNC1添加到条形码数据，请按以下步骤操作：

1. 输入条形码数据“10222333 \ F 15100701”。
2. 切换到“设置”选项卡并检查Escape Sequences。
3. 将插入FNC1并在HRT中自动识别应用程序标识符（AI = 15）。
4. 在Barcode Studio 11.5+中，您可以使用新的GS1应用程序标识符助手。

- 未完待续 -

其他精彩教程，尽在资源列表

工厂春季采购季，知名企业良心推荐，详情点击下方图片