共3 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：专业报表页眉设置
1楼
gdtgl 发表于：2008/11/4 21:06:00Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderTable() '定义一个表格对象
rt.cells(0,0).Text = "页 眉 第 一 行 标 题" '设置第一行内容
rt.Cells(1,0).Text = "(第 二 行)" '设置第二行内容
rt.Cells(2,0).Text= "页 眉 第 三 行" '设置第三行内容
rt.rows(1).height = 15 '独立设置第二行行高,目的与第三行产生大些的行距
rt.Cols(0).Style.TextAlignHorz = prt.AlignHorzEnum.Center '第一列居中
rt.Cells(0,0).Style.FontSize = 35 '设置第一行字体
rt.Cells(1,0).Style.FontSize = 15 '设置第二行字体
rt.Cells(2,0).Style.FontSize = 25 '设置第三行字体
doc.pageheader = rt '将表格对象加入到页眉
Doc.Preview() '预览报表
专业报表真的没有人用吗?只好自个学了....
Dim rt As New prt.RenderTable() '定义一个表格对象
rt.cells(0,0).Text = "页 眉 第 一 行 标 题" '设置第一行内容
rt.Cells(1,0).Text = "(第 二 行)" '设置第二行内容
rt.Cells(2,0).Text= "页 眉 第 三 行" '设置第三行内容
rt.rows(1).height = 15 '独立设置第二行行高,目的与第三行产生大些的行距
rt.Cols(0).Style.TextAlignHorz = prt.AlignHorzEnum.Center '第一列居中
rt.Cells(0,0).Style.FontSize = 35 '设置第一行字体
rt.Cells(1,0).Style.FontSize = 15 '设置第二行字体
rt.Cells(2,0).Style.FontSize = 25 '设置第三行字体
doc.pageheader = rt '将表格对象加入到页眉
Doc.Preview() '预览报表
专业报表真的没有人用吗?只好自个学了....
[此贴子已经被作者于2008-11-4 21:06:08编辑过]
2楼
gdtgl 发表于：2008/11/4 21:08:00
此主题相关图片如下：未命名.jpg
3楼
狐狸爸爸 发表于：2008/11/4 21:43:00呵呵，学得不错啊
共3 条记录, 每页显示 10 条, 页签:
[1]