利用Excel的宏批量打印信封.doc

《利用Excel的宏批量打印信封.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

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

2、置”命令；  ⒊单击“选项”按钮，根据测量的实际尺寸自定义打印页面的大小。  第二步：在打印页面内制作打印面板  通过调整行高、列宽以及在“页面设置”命令中调整页边距的数值，使邮政编码打印在信封左上角的方框内，定义收件人地址、收件人名称和寄件人名称、地址、邮编的打印位置（如图1所示）。  图1打印页面  注意事项：  ⒈邮政编码被分为六个单独的数字分别放在A1～F1六个单元格中；  ⒉为了便于在打印过程中不断变换打印内容，将收件人地址、收件人名称和寄件人名称、地址、邮编分别放置在单元格A3、A4、H5、H6、H7中，为了保证收件

3、人名称位于信封的居中位置，利用Excel的“合并及居中”功能，使单元格A4～N4的格式为跨列居中。  二、输入打印内容  选定工作表“sheet2”,根据打印内容建立如下表格，为了与“sheet1”中邮政编码的格式保持一致，邮政编码同样被分为六个单独的数字分别放入A～F六列的单元格中，并根据格式要求在表格中逐行输入待打印的内容，（如图2）。  图2打印内容三、建立宏     所建立的宏主要要做两个步骤的工作，一是将工作表“sheet2”中的内容逐行调入工作表“sheet1”的打印面板中；二是通过打印机将设定内容打印出来。宏的工作

4、方式是调入一条内容打印一个信封，循环工作，直至将“sheet2”中的内容打印完毕。  根据上述分析，从“工具”菜单中选择“宏”命令，进入VisualBasic编辑器，编写一个名为“打印”的宏（此宏在实际工作中经过验证，运行正常），其代码如下：  Sub打印()     Dimno1AsInteger     Sheets("Sheet1").Select'进入打印页面     no1=1     no2=InputBox("请输入打印内容行数：","对话框",1)     Ifno2=""Then'如果在对话框中选择了取消按钮，

5、则终止宏！        ExitSub     EndIf     DoWhileno1<=no2        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'更新收件人地址    

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

7、'更新寄件人地址        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  En

8、dSub  注意事项：  ⒈在宏中引入了两个变量“no1”和“no2”，其中“no1”是一个计数器（no1始终小于等于no2），“no2”是通过对话框接收的一个数值，用户根据需要打印的信封个数（即工作表“sheet2”中打印内容的行数）输入这个数值，宏通过这个数