摘要：信息时代的到来，计算机作为主要传送和处理信息的工具，将影响到人们生活的方方面面，改善办公环境中常见的打印事务，是提高办事效率和教学效果的有效途径。 关键词：模板分页；印制；方法
中图分类号：TP39 文献标志码：A 文章编号：1674-9324（2012）03-0173-02
模板分页印制，即以固定打印件格式，实现不同内容填充的印制方法。根据份数的不同，可以分为单页和批量印制两种。在办公环境中利用此种方法可以提高工作效率，诸如各种费用单据、荣誉证、毕业证书等。这里谈谈模板分页批量印制方法的实现。
一、Word中邮件合并方式实现模板分页印制
1.Excel中完成数据准备。按照数据源选取有效的填充要件，以学生毕业证书为例，在Excel中直接从有效的出生日期或身份证号中运用mid、rightb、concatenate函数获取对应的月、日、年份数据。
2.在Word中完成毕业证书格式的设置。①设定页面大小，按照给定的作业纸张大小，选择文件菜单中页面设置，选择自定义纸张类型，设定毕业证书的长、宽及页边距。②控制版面格式，选择格式菜单中分栏中两栏格式，设定栏间距，并将光标移到第二栏开始位置。③填充所需内容，其一，直接填空法，在需要打印的位置输入内容；其二，输入所有的字符，并设定待打印件字符色为背景色。④保存设置好的毕业证版式，在文件菜单中选择保存，将设定好的毕业证书版式保存为模板类型。
3.实现模板分页印制的方法：在Word环境中打开已设定模板，选择“工具”的邮件合并，在“邮件合并”中选定主文档中的分类项，并设定为主文档；在数据源中选择设置好的Excel文件，且数据源放在sheet1工作表中，工作表中不能有除合并域以外的其他表头；从工具栏中直接将域拖动到对应的位置；选择工具栏中的合并选项，合并所有的域，即完成内容的分页式，打印即完成模板分页打印操作。
4.主要优缺点。邮件合并的速度快，能按既定的模式快速完成打印操作，但占用的内存空间相对较多，在打印位置的定位上不够精细，可重用性较差，相对固定的格式，批量打印新的内容时必须重新合并。
二、Visual FoxPro中报表方式实现模板分页印制
1.利用Excel完成数据准备。选用Excel电子表格软件，准备好模板打印的相关数据，打开Visual FoxPro 6.0，选择“文件”导入功能，生成.dbf文件，此步操作中需注意数字型字段的获取。
2.设计报表，实现模板分页印制。打开已准备好的数据源表，选择“文件”中的新建报表，单击“报表”中的快速报表，将所有的字段添加到报表中；根据待打印原件的具体实际删减无关的选项，并进行字段间距、字符等设置，对于纸张项可不作要求，但必须保证其内容与待打印件的位置保持一致；打印预览后可根据情况适当调整，通过上翻页与下翻页查看效果，借助软件本身的打印功能实现模板分页印制。
3.主要优缺点。Visual FoxPro中的模板分页印制报表未经集成、编译，必须借助于Visual FoxPro环境才能正常运行。主要优点：借助于本身的打印功能，不需要编程处理，数据准备借助原数据项完成数据导入即可，报表设计相对简单，字段值定位相对精细，而且连续使用时只需按照既定格式准备数据，不需作报表的重新设计。
三、利用宏中的Visual Basic编辑器实现模板分页印制
1.按1.1方法在Excel中完成数据准备。
2.设计程序，实现模板分页印制。前两者实现模板分页印制的原理相同，即准备数据、设计版式、预览效果并依赖软件本身的打印功能打印全部页或部分页。而基于宏中Visual Basic编辑器则是准备数据、设计版式、设计程序确定打印范围，根据范围进行分页印制，其中的打印功能不再依赖于软件本身。①确定版面，排版格式。在Excel数据准备的环境中新建空工作表，按照待打印项的要求自定义纸张的大小，页边距等数据项，同时准备可变数据项和固定数据项，其中可变数据项单元格进行重新命名，并尽量与数据源中提供的表名栏保持一致，进行整体的排版与布置，要求与待打印纸张的填充项位置一致。②设计程序，实现模板分页印制功能，在Excel中选择工具菜单宏中的Visual Basic编辑器，自定义窗体、设计窗体界面，完成功能设计，其核心程序打印功能核心模块是基于do……while的循环打印：Do；Range（“姓名”）=Sheets（“数据”）.Cells（hang，3）.Value；Range（“性别”）=Sheets（“数据”）.Cells（hang，4）.Value；Range（“年”）=Sheets（“数据”）.Cells（hang，7）.Value；Range（“月”）=Sheets（“数据”）.Cells（hang，8）.Value；Range（“日”）=Sheets（“数据”）.Cells（hang，9）.Value；Range（“所学专业”）=Sheets（“数据”）.Cells（hang，6）.Value；Range（“毕业编号”）=Sheets（“数据”）.Cells（hang，1）.Value；Hong=True；Sheets（“毕业证”）.PrintOut；row=row+1；Loop While Sheets（“数据”）.Cells（hang，1）.Value<>“”And row