共4 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：没有坐标的情况下， 怎么加画线语句
1楼
xxfoxtable 发表于：2023/11/19 21:17:00Dim 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("内容字体大小")))
我想把最后这个换成画线语句，不知道应该怎么写了
2楼
有点蓝 发表于：2023/11/19 21:39:00没看懂，截图说明一下
3楼
xxfoxtable 发表于：2023/11/20 11:16:00
此主题相关图片如下：5.png
就是姓名下面的那个横线
4楼
有点蓝 发表于：2023/11/20 11:29:00给表格设置一下最后一行的底部网格线：http://www.foxtable.com/webhelp/topics/1200.htm
共4 条记录, 每页显示 10 条, 页签:
[1]