Foxtable(狐表)用户栏目专家坐堂 → 有没有办法 把专业报表生成的页面白色底 处理掉呢 让它在预览时成为透明图片


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

主题:有没有办法 把专业报表生成的页面白色底 处理掉呢 让它在预览时成为透明图片

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


加好友 发短信
等级:五尾狐 帖子:1093 积分:6682 威望:0 精华:0 注册:2013/7/1 9:05:00
  发帖心情 Post By:2020/5/1 19:44:00 [显示全部帖子]

我测试就是透明的:


Dim doc As New PrintDoc '定义一个报表对象
Dim rm As New prt.RenderImage '定义一个图片对象
rm.Image = GetImage("EP1.BMP") '设置图片
rm.Style.Borders.All = New prt.Linedef(1, Color.Red) '设置边框
doc.Body.Children.Add(rm) '将图片对象加入报表

Dim rt As New prt.RenderTable() '定义一个表格对象
rt.Style.GridLines.All = New prt.Linedef '设置网格线
'下面的代码向表格中填入值
For r As Integer = 0 To 5
    For c As Integer = 0 To 5
        Dim rx As New prt.RenderText '定义一个文本对象
        rx.Text = r & "," & c '为文本对象设置内容
        rt.Cells(r, c).RenderObject = rx '将文本对象放置在单元格中
    Next
Next
rt.x = 50
rt.y = 50
doc.Body.Children.Add(rt) '将文本对象加入到报表

Doc.Preview() '预览

 回到顶部