主题：[求助]生成批量统计图

'制作报表
Dim doc As New PrintDoc '定义一个报表
Doc.PageSetting.LeftMargin = 15 '设置左边距
Doc.PageSetting.RightMargin = 15 '设置右边距
Doc.PageSetting.TopMargin = 15 '设置上边距
Doc.PageSetting.BottomMargin = 15 '设置下边距

Dim t As DataTable =  DataTables("表A") '定义一个变量t引用数据表
For Each cp As String In t.GetValues("第一列")
    Dim drs = t.Select("第一列='" & cp & "'")
    Dim Chart  As WinForm.Chart  '定义一个图表变量
    Dim Series As WinForm.ChartSeries '定义一个图系变量
   
    Chart = new ChartBuilder
    Chart.VisualEffect = False
    Chart.SeriesList.Clear() '清除图表原来的图系
    Series = Chart.SeriesList.Add() '增加一个图系
    Series.Length = drs.count
    Series.Text = cp
    For r As Integer = 0 To drs.count - 1
        Series.X(r) = r
        Series.Y(r) = drs(r)("第三列")
        Chart.AxisX.SetValueLabel(r, drs(r)("第一列")) '指定字符表示
    Next
    Chart.AxisX.AnnoWithLabels = True '启用字符标示
    Chart.LegendVisible = True '显示图列
    Chart.LegendCompass= CompassEnum.South  '图列显示在南方(底端)
   
   
    '-----------引用插入统计图
    Dim rm As New prt.RenderImage
    rm.Image = Chart.Image()
    rm.Width = "Parent.Width"
    rm.Height = "Auto" '高度由图片大小自动决定
    rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center '居中显示
    rm.Style.ImageAlign.StretchHorz = True '禁止拉伸
    'rm.Style.ImageAlign.StretchVert = False
    rm.Style.Spacing.Top = 5
    doc.Body.Children.Add(rm) '将图片对象加入报表
Next

Doc.Preview() '预览报表

Dim doc As New PrintDoc '定义一个报表
Doc.PageSetting.LeftMargin = 15 '设置左边距
Doc.PageSetting.RightMargin = 15 '设置右边距
Doc.PageSetting.TopMargin = 15 '设置上边距
Doc.PageSetting.BottomMargin = 15 '设置下边距

Doc.Preview() '预览报表

请截图具体说明哪里的字体，哪里的大小。