自动生成批量磅单可打印

3286042

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

这个出来以后每打印一次   出来3张纸    写入的都是第一个表格数据啊   这个咋弄呢？

3286042

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

你看看我写进去的，附件里有，为什么关联不上呢？ 第一个是3个模块，第二个是1个模块放进去数据，但是数据不写入

sylinmc

不明白你的意思！

sylinmc

如果是3个单子一起打印的话可以用下面这个代码，其他的意思不明白，最好有个模拟数据之类 的

1. Sub batchPrint()
   
2. Dim r, tb As Integer
   
3. Dim arrRef As Variant
   
4. 
   
5.     With Sheets("磅单数据")
   
6.         r = .Cells(Rows.Count, 1).End(xlUp).Row
   
7.         arrRef = Range(.Cells(2, 1), .Cells(r, 10))
   
8.     End With
   
9.    
   
10.     For tb = 1 To UBound(arrRef)
    
11.         Union(Range("C3"), Range("C14"), Range("C25")) = arrRef(tb, 1) '收货单位
    
12.         Union(Range("G3"), Range("G14"), Range("G25")) = arrRef(tb, 2) '日期
    
13.         Union(Range("C4"), Range("C15"), Range("C26")) = arrRef(tb, 3) '发货地址
    
14.         Union(Range("F4"), Range("F15"), Range("F26")) = arrRef(tb, 4) '收货地址
    
15.         Union(Range("C5"), Range("C16"), Range("C27")) = arrRef(tb, 5) '货物名称
    
16.         Union(Range("E5"), Range("E16"), Range("E27")) = arrRef(tb, 6) '承运车号
    
17.         Union(Range("C6"), Range("C17"), Range("C28")) = arrRef(tb, 7) '毛重
    
18.         Union(Range("E6"), Range("C17"), Range("C28")) = arrRef(tb, 8) '皮重
    
19.         Union(Range("G6"), Range("C17"), Range("C28")) = arrRef(tb, 9) '净重
    
20.         Union(Range("C7"), Range("C18"), Range("C29")) = arrRef(tb, 10) '运费单价
    
21.         'ActiveSheet.PrintOut '打印表单
    
22.     Next
    
23. End Sub
    

复制代码

3286042

sylinmc 发表于 2020-4-8 16:01
如果是3个单子一起打印的话可以用下面这个代码，其他的意思不明白，最好有个模拟数据之类 的

我把这个代码复制上去以后打印机直接不打了，之前的代码会自动打印的，我们这是三联纸的票，一次出3个数据，你这个是不是把一个数据写入【打印用】里面的3个磅单去了呢？

sylinmc

3286042 发表于 2020-4-9 08:39
我把这个代码复制上去以后打印机直接不打了，之前的代码会自动打印的，我们这是三联纸的票，一次出3个数 ...

忘记了，把
'ActiveSheet.PrintOut '打印表单
前面的'删除，写的时候注释掉忘记恢复

3286042

sylinmc 发表于 2020-4-9 09:20
忘记了，把
'ActiveSheet.PrintOut '打印表单
前面的'删除，写的时候注释掉忘记恢复

实验过了，你这个是把1个数据写入我打印用的3个里面，和我想要的不一样啊
我是想把上图这个磅单数据、磅单数据2、磅单数据3，分别写入 打印用这3个磅单里面，大佬原谅我新人说不清楚。

sylinmc

请参考，细节自己调整一下

3286042

sylinmc 发表于 2020-4-9 11:32
请参考，细节自己调整一下

可以打印了，谢谢，有什么问题再像大佬请教！

3286042

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

可以把这个宏做成个按键么？
我已经百度了下弄好了！