利用Excel的宏批量打印信封

1、利用Excel的宏批量打印信封Excel是一款功能强大的办公软件，而其强大的功能并不是都浮在表面上， 需要我们在日常工作中不断地应用和挖掘，才能逐渐体会其博大精深之处。在日常工作和生活中，书写信封是避免不了的，特别是文书部门，批量书写 信封更是常有的事情，Excel可以帮助我们很好地完成这些琐碎的工作。利用Excel批量打印信封大致可以分为四个步骤:一、设置打印页面进入Excel，新建一个工作簿，选定工作表“ sheetl ”。第一步：定义打印页面大小1. 测量信圭寸的实际长和宽；2在“文件”菜单下选择“页面设置”命令；3单击“选项”按钮，根据测量的实际尺寸自定义打印页面的大小。第二步：在打印

2、页面内制作打印面板通过调整行高、列宽以及在“页面设置”命令中调整页边距的数值，使邮政 编码打印在信封左上角的方框内，定义收件人地址、收件人名称和寄件人名称、 地址、邮编的打印位置（如图1所示）。A F C D E FDHIJKLMM1 0 0 0 2 8:北京市匏阳区拗芳鳶里审5号鶴i!4中国公路车辆机械总公司集团发展部余振清（收5中国益路车辆机械总參司1地址北京市鬧阳区割芳南里甲吕号犊17鉛编：100028图1打印页面注意事项：1邮政编码被分为六个单独的数字分别放在 A1F1六个单元格中；2为了便于在打印过程中不断变换打印内容，将收件人地址、收件人名称和寄件人名称、地址、邮编分别放置在单元格

3、A3 A4 H5 H6 H7中，为了保证收件人名称位于信封的居中位置，利用 Excel的“合并及居中”功能，使单元格 A4N4的格式为跨列居中。二、输入打印内容选定工作表“ sheet2 ” ,根据打印内容建立如下表格，为了与“ sheetl ”中 邮政编码的格式保持一致，邮政编码同样被分为六个单独的数字分别放入 AF 六列的单元格中，并根据格式要求在表格中逐行输入待打印的内容， （如图2） A B C r- E FGHIJK1it|我停人痔件人孵2tG0026串国圧站辛谄口 （申漓益路辛STBdin戎耳方*：Wr 10002S10O028申通至稠机!杠申通车轉啤I釀気! 0602910002

4、E茸嬢.10003010002g摘血?地北聽茴月晖醮1刚3】0028北冠远理汽年小北索运嚼厲车回韭，乃氛？I*呻 WO旳/8?LETH12图2打印内容三、建立宏所建立的宏主要要做两个步骤的工作，一是将工作表“sheet2 ”中的内容逐行调入工作表“sheetl ”的打印面板中；二是通过打印机将设定内容打印出 来。宏的工作方式是调入一条内容打印一个信圭寸，循环工作，直至将“sheet2 ”中的内容打印完毕。根据上述分析，从“工具”菜单中选择“宏”命令，进入Visual Basic 编辑器，编写一个名为“打印”的宏（此宏在实际工作中经过验证，运行正常）， 其代码如下：Sub 打印()Dim no1

