利用驱动页---批量输出宗地图

1，添加底图--模板《a4》纵向

2修改动态文本 宗地代码：<dyn type="page" property=“djh”"/>

                           土地权利人：<dyn type="page" property="QLR"/>

                         所在图幅号：<dyn type="page" property="SZTF"/>

                       宗地面积：<dyn type="page" property="Shape_Area"/>

3标注： 宗地：Function FindLabel ([DJH], [QLR])   
if ([QLR] = "" or isnull([QLR])) then FindLabel =Right([DJH],7)
if (len([QLR])>3) then FindLabel = "<UND>"& [QLR] &"</UND>"&chr(13)&chr(10)& Right([DJH],7)
if (len([QLR])<=3) then FindLabel = "<UND>_"& [QLR] &"_</UND>"&chr(13)&chr(10)& Right([DJH],7)
End Function

面状居民地：Function FindLabel ([FWJG],[FWCS])
dim b
dim a
a = [FWCS]
b = [FWJG]
Select Case b
      Case "1"
           b = "钢"
      Case "2"
           b = "混合"
      Case "3"
           b = "砼"
      Case "4"
           b = "混"
      Case "5"
           b = "砖"
      Case "6"
           b = "其它"
End Select
if(a="1") then FindLabel = b 
if (a<>"1") then FindLabel = b&a 
End Function

自然幢：Function FindLabel ([BZ] ,[FWCS] )
var=[FWCS] 
FindLabel = [BZ]&[FWCS] 
End Function

界址线：Function FindLabel ( [BZ] , [JZXCD] )
var1 = [BZ] 
var2 = [JZXCD]  
var3 = round(var2 ,2) 
if (var1 = "1" )  then FindLabel = Formatnumber(var3,2,-1,-1,0) end if 
End Function

界址点："J"&[BZ]