以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]报表表格内文本调整字号  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=158908)

--  作者:2425004926
--  发布时间:2020/12/7 10:42:00
--  [求助]报表表格内文本调整字号
报表如何将表格里的文本一次性调整字体字号大小,默认的字号有点小,谢谢!

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

--  作者:有点蓝
--  发布时间:2020/12/7 11:14:00
--  
rt = New prt.RenderTable \'定义一个表格对象
rt.Style.Font = new Font(rt.Style.Font.Name,15)

--  作者:2425004926
--  发布时间:2020/12/7 11:22:00
--  
OK,非常谢谢!