批量打印

2002431

本人0基础，因为工作关系，如工作表中人员信息有10000多个，每个人需要打印一张样表，如何能在Excel中将人员信息匹配到打印样表中，并能实现一键打印和零星打印，拜求各位大神，在此跪谢

hang2114

WPS版 office版本人新手建议：运用word做出此模板，然后通过word里的邮件合并功能将10000多人的信息填入。虽然会很慢。

sylinmc

1. Sub test()
   
2. Dim arr
   
3. arr = Sheets("人员信息").Range("A1").CurrentRegion
   
4. For i = 2 To UBound(arr)
   
5.     With Sheets("打印样表")
   
6.         .[G4] = arr(i, 3)
   
7.         .[Q4] = arr(i, 4)
   
8.         .[Z4] = arr(i, 5)
   
9.         .[H5] = arr(i, 6)
   
10.         '.[z5] = 联系电话
    
11.         .[G6] = arr(i, 2)
    
12.         .[G7] = arr(i, 9)
    
13.         .[G8] = arr(i, 10)
    
14.         '.[AI8] = 邮编
    
15.         .[G9] = arr(i, 12)
    
16.         .[AB9] = arr(i, 11)
    
17.         .[G11] = arr(i, 13)
    
18.         .[H14] = arr(i, 14)
    
19.         .PrintOut
    
20.     End With
    
21. Next
    
22. End Sub
    

复制代码

2002431

hang2114 发表于 2020-9-16 17:31
WPS版office版本人新手建议：运用word做出此模板，然后通过word里的邮件合并功能将10000多人的信息填入。虽 ...

谢谢，我先试试

2002431

sylinmc 发表于 2020-9-16 17:32

谢谢，我尝试下

如果不知道

sylinmc 发表于 2020-9-16 17:32

可否增加选择按钮,选择数据打印.--学习学习

admin3354

如果不知道 发表于 2020-9-16 23:20
可否增加选择按钮,选择数据打印.--学习学习

邮件合并它不香吗？

想打哪里打哪里，打到你满意为止。

sylinmc

如果不知道 发表于 2020-9-16 23:20
可否增加选择按钮,选择数据打印.--学习学习

可以的。。。。。。。。。

2002431

hang2114 发表于 2020-9-16 17:31
WPS版office版本人新手建议：运用word做出此模板，然后通过word里的邮件合并功能将10000多人的信息填入。虽 ...

这个不能实现区域打印吗

2002431

admin3354 发表于 2020-9-17 08:09
邮件合并它不香吗？

想打哪里打哪里，打到你满意为止。

邮件合并不能实现区域打印吗