如何生成Code128条码并打印

Question

我的任务是尝试创建一个 VBA 宏，该宏将根据我拥有的值生成条形码，并创建一个仅打印条形码而不打印值的按钮。我在网上找到了一些生成条形码的选项，但格式看起来不正确，因为我还需要条形码底部的数字。我是 VBA 宏的初学者，我不确定这一切是否完全可行？

这是我用来生成条形码的 link 当前 VBA 的 link：

https://code.adonline.id.au/easily-generate-code-128-barcodes-in-excel/

例如，这是我目前拥有的：

这是我想要的条形码示例：

Answer 1

你可以这样做：

Sub Tester()
    Dim c As Range, v As String, bc
    
    For Each c In Range("A1:A5").Cells    'values to create barcodes from
        v = c.Value                       'value to be barcoded
        bc = Code128(v)                   'using your linked function
        With c.Offset(0, 1)
            .Font.Size = 12               'reset font size
            .Font.Name = "Calibri"        'reset font
            .HorizontalAlignment = xlCenter
            .Value = bc & vbLf & v
            'format the barcode characters
            .Characters(1, Len(bc)).Font.Name = "Libre Barcode 128"
            .Characters(1, Len(bc)).Font.Size = 16
        End With
    Next c
End Sub

输出：

如何生成Code128条码并打印

How to generate Code128 barcodes and print

excel

vba

barcode

excel-formula

barcode-printing