Dim raddress As New prt.RenderText '定义一个文本对象
With raddress
.Text = "地址:江苏省 苏州工业园区" '设置文本对象的内容
Dim i As Integer
i=CInt(raddress.x )
raddress1.x=i + 5
.y=38
End With
doc.Body.Children.Add(raddress) '将文本对象加入到报表
'--------------------------------------------------------------------------------------------------
Dim raddress1 As New prt.RenderText '定义一个文本对象
With raddress1
.Text = "邮编215123" '设置文本对象的内容
Dim i As Integer
i=CInt(raddress.x )
raddress1.x=i + 5
.y=38
End With
doc.Body.Children.Add(raddress1 ) '将文本对象加入到报表
想着从其他地方获得x的坐标 ,也不知道怎么对齐两行文本
[此贴子已经被作者于2019/12/30 16:26:45编辑过]
加好友 
发短信
Post By：2019/12/30 16:17:00 [显示全部帖子]
