excel,批量打印模板

竭诚为您提供优质文档/双击可除excel,批量打印模板

篇一：用word和excel批量打印技巧

用word和excel批量打印技巧

20xx-09-08

woRd邮件合并打印excel数据制作大量奖证、奖状、准考证、成绩单、明信片、信封等个人报表

在学校工作，难免会遇到各种证书打印。有很多证书是同类的，比如运行会的奖证，三好学生等等。这不全县三教征文结果出来了，一看550人的庞大队伍，这要是写或者人工排版，不定要划好长时间，对我这样的懒人来说宁肯划一天时间来研究一下偷懒的办法来完成半天的工作的，好在这次划的时间并没那么久，欣喜之余拿出来分享一下！

设计思路：建立两个文件一个excel电子表格存放姓名和获奖等次等信息，一个woRd文件作为证书样版调用电子表格中的姓名和获奖信息，保持打印的格式一致！

采用的方法：woRd的邮件合并功能

实施步骤：

1、创建电子表格，因为我的电子表格是从长阳教育网下载的结果公示，已包含了获奖者的姓名、论文题目以及获奖等次等信息，因为要调用，标题以及不规范的非获奖记录行都要删除整理一下如图所示。

以上只列出了sheet1工作表部分名单，在整理过程中要删除空白行或无意义的行，以免出错！以上文件整理好以后以book1为名保存到桌面备用。

2、打开woRd20xx文字处理软件（2000版可能有所不一样），在“工具”菜单中选择----“信函与邮件”菜单----“邮件合并”

3、出现邮件合并向导：

选择右边向导中的“信函”复选框，下一步“正在启动文档”----默认的“当前文档”----下一步“选取候选人”----默认“使用现有列表”----下一步：“撰写信件”，到这里一直是下一步，到了这里，要选取数据源了，出来一个浏览窗口。

找到桌面上这个备用的电子表格文件，“打开”：

因为我们整理的数据在工作表1中，所以就选择第一个表：

选择表1所，我们要打印的数据出来了，“全选”后确定。这个数据表就可以使用了，下面接着讲如何安排这些数

据到woRd中。

4、设计wRod中的格式：

接上面，点选数据源以后，继续下一步“撰写邮件”，这时是在woRd中编辑，有的文字是固定的，我们可以直接打上去，有的是变化的，比如姓名和论文题目，是要打一张变一个的，就要用到右边的“其他项目”插进去。

点击其他项目插入姓名、论文题目和获奖等次变量：

选择姓名，点插入，文中就出现了一个带符号的>，“获奖证书”这几个字是固定的，就直接打上去，继续插入>、>和中间固定的串词：

篇二：利用excel的宏批量打印信封

利用excel的宏批量打印信封

excel是一款功能强大的办公软件，而其强大的功能并不是都浮在表面上，需要我们在日常工作中不断地应用和挖掘，才能逐渐体会其博大精深之处。在日常工作和生活中，书写信封是避免不了的，特别是文书部门，批量书写信封更是常有的事情，excel可以帮助我们很好地完成这些琐碎的工作。利用excel批量打印信封大致可以分为四个步骤：

一、设置打印页面

进入excel，新建一个工作簿，选定工作表“sheet1”。

第一步：定义打印页面大小

⒈测量信封的实际长和宽；

⒉在“文件”菜单下选择“页面设置”命令；

⒊单击“选项”按钮，根据测量的实际尺寸自定义打印页面的大小。第二步：在打印页面内制作打印面板通过调整行高、列宽以及在“页面设置”命令中调整页边距的数值，使邮政编码打印在信封左上角的方框内，定义收件人地址、收件人名称和寄件人名称、地址、邮编的打印位置（如图1所示）。

图1打印页面

注意事项：

⒈邮政编码被分为六个单独的数字分别放在a1～F1六个单元格中；

⒉为了便于在打印过程中不断变换打印内容，将收件人地址、收件人名称和寄件人名称、地址、邮编分别放置在单元格a3、a4、h5、h6、h7中，为了保证收件人名称位于信封的居中位置，利用excel的“合并及居中”功能，使单元格a4～n4的格式为跨列居中。

二、输入打印内容

选定工作表“sheet2”,根据打印内容建立如下表格，为了与“sheet1”中邮政编码的格式保持一致，邮政编码同样被分为六个单独的数字分别放入a～F六列的单元格中，并根据格式要求在表格中逐行输入待打印的内容，（如图2）。

图2打印内容

三、建立宏

所建立的宏主要要做两个步骤的工作，一是将工作表“sheet2”中的内容逐行调入工作表“sheet1”的打印面板中；二是通过打印机将设定内容打印出来。宏的工作方式是调入一条内容打印一个信封，循环工作，直至将“sheet2”中的内容打印完毕。

根据上述分析，从“工具”菜单中选择“宏”命令，进入Visualbasic编辑器，编写一个名为“打印”的宏（此宏在实际工作中经过验证，运行正常），其代码如下：sub打印()

dimno1asinteger

sheets("sheet1").select进入打印页面

no1=1

no2=inputbox("请输入打印内容行数：","对话框",1) ifno2=""then如果在对话框中选择了取消按钮，则终止宏！exitsub

endif

dowhileno1

Range("a1:f1").Value=sheets("sheet2").Range("a"+ trim(str(no1+1))_

+":"+"f"+trim(str(no1+1))).Value更新邮政编码Range("a3").Value=sheets("sheet2").Range_

("g"+trim(str(no1+1))).Value更新收件人地址

Range("a4").Value=sheets("sheet2").Range_

("h"+trim(str(no1+1))).Value更新收件人名称

Range("h5").Value=sheets("sheet2").Range_

("i"+trim(str(no1+1))).Value更新寄件人名称

Range("h6").Value=sheets("sheet2").Range_

("j"+trim(str(no1+1))).Value更新寄件人地址

Range("h7").Value=sheets("sheet2").Range_

("k"+trim(str(no1+1))).Value更新寄件人邮编

activewindow.selectedsheets.printoutFrom:=1,to:=1,c opies:=1,_

collate:=true打印输出

no1=no1+1

msgbox"请放入新的信封后按任意键继续！",48,"暂停提示"loop

endsub

注意事项：

⒈在宏中引入了两个变量“no1”和“no2”，其中“no1”是一个计数器（no1

始终小于等于no2），“no2”是通过对话框接收的一个数值，用户根据需要打印的信封个数（即工作表“sheet2”中