自动生成批量磅单可打印

3286042 · 发表于 2020-4-6 16:16

本帖最后由 3286042 于 2020-4-7 09:02 编辑

想把EXCEL里的数据打印成磅单，批量生成，批量打印！能打印到左边最末尾一行！翻过之前有位大佬写的宏，自己完全看不懂！仿照那个磅单套打表就行了，谢谢各位大佬！票是三联票怎么才能在数据表里写入到3个磅单里面呢？还是做3个标签的数据表？希望大佬帮帮忙可付费，当然不要太多，刚毕业的学生党呢！

sylinmc · 发表于 2020-4-6 19:20

Sub batchPrint()
Dim r, tb As Integer
Dim arrRef As Variant
With Sheets("磅单数据")
r = .Cells(Rows.Count, 1).End(xlUp).Row
arrRef = Range(.Cells(2, 1), .Cells(r, 7))
End With
For tb = 2 To r
Range("C3") = arrRef(tb, 1) '收货单位
Range("G3") = arrRef(tb, 2) '日期
Range("C4") = arrRef(tb, 3) '发货地址
Range("F4") = arrRef(tb, 4) '收货地址
Range("C5") = arrRef(tb, 5) '货物名称
Range("E5") = arrRef(tb, 6) '承运车号
Range("C6") = arrRef(tb, 7) '毛重
Range("E6") = arrRef(tb, 7) '皮重
Range("G6") = arrRef(tb, 8) '净重
Range("C7") = arrRef(tb, 6) '运费单价
ActiveSheet.PrintOut
Next
End Sub

复制代码

3286042 · 发表于 2020-4-7 08:42

sylinmc 发表于 2020-4-6 19:20

大佬，搞了半天还是不会用啊，我一个萌新

sylinmc · 发表于 2020-4-7 09:38

还要弄成什么样的？？？自己问题说明得不明不白的，不是要把数据转换成订单打印出来吗？用这个就行了

3286042 · 发表于 2020-4-7 11:08

sylinmc 发表于 2020-4-7 09:38
还要弄成什么样的？？？自己问题说明得不明不白的，不是要把数据转换成订单打印出来吗？用这个就行了

下标越界搞不懂啊

3286042 · 发表于 2020-4-7 11:10

能不能像上面第二个附件大佬一样给做个表啊？弄不明白，我也不想党伸手党，弄了一早上弄不好

3286042 · 发表于 2020-4-7 15:38

为何下载不少，就是没人帮下我呢？

youweiping999 · 发表于 2020-4-7 16:00

下载下来运行很正常

3286042 · 发表于 2020-4-7 16:57

youweiping999 发表于 2020-4-7 16:00
下载下来运行很正常

第一个的表才是我的啊，第二个是我再以前的帖子里搜索的，要做成这样啊。但是把代码复制进去还是弄不了，希望帮下我！

sylinmc · 发表于 2020-4-7 20:28

Sub batchPrint()
Dim r, tb As Integer
Dim arrRef As Variant
With Sheets("磅单数据")
r = .Cells(Rows.Count, 1).End(xlUp).Row
arrRef = Range(.Cells(2, 1), .Cells(r, 10))
End With
For tb = 1 To UBound(arrRef)
Range("C3") = arrRef(tb, 1) '收货单位
Range("G3") = arrRef(tb, 2) '日期
Range("C4") = arrRef(tb, 3) '发货地址
Range("F4") = arrRef(tb, 4) '收货地址
Range("C5") = arrRef(tb, 5) '货物名称
Range("E5") = arrRef(tb, 6) '承运车号
Range("C6") = arrRef(tb, 7) '毛重
Range("E6") = arrRef(tb, 8) '皮重
Range("G6") = arrRef(tb, 9) '净重
Range("C7") = arrRef(tb, 10) '运费单价
ActiveSheet.PrintOut '打印表单
Next
End Sub

复制代码

		自动登录	找回密码
密码			免费注册

[求助] 自动生成批量磅单可打印