主题：专业报表页眉设置

Dim 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() '预览报表

专业报表真的没有人用吗?只好自个学了....

此主题相关图片如下：未命名.jpg

呵呵，学得不错啊