如何生成Code128条形码和打印

Question

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

这是一个链接，指向我用来生成条形码的当前VBA：

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

输出：

​

​