5、 As In tegerSheets(Sheet1).Select 进入打印页面no1 = 1no2 = InputBox( 请输入打印内容行数： , 对话框 , 1)If no2 = Then 如果在对话框中选择了取消按钮，则终止宏！Exit SubEnd IfDo While no1 = no2Range(a1:f1).Value =Sheets(sheet2).Range(a +Trim(Str(no1 + 1) _+ : + f + Trim(Str(no1 + 1).Value 更新邮政编码 Range(a3).Value = Sheets(sheet2).Range _(g + T

6、rim(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

7、 _(k + Trim(Str(no1 + 1).Value 更新寄件人邮编 ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1,Copies:=1, _Collate:=True 打印输出no1 = no1 + 1MsgBox 请放入新的信封后按任意键继续！ , 48, 暂停提示 LoopEnd Sub注意事项：1.在宏中引入了两个变量“no1”和“no2” ,其中“no1”是一个计数器(no1始终小于等于no2）,“no2”是通过对话框接收的一个数值，用户根据需要打印的信圭寸个数（即工作表“ sheet2 ”中打印内容的行数）输入这个数值

8、，宏通过 这个数值确定循环次数。2对于具有自动上纸功能的激光打印机和喷墨打印机，贝冋以删除起暂停作 用的语句：MsgBox 请放入新的信封后按任意键继续！ , 48,暂停提示。四、运行宏运行宏一般可使用下列两种方式：使用宏对话框运行宏步执行|1萤错勒|述 |殆菅打齐的工柞茸T腑型 I说明_则如 J使用宏对话框运行宏可分为三个步骤：1从工具菜单的宏选项中选择“宏”弹出宏对话框；2从宏名列表中选择“打印”（如图 3）;3用鼠标左键单击“执行”按钮。这是运行宏最普通的方式，具有简单、直观、易于掌握的优点。运用自定义工具栏按钮作为宏的载体。运用自定义工具栏按钮作为宏的载体，可通过以下步骤来实现：将鼠标

9、指针指向任何显示的工具栏，单击右键，在出现的快捷菜单中选择“自 定义”选项，弹出自定义窗口；从自定义窗口中选择“命令”页面；在命令页面的“类别”列表中选择“宏”，将“命令”列表中出现的自定义 按钮拖曳到工具栏上；用鼠标右键单击工具栏上的自定义按钮，从弹出的“指定宏”窗口列表中选 择宏“打印”，最后单击“确定”按钮。若要打印信封单击工具栏上的自定义按钮即可。利用Excel批量打印信封，具有许多优点：有助于减轻工作人员的劳动强 度；有助于提高工作质量，减少错误；一旦打印内容输入完毕可以反复利用， 有助于提高工作效率；打印信封的批量越大越能显示其优越性。实际上利用Excel可以完成所有具有固定打印面

10、板的工作，比如批量打印聘书、打印奖状，批量打印明信片、打印工资表，批量打印养老统筹的个人帐户清 单等等，运用上面的方法，只需稍加改动，即可完成许多工作，大家不妨试试。巧用宏快速合并200个Excel工作簿你会不会有大量Excel工作簿需要合并到一起呢？你可以手动完成这一工 作，但这个工作可能会花费你一整天的时间。要完成合并工作，最好使用宏，这 样只需花几分钟便可搞定。本文所介绍的技巧将向你说明如何创建这样一个宏， 看看如何使用宏来节省你的宝贵时间。（本技巧可应用于Microsoft Excel 97、E xcel 2000、Excel 2002、和 Excel 2003。）在合并数个工作簿时遇

11、到问题。工作簿总数约有200,保存在同一文件夹中， 其中大多数工作簿中只包含一个单独的工作表，但有些工作簿包含多个工作表。 这些工作簿中的工作表需要被添加到一个新的工作簿中。合并数量如此巨大的工作簿的最简单方法一一如果经常要这样做的话一一 是使用宏。下面的宏会显示一个对话框，提示你选择要合并的文件。（你可以通过按下Ctrl键单击的方法选择多个工作簿。）它会使用代码在你所选的工作簿列 表中循环，打开每个工作簿并将其中的工作表移动到工作簿的末尾。Sub CojtibineWorkbooks ()Dim FiiesTaOpenDim x As IntegerOn Error GoTo ErrHand

12、lerApplication, ScreenUpdatins = FalseFilesToOpen = Application GetOpenFilprLame 十(Fil&Filt er: = h IticroSoft Excel文件(*,:*. xls,Mult iSelect:-True, Title：-1 要舍弄的文件)If TypeNajne(FileToOpen)二Boolean ThenNlsgEox 没有选中旻件GoTo EnitHaridlerEnd Ifx = 1While x wl11121314151617专业技术人员计算机筹圾考试 准考证 灶左:向德海MWj中圾枷血h

13、 f1D40700210361百伶证晋：4224DOXX081672 工杵羊宦：布人事考试中心 音试地如列门市人車孝试中心五撲 禽试时间,20讽年5月新日g时才生注汕U凭准专证和身帶证谨入考场.2. 专生应自芟龍有智场疋蒲应钿可舞带购刼酹昱具他愉品不得帘入冷场.G18J丄19打印第1页至第6 35_20序号蛀名 级別机僮号港考证号Off? 工作单位211 ftaa 中st 11040700210361 422400X)1)016 人希试中心执行 工具宏Visul Basic编辑器”命令，在Visul Basic编辑器中选择 插入添加模块”，在代码窗口 输入以下代码：Sub打印()ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=TrueCall dyEnd SubSub dy()Dim a%, b$, c$, abc$a = Sheets(Sheet2).Cells(19, 2).Valueb = Sheets(Sheet2).Cells(19, 4).Value(说明：a即B19单元格，是图5中打印第X页至第须中的起始页，b即D19单元格，是终止页。)If a b Then a = a + 1Sheets(Sheet2).Cells(19, 2).Value =