| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 项目发布 (http://www.foxtable.com/bbs/list.asp?boardid=5) ---- [求助]表格里的文字怎么设置段落间距离？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=5&id=157390) |
| -- 作者：2425004926 -- 发布时间：2020/10/14 14:24: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() \'预览报表 |