Foxtable(狐表)用户栏目专家坐堂 → 关于专业报表的问题


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

主题:关于专业报表的问题

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


加好友 发短信
等级:六尾狐 帖子:1470 积分:11456 威望:0 精华:0 注册:2013/11/24 22:10:00
关于专业报表的问题  发帖心情 Post By:2023/6/29 16:32:00 [只看该作者]

 老师

     我生成的专业报表 上用了透明的图片 。用 doc.Preview()  没有问题,可以看到图片。为什么直接保存成 pdf 后 其它的都正常 就是没有图片了 ?

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


加好友 发短信
等级:超级版主 帖子:110450 积分:562116 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/6/29 16:38:00 [只看该作者]

写了什么代码?

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


加好友 发短信
等级:六尾狐 帖子:1470 积分:11456 威望:0 精华:0 注册:2013/11/24 22:10:00
  发帖心情 Post By:2023/6/29 16:43:00 [只看该作者]

 老师

 doc.Preview() 时候会出现如图的图片。但是我把  doc.Preview() 去掉 直接生成

Dim fl As String = ProjectPath & "123.pdf"

doc.SavePDF(fl) '保存为PDF文件
Dim Proc As New Process '打开PDF文件
Proc.File = fl
Proc.Start()

生成的pdf 文件 里面 就没有那个章了。
图片点击可在新窗口打开查看此主题相关图片如下:1688028007075(1).jpg
图片点击可在新窗口打开查看


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


加好友 发短信
等级:六尾狐 帖子:1470 积分:11456 威望:0 精华:0 注册:2013/11/24 22:10:00
  发帖心情 Post By:2023/6/29 16:44:00 [只看该作者]

要怎么才能使生成的pdf 文件里 和预览的一样呢?

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


加好友 发短信
等级:超级版主 帖子:110450 积分:562116 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/6/29 16:49:00 [只看该作者]

我测试没有问题,请上传实例说明

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


加好友 发短信
等级:六尾狐 帖子:1470 积分:11456 威望:0 精华:0 注册:2013/11/24 22:10:00
  发帖心情 Post By:2023/6/29 16:51:00 [只看该作者]

 公司的电子 章不方便上传的。 真奇怪 为什么预览有 但保存又没有呢



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


加好友 发短信
等级:六尾狐 帖子:1470 积分:11456 威望:0 精华:0 注册:2013/11/24 22:10:00
  发帖心情 Post By:2023/6/29 16:55:00 [只看该作者]

重新弄一个新文件 生成的又有章的 我再检查一下吧


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


加好友 发短信
等级:六尾狐 帖子:1470 积分:11456 威望:0 精华:0 注册:2013/11/24 22:10:00
  发帖心情 Post By:2023/6/29 17:18:00 [只看该作者]

太奇怪了,如果换成 jpg 那个图片又在。就是pdf 就会消失。

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


加好友 发短信
等级:六尾狐 帖子:1470 积分:11456 威望:0 精华:0 注册:2013/11/24 22:10:00
  发帖心情 Post By:2023/6/29 17:54:00 [只看该作者]

 有点蓝老师,

     请看附件实例,请帮忙找一下原因。多谢!
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:test.foxdb



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


加好友 发短信
等级:超级版主 帖子:110450 积分:562116 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/6/29 21:37:00 [只看该作者]

应该是个bug,已反馈。

临时只能换种方法使用了,改为RenderImage 

Dim img As Image = GetImage("123.png")
Dim rm As New prt.RenderImage '定义一个图片对象
rm.Image = img '设置图片
rm.Width = 50
rm.Width = 80
rm.x = 215
rm.y = 140

Doc.Body.Children.Add(rm)
[此贴子已经被作者于2023/6/29 21:38:56编辑过]

 回到顶部
总数 11 1 2 下一页