求助大神帮忙

17601461985

上次让论坛大神帮忙做了一个仓库储位卡打印模板（如附件）。比之前省了好多事情。每天都要打印；每次只能选一个库位，点击一次打印，但是毕竟有几十个库位，打印起来还是比较麻烦。就想着能不能录制一个宏，设置一个窗体。点击窗体，完成所有库位打印。但本人菜鸟一枚，功力不够，始终都不成功。只能求助论坛哪位大神出手相救。。

17601461985

自己顶一下!希望不要沉底。望哪位好心的大神能帮忙处理这个问题

17601461985

已经处理好了，感谢大家；代码贴出来，欢迎大家提出指正
Sub 批量提取数据有效性下拉列表项目并打印()
Dim rCell As Range
Dim Arr, m

On Error Resume Next
Set rCell = Worksheets("储位卡打印模板").Range("B2")

'将单元格中的数据有效性序列提取到数组
With rCell.Validation
If .Type = 3 Then
If Range(.Formula1) Is Nothing Then
'当数据有效性序列的来源不是单元格区域时
Arr = Split(.Formula1, ",")
Else
Arr = Range(.Formula1).Value
End If
'批量打印
If IsArray(Arr) Then
For Each m In Arr
If m <> "" Then
rCell.Value = m
Worksheets("储位卡打印模板 ").PrintOut ""
End If
Next
Else
rCell.Value = Arr
Worksheets("储位卡打印模板 ").PrintOut ""
End If
End If
End With
End Sub