主题：[求助]报表表格内文本调整字号

报表如何将表格里的文本一次性调整字体字号大小，默认的字号有点小，谢谢！

Dim doc As New PrintDoc '定义一个报表
doc.PageSetting.PaperKind = 9 '纸张类型改为A4
doc.PageSetting.Landscape = True '横向打印
doc.PageSetting.TopMargin = 25   '上边距
doc.PageSetting.BottomMargin = 25   '下边距
Dim rx As prt.RenderText
Dim rt As prt.RenderTable  '定义一个表格对象
Dim rm As New prt.RenderImage() '定义一个图片对象

。。。。。。

rt = New prt.RenderTable '定义一个表格对象
rt.Style.Padding.Top = 3 '上边距毫米
rt.Style.Padding.Left = 3 '左边距毫米
doc.Body.Children.Add(rt) '将表格对象加入到报表中
rt.Style.GridLines.All = New prt.Linedef(0.3, Color.Black) '表格颜色

'rt.Rows.Count = 3 '设置行数
rt.Cols.Count = 6 '设置列数
rt.cols(0).Width = 100  '第一列高度
rt.cols(1).Width = 30   '第二列高度
rt.cols(2).Width = 10   '第三列高度
rt.cols(3).Width = 15   '第三列高度
rt.cols(4).Width = 15   '第三列高度
rt.cols(5).Width = "auto"   

rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center   '上下居中
rt.Style.TextAlignVert = prt.AlignVertEnum.Center   '左右居中
rt.CellStyle.Spacing.All = 1   '内边距
rt.Cols.Count = 4
rt.Cells(0,0).Text = "名称"
rt.Cells(0,1).Text = "质地"
rt.Cells(0,2).Text = "数量"
rt.Cells(0,3).Text = "单位"
rt.Cells(0,4).Text = "是否完整"
rt.Cells(0,5).Text = "照片"

Dim r As Integer
r = 0
With Tables("文物明细表")
    Dim drs As List(Of DataRow)
    drs = .DataTable.Select("[选] = True")
    For Each dr As DataRow In drs
        r = r + 1
        rt.rows(r).Height = 27  '第一行高度
        rt.Cells(r,0).Text = dr("名称")
        rt.Cells(r,1).Text = dr("质地")
        rt.Cells(r,2).Text = dr("数量")
        rt.Cells(r,3).Text = dr("单位")
        rt.Cells(r,4).Text = dr("是否完整")
        '填充照片
        rm = New prt.RenderImage() '定义一个图片对象
        Dim txt As String
        txt = ProjectPath & "Attachments\照片\" & dr("照片")
        rm.Image = GetImage(txt) '请改为实际的图标名称和路径
        rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center '图片水平居中
        rm.Style.ImageAlign.AlignVert = prt.ImageAlignVertEnum.Center '图片垂直居中
        rm.Style.ImageAlign.StretchHorz = True '禁止水平方向扩展图片
        rm.Style.ImageAlign.StretchVert = True '禁止垂直方向扩展图片
        rt.Cells(r,5).RenderObject = rm '将单元格内容设置为图片对象rm
    Next
End With

doc.Preview