Excel制作批量打印
抛弃传统的邮件合并方法，用另类方法制作一个高效的邮件合并，可以大大提高工作效率。
由于工作关系，经常用到Word中邮件合并功能打印：奖状、证书、准考证等等不计其数，发现Word中邮件合并功能虽然不少，可是有些东西，用Word中邮件合并功能虽然也能实现，但工作量却多了不少，用起来很不方便。如果科目随时变化，每变换一次，就得重新设计一次Word邮件合并（即科目一列得重新录入、成绩引用也要重新插入）。
下面以打印学生成绩为例，介绍一种直接用Excel 2000制作另类“邮件合并”的方法。虽然开始设计时得花点时间，可是一次设计好后，在以后应用中只需稍作改动，就能完成任务，可大大减少时间及工作量。
一、准备工作
首先，用Excel 2000建一个Excel文件（命名为：成绩打印模板.xls），并把其Sheet1重命名为“成绩”，主要用来存放要打印的数据源（这里用科目1、2……来代替各科目名称）（图1），把Sheet2重命名为“打印用”，主要用来将科目及成绩套打在毕业生推荐表上（图2）。
在这里“成绩”这个工作表几乎不用怎么设计了，因为学生成绩数据是现成的（与数据源一样），要打印哪个班或某个学生的成绩，从现有的数据源表里筛选出来后，将其用全选（Ctrl+A）复制，然后到“成绩”
工作表里选中A1单元格，粘贴上去即可。因为在设计这个模板时，是按所有学生所学的最多科目数来设计的，只有用全选复制，粘贴到“成绩”工作表里才能覆盖原“成绩”工作表里所有的信息，打印时才不会将多余的东西打印出来。
其次，是“打印用”工作表，表格的设计及调整。主要目的是根据毕业生推荐表的要求，设计好要套打的内容，本列要套打的内容是“科目”及“成绩”两部分，其余内容为打印作辅助用。在这里设置套打问题不作说明，电子表格有选择“打印区域”功能不难做到。
二、数据引用
第一步：科目的引用
在“打印用”工作表选中B5单元格输入下面的公式：=IF(INDIRECT(ADDRESS(1,ROW($A4),,,"成绩"))&&"",INDIRECT(ADDRESS(1,ROW($A4),,,"成绩")),"")，按下Enter后，得到图1所示的第一个科目“科目1”，最后将B5单元格公式向下填充到最后B10，得到第一列科目。第二列科目开头D5单元格的公式直接把上面的公式复制过来，并把公式中的ROW($A4)改为ROW($A10)，最后将D5单元格公式向下填充到最后D10，得到第二列科目。采用同样的方法，再设置其余各列科目。
第二步：分数的引用
首先，在“打印用”工作表中的M1单元格输入“序号”、在N1单元格“姓名”，在M2单元格输入公式=IF(成绩!A2&&"",成绩!A2,"")并将其公式向下填充到M6，引用“成绩”工作表中的序号过来，在N2单元格输入公式=IF(成绩!B2&&"",成绩!B2,"")并将其公式向下填充到N6引用“成绩”工作表中的“姓名”过来。
其次，在“打印用”工作表中的G1单元格输入“序号：”，在“打印用”工作表B2单元格输入“姓名：”，在C2单元格输入公式：=INDEX($N:$N,MATCH($H$2,$M:$M,0)):INDEX($N:$N,MAX(IF(LOOKUP(ROW($N$2:$N$6),IF($M$2:$M$6&&"",ROW($M$2:$M$6)),
$M$2:$M$6)=$H$2,ROW($M$2:$M$6))))
然后按Ctrl＋Shift＋Enter组合键锁定数组公式，Excel将在公式两边自动加上大括号“{}”。注意：不要自己输入大括号。接下来还在“打印用”工作表中选中C5单元格输入下面的公式：=INDEX(成绩!D:D,SMALL(IF(ISNUMBER(FIND($C$2,成绩!$B$2:$B$6)),ROW(成绩!$A$2:$A$6),65536),ROW(1:1)))&""然后按Ctrl＋Shift＋Enter组合键锁定数组公式。即可得到C5单元格所要显示的“分数”。同理在C6单元格复制上面公式进来，并修改公式中的“成绩!D:D”为“成绩!E:E”，即可得到C6单元格所要显示的“分数”。
采用同样的方法，再设置其余各列成绩。
三、设置微调项按钮
设置微调序号的按钮，可以通过点击“微调序号”按钮，选择数据源中要打印的某个学生的成绩，让其显示在“科目及成绩”的表格中，就可以查看及打印。
设置方法：执行“视图→工具栏→窗体”，从“窗体”中，选择“微调项”，拖出一个“微调项”按钮来，如图中所示“微调序号”下方那个一样。并设置“微调项”，右键选择“微调项按钮→设置控件格式→控制”，在“控制”项下面，最小值设为1，单元格链接选择$H$2，其他为默认，按“确定”即可。
四、设置批量打印功能
在K8单元格输入“开始序号”，K9单元格输入“结束序号”，再选中L8单元格设置其“有效性”，选择菜单命令“数据→有效性→设置”，在其“设置”项下方，“充许”选择“序列”，“来源”选择=$M$2:$M$6。同理设置L9单元格“有效性”。
编写宏命令，在“打印用”工作表里，执行菜单“工具→宏→宏→宏名”，输入“批量打印”，“位置”选择“当前工作溥”，点击“创建”，把下面的代码写进去即可。
批量打印()
Application.ScreenUpdating = False
Dim a As Integer, b As Integer, i As Integer
Range("L8").Value&(说明：设置批量打印的开始序号）
Range("L9").Value&(说明：设置批量打印的结束序号）
If b &= a Then
MsgBox ("批量打印结束序号小于开始序号，请重新输入!")
For i = a To b
Range("H2").Value =
i&(说明：H2要打印的序号）
ActiveWindow.SelectedSheets.PrintOut
Application.ScreenUpdating = True
再在表格中添加一个按钮，选择菜单命令“视图→工具栏→窗体”，从“窗体”中，选择“按钮”，拖出一个“按钮”来，在“指定宏”中，选择编制的“批量打印”宏命令并确定，把“按钮”上的名称改为“批量打印”，作为批量打印的按钮，即可实现批量打印功能。应用过程中，只需改变“成绩”的工作表中数据源即可。
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。当前位置:&&
制作明信片
扫扫二维码，随身浏览文档
手机或平板扫扫即可继续访问
巧用Excel函数也能批量打印明信片
举报该文档为侵权文档。
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
推荐理由：
将文档分享至：
分享完整地址
文档地址：
粘贴到BBS或博客
flash地址：
支持嵌入FLASH地址的网站使用
html代码：
&embed src='http://jz.docin.com/DocinViewer-4.swf' width='100%' height='600' type=application/x-shockwave-flash ALLOWFULLSCREEN='true' ALLOWSCRIPTACCESS='always'&&/embed&
450px*300px480px*400px650px*490px
支持嵌入HTML代码的网站使用
您的内容已经提交成功
您所提交的内容需要审核后才能发布，请您等待！
3秒自动关闭窗口版本已更新，请到 &（此版本比较稳定，能够批量打印工作簿，批量打印工作表，批量加密，批量解密，批量转换格式）&能够打印指定的一批工作簿、工作表，对表格指定位置依次填充指定的数据然后打印。附加于 Excel 的插件
一、启动位置：
1、Excel 2003：
2、Excel 2007：
二、初始界面：
1、选择打印机：如果您需要指定非默认打印机进行本次打印作业，请在此选择。
2、打印份数：打印的份数，打印工作簿的情况下，如果重复添加了相同的，则总打印份数为重复添加的份数乘以此处的打印份数。
3、完成操作后关闭计算机：完成所有打印作业后关闭计算机，可能会使已发送到系统打印服务程序但未发送到打印机的作业被中止而无法打印，此有待改进。
4、无人守值模式：如果选中此项，程序执行时发生的错误将被忽略，需要密码打开的工作簿将被跳过。（不会在执行过程中弹出对话框）
四、打印工作簿
1、添加文件：弹出一个对话框，将选中的工作簿添加到列表（可以多选）。
2、添加目录：弹出一个对话框，程序将选中的文件夹（包括所有子文件夹）下所有工作簿添加到列表。
3、清除重复：清除列表中重复的工作簿。
4、：列表中选中的工作簿。
5、全选：将列表中所有工作簿选中，以便进行删除。
6、不选：列表中所有工作簿全部不选中。
7、反选：将列表中除预先选中项目外的所有项目选中，以便进行删除。
8、选项：弹出工作簿打印选项的对话框。
9、打印：开始打印作业。
五、工作簿打印选项
1、后台打印：在后台打印工作簿，对前台影响较少。
2、前台打印：在前台打印工作簿，影响前台操作。
3、第一个工作表：只打印工作簿中第一个工作表。
4、不含隐藏的所有工作表：打印工作簿中除隐藏工作表外的所有工作表。
5、含隐藏的所有工作表：打印工作簿中包括隐藏的所有工作表。
6、工作表：打印工作表。
7、：打印。
8、宏表：打印宏表（这个功能应该很少用到，有些多余）。
9、对话框：打印对话框（DialogSheet），同上。
六、打印工作表
1、选择工作簿：在此下拉框中列出当前 Excel 程序中的所有工作簿。选中一个工作簿时，会将其所有工作表列出在“原有工作表”的列表中。
2、刷新工作簿：刷新工作簿的条目（比如新打开的、已关闭的工作簿）。
3、“&”（添加）：将“原有工作表”列表中选中的工作表添加到“待打印工作表”列表中。
4、“&”（删除）：将“待打印工作表”列表中选的工作表删除到“原有工作表”列表中。
5、刷新工作表：刷新当前选中工作簿的工作表（比如从另外的工作簿中复制过来的、已删除的工作表）。
6、“&&”（全部添加）：将“原有工作表”列表中的所有工作表添加到“待打印工作表”列表中。
7、“&&”（全部删除）：将“待打印工作表”列表中的所有工作表删除到“原有工作表”列表中。
8、打印：开始打印作业。
1、选择目标：在 Excel 中选择需要填充的目标（需在同一工作表），选择的地址将会添加到表格第一列中，您可以选择一个区域，或者按住“Ctrl”进行多个的选择。您需要先添加目标才能对表格进行编辑。
2、粘贴数据：将系统剪贴板中的数据粘贴到表格中当前位置。您可以在 Excel 中复制单元格区域在本程序中粘贴，对于大量的数据，这个功能将非常有用。
3、删除：有删除单元格、整行、整列、全部清空。当删除单元格时，删除后单元格左移。当全部清空时，会连已添加的目标单元格一起清空。
4、对工作表进行重新计算：如果目标单元格有被其它单元格的等引用，需要更新数据时，需将此选项选中。因为考虑性能，程序在作业时会将 Excel 的“重新计算”设为手动计算。
5、着重介绍程序单元格的编辑功能：如果表格中当前行已添加了目标单元格，这时就可以对程序单元格进行编辑，和 Excel 的单元格类似。您可以试试：双击鼠标左键、键、“Esc”键、四个方向键、回车键、“TAB”键。注：在编辑状态中按“ALT+回车”可以强制换行。
八、正在作业
1、暂停：按“暂停”可以暂停当前打印作业，当变为“继续”时按下即继续当前打印作业。
2、停止：停止当前打印作业。
3、将窗口置于顶层：此项选中时，窗口将置于顶层（不会被其它窗口遮盖）。
九、操作报告和错误记录
1、操作报告：显示操作报告。
2、错误记录：显示错误记录。
3、复制：复制当前列表中选中的项目到系统剪贴板。
4、另存为：将当前列表的数据以文本文件的形式保存到指定的位置。
下载地址：
(C) 2009 Coming（郑加明） 保留所有权利
个人主页：
阅读(...) 评论()