- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 专业报表页眉设置 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=1057)
-- 发布时间：2008/11/4 21:06:00
-- 专业报表页眉设置
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() \'预览报表
专业报表真的没有人用吗?只好自个学了....
[此贴子已经被作者于2008-11-4 21:06:08编辑过]
-- 发布时间：2008/11/4 21:08:00
--
此主题相关图片如下：未命名.jpg
-- 发布时间：2008/11/4 21:43:00
--
呵呵，学得不错啊