目的：所有学生准考证自动打印

liuzx898

请各位朋友帮个忙，我的目的：所有学生准考证自动打印，如何实现？谢谢 体考准考证=2020年春.rar (44.53 KB, 下载次数: 18)

2020-5-20 08:20 上传

点击文件名下载附件

ggsmart

为什么不用邮件合并呢？

不过如果要在你的表里批量批印的话，可以用VBA设个循环，更改V3的值来实现自动打印，比如V3的值输入1到100，可以用下面的过程

1. 
   
2. Sub PringAll()
   
3.     Dim i As Long
   
4.     For i = 1 To 100
   
5.         Range("V3").Value = i
   
6.         ActiveWindow.SelectedSheets.PrintOut Copies:=1
   
7.     Next i
   
8. End Sub
   

复制代码

约定的童话

128主题，470帖子，0鲜花，你这只汲取不奉献的啊？

网海遨游

跟2楼代码差不多，请测试！

liuzx898

谢谢各位朋友，520，开心快乐

TSABCD

学习了！谢分享

TSABCD

学习了！谢分享