以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  数字旋转了,不居中,怎么处理?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=196079)

--  作者:xxfoxtable
--  发布时间:2025/3/27 15:50:00
--  数字旋转了,不居中,怎么处理?
            rx = New prt.RenderText
            rx.text = a
            rx.Width = CStr(Tables("盒贴打印设置").Current("盒贴宽度"))
            rx.y = CStr(Tables("盒贴打印设置").Current("案卷题名内容上位置") + Tables("盒贴打印设置").Current("案卷题名内容间距") * j)
            rx.x = CStr(Tables("盒贴打印设置").Current("案卷题名内容左位置") + Tables("盒贴打印设置").Current("盒贴宽度") * i + Tables("盒贴打印设置").Current("盒贴间距") * i)
            \'\'rx.Style.FontBold = True \'字体加粗
            rx.Style.FontSize = CStr(Tables("盒贴打印设置").Current("案卷题名内容字体大小"))
            rx.Style.TextAngle = -90
            rx.Style.TextAlignHorz = prt.AlignHorzEnum.center \'水平居中排列
            rx.Style.Spacing.Bottom = 1 \'和下面的对象(表格)距离3毫米
            doc.Body.Children.Add(rx) \'加入到报表中


图片点击可在新窗口打开查看此主题相关图片如下:6.png
图片点击可在新窗口打开查看


--  作者:cd_tdh
--  发布时间:2025/3/27 16:00:00
--  
rx.Style.Spacing.Bottom = 1 \'和下面的对象(表格)距离3毫米
这句代码不要呢?

--  作者:xxfoxtable
--  发布时间:2025/3/27 16:07:00
--  
不行,没有变化
--  作者:有点蓝
--  发布时间:2025/3/27 16:13:00
--  
请提供实例测试
--  作者:xxfoxtable
--  发布时间:2025/3/27 16:53:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar


--  作者:有点蓝
--  发布时间:2025/3/27 17:14:00
--  
90度旋转,方向不一样了,对齐模式也要跟着变化

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.zip