- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 没有坐标的情况下， 怎么加画线语句 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=189247)
-- 发布时间：2023/11/19 21:17:00
-- 没有坐标的情况下， 怎么加画线语句
Dim tb As Table = Tables(args(5))
Dim prs As Integer =30
Dim ir As Integer = Math.Ceiling(tb.Rows.Count / prs)
Dim a As Integer = 1
For i As Integer = 0 To ir - 1
Dim rt As New prt.RenderTable() \'定义一个表格对象
Dim rx, rx1, rx2 As New prt.RenderText \'定义一个文本对象
Dim ra As New prt.RenderArea \'定义一个容器
If Tables("处方打印设置").Current("标题一") > "" Then
rx.text = Tables("处方打印设置").Current("标题一")
rx.Style.FontBold = True \'字体加粗
rx.Style.FontSize = CStr(Tables("处方打印设置").Current("标题一字体大小"))
rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center \'水平居中排列
rx.Style.Spacing.Bottom = 1 \'和下面的对象(表格)距离3毫米
doc.Body.Children.Add(rx) \'加入到报表中
End If
If Tables("处方打印设置").Current("标题二") > "" Then
rx1 = New prt.RenderText
rx1.text = Tables("处方打印设置").Current("标题二")
rx.Style.FontBold = True \'字体加粗
rx1.Style.FontSize = CStr(Tables("处方打印设置").Current("标题二字体大小"))
rx1.Style.TextAlignHorz = prt.AlignHorzEnum.Center \'水平居中排列
rx1.Style.Spacing.Bottom = 3 \'和下面的对象(表格)距离3毫米
ra.Children.Add(rx1)
End If
rx2 = New prt.RenderText
rx2.text = "姓名：" & Args(0) & " 性别：" & Args(1) & " 年龄：" & args(2) & " 日期:" & format(Args(3), "yyyy年MM月dd日") & " 电话：" & Args(8)
rx.Style.FontBold = True \'字体加粗
rx2.Style.FontSize = CStr(Tables("处方打印设置").Current("内容字体大小"))
rx2.Style.TextAlignHorz = prt.AlignHorzEnum.center \'水平居中排列
rx2.Style.Spacing.Bottom = 1 \'和下面的对象(表格)距离3毫米
ra.Children.Add(rx2)
rx = New prt.RenderText
rx.text = "--------------------------------------------------------------------------------------------------------------------------"
rx.Style.FontBold = True \'字体加粗
rx.Style.FontSize = CStr(Tables("处方打印设置").Current("内容字体大小"))
rx.Style.TextAlignHorz = prt.AlignHorzEnum.center \'水平居中排列
rx.Style.Spacing.Bottom = 1 \'和下面的对象(表格)距离3毫米
ra.Children.Add(rx)
rt.Style.Font = New font("宋体", CStr(Tables("处方打印设置").Current("内容字体大小")))
我想把最后这个换成画线语句，不知道应该怎么写了
-- 发布时间：2023/11/19 21:39:00
--
没看懂，截图说明一下
-- 发布时间：2023/11/20 11:16:00
--
此主题相关图片如下：5.png
就是姓名下面的那个横线
-- 发布时间：2023/11/20 11:29:00
--
给表格设置一下最后一行的底部网格线：http://www.foxtable.com/webhelp/topics/1200.htm