以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  专业报表 在指定位置右对齐如何实现  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=158498)

--  作者：ehbx_ysj --  发布时间：2020/11/21 20:33:00 --  专业报表 在指定位置右对齐如何实现 需要在指定区域实现右对齐，用一下代码实现， 但结果有偏差，无法实现右对齐，在现有控件的控件情况下 如何实现右对齐 ———————————————————————— 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编辑过]

--  作者：有点蓝 --  发布时间：2020/11/22 20:15:00 --   指定一下字体： Dim doc1 As New PrintDoc \'定义一个报表 Dim rtt As prt.RenderText \'文本 rtt= New prt.RenderText rtt.Style.Font = New Font("宋体", 10) Dim show As String = Format(12,"#0.00") rtt.Text ="$ " &  show.PadLeft(6," ") rtt.X =60 rtt.Y="60" Doc1.Body.Children.Add(rtt) rtt= New prt.RenderText rtt.Style.Font = New Font("宋体", 10) show = Format(0,"#0.00") rtt.Text ="$ " &  show.PadLeft(6," ") rtt.X =60 rtt.Y="Prev.Bottom" Doc1.Body.Children.Add(rtt) rtt= New prt.RenderText rtt.Style.Font = New Font("宋体", 10)  show = Format(11,"#0.00") rtt.Text ="$ " &  show.PadLeft(6," ") rtt.X =60 rtt.Y="Prev.Bottom" Doc1.Body.Children.Add(rtt) Doc1.Preview() \'预览报表

--  作者：ehbx_ysj --  发布时间：2020/11/23 8:46:00 --   只能用宋体吗？系统是在英文系统使用 我用“Arial” 字体问题没解决

--  作者：有点蓝 --  发布时间：2020/11/23 8:53:00 --   那就多试试其他的字体

--  作者：13568406997 --  发布时间：2023/4/23 11:41:00 --   我也遇到这个问题，不好弄啊