Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]报表表格里设置两段文字之间的距离？


  共有2458人关注过本帖树形打印复制链接

主题：[求助]报表表格里设置两段文字之间的距离？
帅哥哟，离线，有人找我吗？
2425004926
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：712 积分：5553 威望：0 精华：0 注册：2019/11/14 9:36:00 		[求助]报表表格里设置两段文字之间的距离？  发帖心情 Post By：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() '预览报表
 回到顶部
帅哥哟，离线，有人找我吗？
有点酸
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1093 积分：6682 威望：0 精华：0 注册：2013/7/1 9:05:00 		  发帖心情 Post By：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() '预览报表


参考：
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03125 秒, 4 次数据查询