如何用VBA自动打印标签

Pagean

书到用时方恨少，一直没有学会VBA编程... ...
现在根据客户要求，每个产品的箱子上都要贴上这个箱子里的产品编号和数量，有几箱就要打印几个标签，比如装箱单如下：
共几箱        产品编号        每箱数量
1        1#        100
2        2#        200
3        3#        300
那么就需要打印标签如下。现在打印这三个型号，我手工做了如下标签，但是现实工作是型号非常多，手工做就成了一项异常繁琐的一件事，请问各位高手，VBA是否可以实现自动打印标签？具体文件见附件，如蒙赐教，不胜感激！

产品编号：1#
数量：100

产品编号：2#
数量：200

产品编号：2#
数量：200

产品编号：3#
数量：300

产品编号：3#
数量：300

产品编号：3#

lenghonghai

Private Sub CommandButton1_Click()
Dim x%, arrjg$(), i%, j%
x = Range("a65536").End(xlUp).Row
For i = 2 To x
    For j = 1 To Range("a" & i)
        m = m + 1
        ReDim Preserve arrjg(1 To m)
        arrjg(m) = "产品编号:" & Range("b" & i)
        m = m + 1
        ReDim Preserve arrjg(1 To m)
        arrjg(m) = "数量:" & Range("c" & i)
        m = m + 1
        ReDim Preserve arrjg(1 To m)
        arrjg(m) = ""
    Next j
Next i
Range("d2").Resize(m, 1) = WorksheetFunction.Transpose(arrjg)
End Sub

Pagean

多谢龙的传人的指导，希望加你为QQ好友，有机会请你吃饭。

shaokui123

今天翻帖子看到了，很实用，谢谢了