需要在指定区域实现右对齐，用一下代码实现， 但结果有偏差，无法实现右对齐，在现有控件的控件情况下 如何实现右对齐
————————————————————————
Dim doc1 As New PrintDoc '定义一个报表
Dim rtt As prt.RenderText '文本
rtt= New prt.RenderText
Dim show As String = Format(12,"#0.00")
rtt.Text ="$ " & Mid(" " ,1,6-len(show)) & show
rtt.X =60
rtt.Y="60"
Doc1.Body.Children.Add(rtt)
rtt= New prt.RenderText
show = Format(0,"#0.00")
rtt.Text ="$ " & Mid(" " ,1,6-len(show)) & show
rtt.X =60
rtt.Y="Prev.Bottom"
Doc1.Body.Children.Add(rtt)
rtt= New prt.RenderText
show = Format(11,"#0.00")
rtt.Text ="$ " & Mid(" " ,1,6-len(show)) & show
rtt.X =60
rtt.Y="Prev.Bottom"
Doc1.Body.Children.Add(rtt)
Doc1.Preview() '预览报表
————————————————————————————————————————
[此贴子已经被作者于2020/11/21 22:00:38编辑过]
加好友 
发短信
Post By：2020/11/21 20:33:00 [显示全部帖子]
