如何批量打印成绩单

zzpsx · 发表于 2018-2-12 21:51

本帖最后由 zzpsx 于 2018-2-13 21:21 编辑

期末时，班主任都要给学生制作成绩报告单。有些老师是在word中设计好成绩单的模板，有n个学生，就打印n张模板页，然后手动填写。这种方式显然落伍。我用的是word和excel邮件合并，但也觉得麻烦。我想设计成打印页和数据页，但是不知道怎么嵌套，请高手指点。

如何批量打印成绩单.rar (68.51 KB, 下载次数: 198)

朱荣兴 · 发表于 2018-2-13 12:50

提示: 作者被禁止或删除内容自动屏蔽

zzpsx · 发表于 2018-2-13 19:47

本帖最后由 zzpsx 于 2018-2-13 20:49 编辑

谢谢高手指点。希望打印的时候类似这样的效果 QQ截图20180213204843.jpg

zzpsx · 发表于 2018-2-13 20:51

我更新了附件，谢谢各位。

zzpsx · 发表于 2018-2-14 09:10

本帖最后由 zzpsx 于 2018-2-14 10:30 编辑

成绩单批量打印可以初稿.rar (30.25 KB, 下载次数: 252) A17不能完整显示，代码为=INDEX(数据页期末考试!O:O,打印页!$L$3+1)

zzpsx · 发表于 2018-2-14 09:13

A17不能完整显示，代码为=INDEX(数据页期末考试!O:O,打印页!$L$3+1)

abccba_ln · 发表于 2018-2-14 09:44

Sub 转到第几页()
ActiveSheet.Range("J3").Value = ActiveSheet.Range("K10").Value
End Sub

复制代码

Sub 批量打印()
For i = Range("K7") To Range("K8")
Range("J3") = i
ActiveSheet.PrintOut
Next
End Sub

复制代码

我觉得是你这两个代码给J3重新赋值的缘故，没太细看。

zzpsx · 发表于 2018-2-14 10:14

abccba_ln 发表于 2018-2-14 09:44
我觉得是你这两个代码给J3重新赋值的缘故，没太细看。

谢谢高手，您太厉害了。

37廿一 · 发表于 2018-2-14 10:36

我更愿意使用邮件合并

abccba_ln · 发表于 2018-2-14 13:51

37廿一发表于 2018-2-14 10:36
我更愿意使用邮件合并

没错，同感。

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

[已解决] 如何批量打印成绩单

我做了个批量打印成绩单，不过还有问题，请高手指点。

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2018-2-13 12:50 来自手机 \| 显示全部楼层 [广告] ★会Excel,就能做支持PC、手机、Web、App、Windows、安卓、IOS、Linux信息一体化的各种管理系统 ★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报