查看: 2490|回复: 10
请教，将数据打印成信封！！！
阅读权限10
在线时间 小时
你好，我想请教一下各位大侠。
我有一份学校名单，需要寄资料给各个学校的校长，要怎么样才能按信封的形式打印出来呢？
在百度上搜了一个用什么邮件合并，可是失败了……
阅读权限50
在线时间 小时
word创建一个信封大小的模板，然后将需要填的内容用excel导入，邮件合并，then将信封放到打印机套打就行了
阅读权限10
在线时间 小时
能否提供详细步骤啊
阅读权限10
在线时间 小时
邮编& & & & 学校名称& & & & 地址& & & & 收信人
350001& & & & 旗汛口幼儿园& & & & 井大路19号& & & & 校长收
350001& & & & 花巷幼儿园& & & & 鼓楼宫巷30号& & & & 校长收
350001& & & & 温泉幼儿园& & & & 温泉支路34号& & & & 校长收
350001& & & & 教工幼儿园& & & & 鼓西路孙老营24号& & & & 校长收
350001& & & & 小柳幼儿园& & & & 道山西路小柳新村14座& & & & 校长收
350001& & & & 黎明集团幼儿园& & & & 乌山西路126号& & & & 校长收
350001& & & & 东湖幼儿园& & & & 东湖新村内& & & & 校长收
350002& & & & 西郊幼儿园& & & & 西洪路443号& & & & 校长收
内容基本是这样的，要打印出来
阅读权限10
在线时间 小时
wajour 发表于
word创建一个信封大小的模板，然后将需要填的内容用excel导入，邮件合并，then将信封放到打印机套打就行了
你好，在吗？能教我详细步骤吗？
阅读权限50
在线时间 小时
word里A4纸打印出来
切成纸条贴上去
阅读权限10
在线时间 小时
& & & & & & & &
你可以在优酷找视频指导学习下。不是很难。你这个正好可以用邮件合并功能。
阅读权限10
在线时间 小时
wajour 发表于
word里A4纸打印出来
切成纸条贴上去
如果只有这几条我就直接做好了贴，问题是有7700多条，汗啊！
阅读权限50
在线时间 小时
那只有用套打了
阅读权限10
在线时间 小时
梦月幻日 发表于
你可以在优酷找视频指导学习下。不是很难。你这个正好可以用邮件合并功能。
谢谢，找到了
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师利用Excel批量打印信封
我的图书馆
利用Excel批量打印信封
Excel97是一款功能强大的办公软件，而其强大的功能并不是都浮在表面上，需要我们在日常工作中不断地应用和挖掘，才能逐渐体会其博大精深之处。在日常工作和生活中，书写信封是避免不了的，特别是文书部门，批量书写信封更是常有的事情，Excel97可以帮助我们很好地完成这些琐碎的工作。利用Excel97批量打印信封大致可以分为四个步骤：一、设置打印页面进入Excel97，新建一个工作簿，选定工作表“sheet1”。第一步：定义打印页面大小⒈测量信封的实际长和宽；⒉在“文件”菜单下选择“页面设置”命令；⒊单击“选项”按钮，根据测量的实际尺寸自定义打印页面的大小。第二步：在打印页面内制作打印面板通过调整行高、列宽以及在“页面设置”命令中调整页边距的数值，使邮政编码打印在信封左上角的方框内，定义收件人地址、收件人名称和寄件人名称、地址、邮编的打印位置（如图1所示）。
图1 打印页面
注意事项：⒈邮政编码被分为六个单独的数字分别放在A1～F1六个单元格中；⒉为了便于在打印过程中不断变换打印内容，将收件人地址、收件人名称和寄件人名称、地址、邮编分别放置在单元格A3、A4、H5、H6、H7中，为了保证收件人名称位于信封的居中位置，利用Excel97的“合并及居中”功能，使单元格A4～N4的格式为跨列居中。二、输入打印内容选定工作表“sheet2”,根据打印内容建立如下表格，为了与“sheet1”中邮政编码的格式保持一致，邮政编码同样被分为六个单独的数字分别放入A～F六列的单元格中，并根据格式要求在表格中逐行输入待打印的内容，（如图2）。
图2 打印内容
三、建立宏& & 所建立的宏主要要做两个步骤的工作，一是将工作表“sheet2”中的内容逐行调入工作表“sheet1”的打印面板中；二是通过打印机将设定内容打印出来。宏的工作方式是调入一条内容打印一个信封，循环工作，直至将“sheet2”中的内容打印完毕。根据上述分析，从“工具”菜单中选择“宏”命令，进入Visual Basic编辑器，编写一个名为“打印”的宏（此宏在实际工作中经过验证，运行正常），其代码如下：Sub 打印()& & Dim no1 As Integer& & Sheets("Sheet1").Select '进入打印页面& & no1 = 1& & no2 = InputBox("请输入打印内容行数：", "对话框", 1)& & If no2 = "" Then '如果在对话框中选择了取消按钮，则终止宏！& && & Exit Sub& & End If& & Do While no1 &= 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 '更新收件人地址& && & 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.PrintOut From:=1, To:=1, Copies:=1, _& && & Collate:=True '打印输出& && & no1 = no1 + 1& && & MsgBox "请放入新的信封后按任意键继续！", 48, "暂停提示"& & LoopEnd Sub注意事项：⒈在宏中引入了两个变量“no1”和“no2”，其中“no1”是一个计数器（no1始终小于等于no2），“no2”是通过对话框接收的一个数值，用户根据需要打印的信封个数（即工作表“sheet2”中打印内容的行数）输入这个数值，宏通过这个数值确定循环次数。⒉对于具有自动上纸功能的激光打印机和喷墨打印机，则可以删除起暂停作用的语句：MsgBox "请放入新的信封后按任意键继续！", 48, "暂停提示"。四、运行宏运行宏一般可使用下列两种方式：㈠使用宏对话框运行宏
使用宏对话框运行宏可分为三个步骤：⒈从工具菜单的宏选项中选择“宏”弹出宏对话框；⒉从宏名列表中选择“打印”（如图3）；⒊用鼠标左键单击“执行”按钮。这是运行宏最普通的方式，具有简单、直观、易于掌握的优点。㈡运用自定义工具栏按钮作为宏的载体。运用自定义工具栏按钮作为宏的载体，可通过以下步骤来实现：将鼠标指针指向任何显示的工具栏，单击右键，在出现的快捷菜单中选择“自定义”选项，弹出自定义窗口；从自定义窗口中选择“命令”页面；在命令页面的“类别”列表中选择“宏”，将“命令”列表中出现的自定义按钮拖曳到工具栏上；用鼠标右键单击工具栏上的自定义按钮，从弹出的“指定宏”窗口列表中选择宏“打印”，最后单击“确定”按钮。若要打印信封单击工具栏上的自定义按钮即可。利用Excel97批量打印信封，具有许多优点：①有助于减轻工作人员的劳动强度；②有助于提高工作质量，减少错误；③一旦打印内容输入完毕可以反复利用，有助于提高工作效率；④打印信封的批量越大越能显示其优越性。实际上利用Excel97可以完成所有具有固定打印面板的工作，比如批量打印聘书、打印奖状，批量打印明信片、打印工资表，批量打印养老统筹的个人帐户清单等等，运用上面的方法，只需稍加改动，即可完成许多工作，大家不妨试试。
发表评论：
馆藏&19327
TA的最新馆藏}