Foxtable(狐表)用户栏目专家坐堂 → [求助] 专业报表图片设置


  共有2276人关注过本帖树形打印复制链接

主题:[求助] 专业报表图片设置

帅哥哟,离线,有人找我吗?
zcgmxf
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1652 积分:14691 威望:0 精华:0 注册:2014/6/6 8:42:00
[求助] 专业报表图片设置  发帖心情 Post By:2018/11/27 11:23:00 [显示全部帖子]

老师,下面的代码对单元格里图片太小设置没有作用?谢谢!

    Dim rm As New prt.RenderImage '定义一个图片对象
    rm.Width = 30 
    rm.Height = 20
    rm.Image = GetImage("cdc.png") '设置图片
    rm.Style.ImageAlign.KeepAspectRatio = False '取消保持原有比例
    rt.Cells(1,0).Image = rm.Image
    rt.Cells(1,0).Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center
    rt.Cells(1,0).Style.ImageAlign.AlignVert = prt.ImageAlignHorzEnum.Center
    rt.Cells(1,0).Style.Padding.Top = 20
    rt.Rows(1).Height = 40
    doc.AutoRotate = False

 回到顶部
帅哥哟,离线,有人找我吗?
zcgmxf
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1652 积分:14691 威望:0 精华:0 注册:2014/6/6 8:42:00
  发帖心情 Post By:2018/11/28 6:46:00 [显示全部帖子]

If Tables("职业健康检查表_table1").Current Is Nothing Then
    MessageBox.Show("当前没有加载数据!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
Else
    Dim r As Row = Tables("职业健康检查表_table1").Current
    Dim doc As New Printdoc
    Dim rt As prt.RenderTable
    rt = New prt.RenderTable
    rt.Style.GridLines.All = New Prt.LineDef(0.2, Color.Black)
    rt.Rows.Count = 200
    rt.Cols.Count = 10
    rt.Cells(0,0).SpanCols = 10
    rt.Cells(0,0).Text = "XX市XXX疾病预防控制中心职业健康" & vbcrlf & "检查报告"
    rt.Rows(0).Style.Font = New Font("宋体", 18, FontStyle.Bold)
    rt.Rows(0).Height = 30
    rt.Rows(0).Style.TextAlignVert = prt.AlignVertEnum.bottom
    rt.Rows(0).Style.TextAlignHorz = prt.AlignHorzEnum.Center
    rt.Style.LineSpacing = 200
    rt.Cells(1,0).SpanCols = 10
    Dim rm As New prt.RenderImage '定义一个图片对象
    rm.Width = 30 
    rm.Height = 20
    rm.Image = GetImage("cdc.png") '设置图片
 '    rm.Style.ImageAlign.KeepAspectRatio = False '取消保持原有比例
    rt.Cells(1,0).Image = rm.Image
    rt.Cells(1,0).Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center
    rt.Cells(1,0).Style.ImageAlign.AlignVert = prt.ImageAlignHorzEnum.Center
  '   rt.Cells(1,0).Style.ImageAlign.KeepAspectRatio = False '取消保持原有比例
    rt.Cells(1,0).Style.Padding.Top = 20
    rt.Rows(1).Height = 40
    doc.AutoRotate = False

    doc.Body.Children.Add(rt)    
    doc.Preview
end if
[此贴子已经被作者于2018/11/28 6:48:02编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
zcgmxf
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1652 积分:14691 威望:0 精华:0 注册:2014/6/6 8:42:00
  发帖心情 Post By:2018/12/3 11:36:00 [显示全部帖子]

老师,专业报表引用 服务器上的图片该如何处理?先下载吗?有么有简单的办法。谢谢!
[此贴子已经被作者于2018/12/3 11:36:01编辑过]

 回到顶部