物料卡批量打印

13586095672

因为仓库需要规范，需要大批量打印物料卡，提供清单能批量打印相应物料卡。审计部门询证函有这样的功能，但自己不会编码，请大神帮忙

microyip

不会编码，那就学习一下基础知识，然后再编啊，不能摊开手板伸手不劳而获要啊

jsqb

赞！不能把论坛当免费的代码加工厂

科尔沁敏敏

1. 
   
2. 
   
3. Sub 循环打印()
   
4. 
   
5. AAA = Range("L5")
   
6. 
   
7. Dim i As Long
   
8. 
   
9. Dim times As Long
   
10. 
    
11. times = AAA - 1
    
12. 
    
13.     'times代表循环次数，执行前把times赋值即可(不可小于1，不可大于2147483647)
    
14.    
    
15. ActiveSheet.PrintOut                   '直接打印
    
16. 
    
17. For i = 1 To times
    
18. 
    
19. [L3] = [L3] + 1
    
20. 
    
21. Range("L7").Select
    
22. 
    
23.      ActiveSheet.PrintOut                   '直接打印
    
24.    
    
25. Next i
    
26. 
    
27. End Sub

复制代码

清单的表格增加序号，填写开始和结束打印序号，点击循环打印