请大神帮助，如何用VBA实现箱单的一键批量打印功能，天天打箱单，加班好烦人，信息

dkunqiue

请大神帮助，如何用VBA实现箱单的一键批量打印功能，主要实现打印出来的箱单号码自动排序，例如20个箱单 第一个1/20  第二个2/20 ........谢谢大神

cjc209

采用这种形式就可以了

cjc209

Sub 过程名()
    Dim i, j, k, arr, brr, x, y
    For i = 1 To [h8].Value
        [c12] = "'" & i & "/" & [h8]
        再调用打印
    Next
End Sub

cjc209

全代码
Sub 批量打印()
    Dim i, j, k, arr, brr, x, y
    For i = 1 To [h8].Value
        [c12] = "'" & i & "/" & [h8]
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Next
End Sub

dkunqiue

谢谢 大神 完美解决 会VBN真是太方便了  以后多向您请教

cjc209

这是基本循环产生序列 让产生的序列值在对应的单元格生成新值再调用打印程序就可以了 这就叫半自动化

cjc209

批量 一般都会利用循环

dkunqiue

好的 非常感谢 我刚开始学习 感觉能解决很多事情 一定要学好

cjc209

vba 本身就是excel 的加强功能 很多函数办不到的就可以使用vba解决