| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]专业报表如何设置二行文字作为表头。 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=176248) |
|
| -- 作者：dj68301367 -- 发布时间：2022/4/5 19:25:00 -- [求助]专业报表如何设置二行文字作为表头。 Dim doc As New PrintDoc \'定义一个报表 Dim rt As New prt.RenderText \'定义一个文本对象 rt.Text = "天天向上软件有限公司" \'设置文本对象的内容 rt.Style.Font = New Font("宋体", 18, FontStyle.Bold) \'设置字体 rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center \'水平居中 rt.Style.Spacing.Bottom = 3 \'设置下间隔为3毫米 \'Doc.PageHeader = rt \'```````````````````````````````````````````````````` Dim rt1 As New prt.RenderText \'定义一个文本对象 rt1.Text = "计划表" \'设置文本对象的内容 rt1.Style.Font = New Font("宋体", 16, FontStyle.Bold) \'设置字体 rt1.Style.TextAlignHorz = prt.AlignHorzEnum.Center \'水平居中 rt1.Style.Spacing.Bottom = 3 \'设置下间隔为3毫米 Doc.PageHeader = rt1 doc.Preview() \'预览
|
|
| -- 作者：有点蓝 -- 发布时间：2022/4/5 20:14:00 -- 二行文字放到一个容器里面：http://www.foxtable.com/webhelp/topics/1185.htm Dim ra As New prt.RenderArea
|