条码插件TBarCode Office系列教程九（OCX篇）

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

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

我们继续讲解在TBarCode Office中关于TBarCode OCX的常见问题解答。

TBarCode Office最新版免费下载试用

※如何在Access VBA中生成PDF417/span>

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

' set barcode type = PDF417Me.bc.Object.BarCode = 55' set size mode to CustomModuleWidthMe.bc.Object.SizeMode = 1' now adjust module width to 0.254 mmsMe.bc.Object.ModuleWidth = "254"' set number of data columns' optional parameter, but required to get constant widthMe.bc.Object.PDF417.Columns = 5' adjust row height to 3 times of the module widthMe.bc.Object.PDF417.RowHeight = 254 * 3Me.bc.Object.Text = "my data"

※如何在Access VBA中计算Mod-10/span>

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

Public Function CalculateMod10(data As String) As StringDim tbc As TBarCode11Lib.TBarCode11Set tbc = CreateObject("TBarCode11.TBarCode11")Dim cd As Stringcd = tbc.CalculateCheckdigits(eCDMod10, data)CalculateMod10 = Left(cd, 1)End Function

※如何在Word VBA中以编程方式添加条形码控件/span>

  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位图图像/span>

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

Barcode.Barcode = eBC_PDF417Barcode.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 = 15Dim X, YDim ScalingDim Dpi' define ratio of module width (small bar width) to row heightX = 1Y = 1       ' keeps default ratio, which is 1:3'Y = 3 / 2  ' creates 1:5 ratioDpi = 300     ' 300 dpi printerScaling = 3   ' 1 Module (smallest bar) = 3 Pixels = 0.254mmDim ColsDim RowsCols = Barcode.Get2DXCols()Rows = Barcode.Get2DXRows()Dim XSizeDim YSizeXSize = Int(X * Cols)YSize = Int(Y * Rows)   ' scale with DPI enlarging factorXSize = XSize * ScalingYSize = YSize * Scaling' Save barcode as bitmapBarcode.SaveImage "c:tempbarcode.bmp", eIMBmp, XSize, YSize, Dpi, Dpi

※如何使用CopyToClipboard在Excel VBA中生成数据矩阵/span>

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

Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long)  As LongPrivate Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As LongDim obj As New TBarCode10Dim nWidth As LongDim nHeight As LongDim 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条形码/span>

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

※如何在GS1条形码中编码FNC1/span>

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

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

– 未完待续 –

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

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

标签：条码生成条码识别条码读取