基于VBA語言實現(xiàn)在宅基地調(diào)查登記成果的批量打印

呂永杰 趙喜亮

摘要：宅基地調(diào)查登記成果中的文檔和圖形文件數(shù)據(jù)量巨大，如何利用VBA語言批量打印，減少漏打、重打和錯打問題，提高工作效率和質(zhì)量，是本文重點研究的內(nèi)容。本文結(jié)合批量打印實例，利用VBA語言實現(xiàn)了批量打印，提出了可行性方案。

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.

關(guān)鍵詞：宅基地調(diào)查登記成果;VBA;批量打印

Key words： homestead survey registration results;VBA;batch printing

中圖分類號：P271? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 文獻(xiàn)標(biāo)識碼：A? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 文章編號：1006-4311（2020）02-0277-03

0? 引言

農(nóng)村宅基地使用權(quán)及其地上房屋調(diào)查及確權(quán)登記發(fā)證工作是一項基礎(chǔ)、復(fù)雜、成果量巨大的一項工作，涉及到的文檔和圖形是巨大的。VBA作為一種宏語言，可以實現(xiàn)通過Microsoft Office軟件和CAD計算機(jī)輔助設(shè)計軟件進(jìn)行批量打印，可以極大的提高打印調(diào)查登記成果的效率。

1? 宅基地調(diào)查登記成果的內(nèi)容

宅基地調(diào)查登記的工作任務(wù)是，全面查清宅基地使用權(quán)狀況，以及地上房屋的權(quán)屬關(guān)系、界址情況、位置、面積、用途等，依據(jù)權(quán)利人申請，對符合發(fā)證條件的宗地進(jìn)行確權(quán)登記發(fā)證。結(jié)合宅基地調(diào)查結(jié)果以及土地地類和權(quán)屬情況建立調(diào)查卷數(shù)據(jù)庫和產(chǎn)權(quán)產(chǎn)籍管理系統(tǒng)。

成果包括：

①房屋測繪成果包括封面、房產(chǎn)面積測算成果表及附圖、分丘圖、分層分戶平面圖、房屋建筑情況統(tǒng)計表及附圖，分丘圖的比例尺，根據(jù)面積的大小，在1：100～1：1000之間選用。分戶圖的比例尺一般為1：200，當(dāng)房屋圖形過大或過小時，比例尺可適當(dāng)放大或縮小。

②地籍測繪資料包括地籍測繪資料封面及技術(shù)說明、解析界址點成果表、宗地草圖、宗地圖、不動產(chǎn)登記申請書、農(nóng)村集體土地使用權(quán)及其地上房屋測量技術(shù)說明、查詢證明。權(quán)利人名稱采用全稱，封面加蓋測繪部門資料專用章。宗地草圖為宗地圖的縮略圖，當(dāng)宗地圖打印尺寸大于標(biāo)準(zhǔn)A4紙張時，需要制作標(biāo)準(zhǔn)A4紙張大小的宗地圖的縮略圖即宗地草圖，否則不需要制作宗地草圖。宗地圖的比例尺，根據(jù)面積的大小在1：100-1：2000之間選擇，一般為1：500。

2? 批量打印

批量打印是文檔或者圖形數(shù)據(jù)量較大時，手工打印已不能滿足需求，可以利用VBA語言實現(xiàn)批量打印，可以大幅提高工作效率，減少勞動強(qiáng)度。

在地籍調(diào)查登記成果中主要可以分成兩類，一類是文檔型成果，如：房屋測繪成果封面、房產(chǎn)面積測算成果表;地籍測繪資料封面、解析界址點成果表、登記不動產(chǎn)登記申請書、農(nóng)村集體土地使用權(quán)及其地上房屋測量技術(shù)說明、查詢證明等。這些可以通過VBA運(yùn)用到office中實現(xiàn)批量打印。另一類是圖形成果，如：房產(chǎn)面積測算成果表及附圖、分丘圖、分層分戶平面圖、房屋建筑情況統(tǒng)計表及附圖、宗地草圖、宗地圖等。這些也可以通過VBA語言實現(xiàn)圖形的批量打印。

VBA（Visual Basic for Applications）是Visual Basic的一種宏語言，是在其桌面應(yīng)用程序中執(zhí)行通用的自動化（OLE）任務(wù)的編程語言。

針對文檔型的技術(shù)說明及表格，可以利用VBA通過Microsoft Office實現(xiàn)批量打印，具體實例可以通過以下程序?qū)崿F(xiàn)。

2.1 如打印測量報告

Sub測量報告（）

Dim strPath As String

Dim Message， Title， Default As String

Message = "輸入宗地文件夾所在路徑，必須有txt文件"? ? ' 設(shè)置提示信息。

Title = "地址輸入框"? ? ' 設(shè)置標(biāo)題。

Default = "1"? ? ' 設(shè)置缺省值。

' 顯示信息、標(biāo)題及缺省值。

strPath = InputBox（Message， Title， Default）

Close #1