以文本方式查看主题

-  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
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毫米
ra.Children.Add(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毫米
ra.Children.Add(rt1
Doc.PageHeader = ra
doc.Preview() \'预览