基于VBA语言实现在宅基地调查登记成果的批量打印
2020-02-03吕永杰赵喜亮
吕永杰 赵喜亮
摘要：宅基地调查登记成果中的文档和图形文件数据量巨大，如何利用VBA语言批量打印，减少漏打、重打和错打问题，提高工作效率和质量，是本文重点研究的内容。本文结合批量打印实例，利用VBA语言实现了批量打印，提出了可行性方案。
Abstract： The data volume of documents and graphic files in the registration results of homestead surveys is huge. How to use VBA language to print in batches to reduce missed， repeated and mistyped printing problems， and improve work efficiency and quality is the focus of this article. This article combines batch printing examples and uses VBA language to realize batch printing， and proposes a feasible solution.
关键词：宅基地调查登记成果;VBA;批量打印
Key words： homestead survey registration results;VBA;batch printing
中图分类号：P271 文献标识码：A 文章编号：1006-4311（2020）02-0277-03
0 引言
农村宅基地使用权及其地上房屋调查及确权登记发证工作是一项基础、复杂、成果量巨大的一项工作，涉及到的文档和图形是巨大的。VBA作为一种宏语言，可以实现通过Microsoft Office软件和CAD计算机辅助设计软件进行批量打印，可以极大的提高打印调查登记成果的效率。
1 宅基地调查登记成果的内容
宅基地调查登记的工作任务是，全面查清宅基地使用权状况，以及地上房屋的权属关系、界址情况、位置、面积、用途等，依据权利人申请，对符合发证条件的宗地进行确权登记发证。结合宅基地调查结果以及土地地类和权属情况建立调查卷数据库和产权产籍管理系统。
成果包括：
①房屋测绘成果包括封面、房产面积测算成果表及附图、分丘图、分层分户平面图、房屋建筑情况统计表及附图，分丘图的比例尺，根据面积的大小，在1：100～1：1000之间选用。分户图的比例尺一般为1：200，当房屋图形过大或过小时，比例尺可适当放大或缩小。
②地籍测绘资料包括地籍测绘资料封面及技术说明、解析界址点成果表、宗地草图、宗地图、不动产登记申请书、农村集体土地使用权及其地上房屋测量技术说明、查询证明。权利人名称采用全称，封面加盖测绘部门资料专用章。宗地草图为宗地图的缩略图，当宗地图打印尺寸大于标准A4纸张时，需要制作标准A4纸张大小的宗地图的缩略图即宗地草图，否则不需要制作宗地草图。宗地图的比例尺，根据面积的大小在1：100-1：2000之间选择，一般为1：500。
2 批量打印
批量打印是文档或者图形数据量较大时，手工打印已不能满足需求，可以利用VBA语言实现批量打印，可以大幅提高工作效率，减少劳动强度。
在地籍调查登记成果中主要可以分成两类，一类是文档型成果，如：房屋测绘成果封面、房产面积测算成果表;地籍测绘资料封面、解析界址点成果表、登记不动产登记申请书、农村集体土地使用权及其地上房屋测量技术说明、查询证明等。这些可以通过VBA运用到office中实现批量打印。另一类是图形成果，如：房产面积测算成果表及附图、分丘图、分层分户平面图、房屋建筑情况统计表及附图、宗地草图、宗地图等。这些也可以通过VBA语言实现图形的批量打印。
VBA（Visual Basic for Applications）是Visual Basic的一种宏语言，是在其桌面应用程序中执行通用的自动化（OLE）任务的编程语言。
针对文档型的技术说明及表格，可以利用VBA通过Microsoft Office实现批量打印，具体实例可以通过以下程序实现。
2.1 如打印测量报告
Sub测量报告（）
Dim strPath As String
Dim Message， Title， Default As String
Message = "输入宗地文件夹所在路径，必须有txt文件" ' 设置提示信息。
Title = "地址输入框" ' 设置标题。
Default = "1" ' 设置缺省值。
' 顯示信息、标题及缺省值。
strPath = InputBox（Message， Title， Default）
Close #1
