以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]报表表格里设置两段文字之间的距离？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=157523)
--  作者：2425004926
--  发布时间：2020/10/19 15:43:00
--  [求助]报表表格里设置两段文字之间的距离？

报表：表格里的文字如果有两段，怎么设置这两段之间的距离，红色的代码应如何改？

 \'定义报表
Dim doc As New PrintDoc \'定义一个报表
doc.PageSetting.PaperKind = 9 \'纸张类型改为A4
doc.PageSetting.Landscape = True \'横向打印
\'表格
Dim rt As New prt.RenderTable() \'定义一个表格对象
rt.Style.GridLines.All = New prt.Linedef(Color.red) \'将表格的颜色设为深灰色
rt.cols(0).Width = 100  \'第一列宽
rt.Width = 100 \'表格的总宽度
rt.rows(0).Height = "auto"    \'第一行高度
doc.Body.Children.Add(rt) \'将表格对象加入到报表中
\'文本
Dim rx As New prt.RenderText \'创建一个文本
rx.Text = "试验试验试验试验试验试验试验试验试验试验试验试验试验试验" & vbcrlf & "测试测试测试测试测试测试测试测试测试测试测试测试" \'设置文本对象的内容
rx.Style.Font = New Font("宋体", 16, FontStyle.Bold) \'设置字体如果不设置字体,会出现导出PDF乱码
\'rx.Style.Spacing.Bottom = 10 \'每段间隔5毫米
rx.Style.LineSpacing = 120 \'1.2倍行距
rx.Style.TextAlignHorz = prt.AlignHorzEnum.Left \'水平居中
rx.Style.TextAlignVert = prt.AlignVertEnum.Top \'垂直居下
rt.Cells(0,0).RenderObject = rx

Doc.Preview() \'预览报表
--  作者：有点酸
--  发布时间：2020/10/19 16:11:00
--  
Dim doc As New PrintDoc \'定义一个报表
Dim rt As New prt.RenderTable() \'定义一个表格对象
doc.Body.Children.Add(rt) \'将表格对象加入到报表中
rt.Style.GridLines.All = New prt.Linedef \'设置网格线
\'下面的代码向表格中填入值
For r As Integer = 0 To 5
    For c As Integer = 0 To 3
        If r = 0 And c= 0 Then
            Dim ra As New prt.RenderArea \'定义一个容器
            Dim rtx As  New prt.RenderText() \'创建文本对象
            rtx.Text = "Hello Foxtable "  \'设置文本对象的内容
            rtx.Style.Spacing.Bottom= 10
            ra.Children.add(rtx)
            rtx = New prt.RenderText() \'创建文本对象
            rtx.Text = "Hello Excel "  \'设置文本对象的内容
            ra.Children.add(rtx)
            rt.Cells(r, c).RenderObject  = ra
        Else
            Dim rx As New prt.RenderText \'定义一个文本对象
            rx.Text = r & "," & c \'为文本对象设置内容
            rt.Cells(r, c).RenderObject = rx \'将文本对象放置在单元格中
        End If
    Next
Next
doc.Preview() \'预览报表


参考：