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


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

主题:[求助]报表表格里设置两段文字之间的距离?

帅哥哟,离线,有人找我吗?
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() '预览报表


 回到顶部