主题：[求助]如何设置汇总行标题的字体和颜色

如题，我想将分组列设置为不同字体和颜色，使之更明显，请教老师

Dim t As Table = Tables("项目计划_Table2")
Tables("项目计划_Table2").Sort ="编号"    '按_SortKey排序
Dim g As Subtotalgroup
t.GroupAboveData = True
t.TreeVisible = True
t.SpillNode = True
t.SubtotalGroups.Clear()
'定义客户分组
g = New Subtotalgroup '定义一个新的分组
g.Aggregate = AggregateEnum.Sum '统计类型为求和
g.GroupOn = "任务专业" '分组列为:任务专业
g.TotalOn = "工期" '统计工期列
g.Caption = "{0}" '设置标题
t.SubtotalGroups.Add(g) '加到分组集合中

g = New Subtotalgroup '定义一个新的分组
g.Aggregate = AggregateEnum.Sum '统计类型为求和
g.GroupOn = "主项名称" '分组列为:主项名称
g.TotalOn = "工期" '统计工期列
g.Caption = "{0}" '设置标题
t.SubtotalGroups.Add(g) '加到分组集合中

g = New Subtotalgroup '定义一个新的分组
g.Aggregate = AggregateEnum.Sum '统计类型为求和
g.GroupOn = "任务类" '分组列为:任务类
g.TotalOn = "工期" '统计工期列
g.Caption = "{0}" '设置标题
t.SubtotalGroups.Add(g) '加到分组集合中

t.Subtotal() '生成汇总模式