ecel表格打印信封.docx

PAGE19

PAGE1

9

竭诚为您提供优质文档/双击可除

excel表格打印信封

篇一：如何用word+excel批量打印信封(也可打印通知书之类)

1、用excel编辑联系人地址列表，如：

邮政编码收信人地址收件人姓名收件人职务寄信人地

址

404000某某某某某某某某某某某某某某某某某某2、存

盘，退出，注意文件名不要存成book1.xls之类的，可以存成add.xls。否则会出错。

例如：

3、打开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

endifdowhileno1

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,copies:=1,_

collate:=true打印输出no1=no1+1

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

endsub

注意事项：

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

始终小于等于no