Foxtable(狐表) → 用户栏目 → 专家坐堂 → excel报表保存图片的问题


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

主题：excel报表保存图片的问题
帅哥哟，离线，有人找我吗？
rjh4078
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3358 积分：24758 威望：0 精华：0 注册：2012/3/26 21:47:00 		  发帖心情 Post By：2017/10/31 12:16:00 [显示全部帖子]

试了下你的方法

Dim doc As New PrintDoc() '定义一个报表
doc.PageSetting.Width = 215 '纸张宽度为215毫米
doc.PageSetting.Height = 280 '纸张高度为280毫米
Dim rg1 As New prt.RenderGraphics()
Dim g As Graphics = rg1.Graphics
g.DrawImage(getImage(ProjectPath & "bin\TempFiles\工单.png" ),200,100) ''不带数字参数无法编译 帮助里说可以不带参数，但是去掉参数无法通过编译
rg1.x = 5
rg1.y = 15
Doc.Body.Children.Add(rg1)
Doc.Preview()
 回到顶部
帅哥哟，离线，有人找我吗？
rjh4078
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3358 积分：24758 威望：0 精华：0 注册：2012/3/26 21:47:00 		  发帖心情 Post By：2017/10/31 12:27:00 [显示全部帖子]

用这个方法还是不清楚

 回到顶部
帅哥哟，离线，有人找我吗？
rjh4078
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3358 积分：24758 威望：0 精华：0 注册：2012/3/26 21:47:00 		  发帖心情 Post By：2017/10/31 12:41:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：副本.jpg
图片点击可在新窗口打开查看

这个是excel原始报表和转成图片以后用专业报表打印出来的效果对比
看来我想用excel生成报表 用专业报表控制打印的想法行不通了
 回到顶部
帅哥哟，离线，有人找我吗？
rjh4078
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3358 积分：24758 威望：0 精华：0 注册：2012/3/26 21:47:00 		  发帖心情 Post By：2017/10/31 12:42:00 [显示全部帖子]

不知道excel报表还有没有生成高清格式图片文件的方法 

 回到顶部
帅哥哟，离线，有人找我吗？
rjh4078
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3358 积分：24758 威望：0 精华：0 注册：2012/3/26 21:47:00 		  发帖心情 Post By：2017/10/31 12:52:00 [显示全部帖子]

我用的就是16的方法

Dim doc As New PrintDoc() '定义一个报表
doc.PageSetting.Width = 215 '纸张宽度为215毫米
doc.PageSetting.Height = 280 '纸张高度为280毫米
Dim rg1 As New prt.RenderGraphics()
Dim g= rg1.Graphics
rg1.x = 5
rg1.y = 15
Dim image = getimage(ProjectPath & "bin\TempFiles\工单.png")
'g.InterpolationMode = InterpolationMode.HighQualityBicubic
'g.SmoothingMode = SmoothingMode.HighQuality
'g.CompositingQuality = CompositingQuality.HighQuality
g.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.NearestNeighbor
'g.PixelOffsetMode = System.Drawing.Drawing2D.PixelOffsetMode.Half
g.DrawImage(image,0,0,image.width, image.height)
doc.Body.Children.Add(rg1) '将图片对象加入报表
Doc.Preview() '预览
 
 回到顶部
帅哥哟，离线，有人找我吗？
rjh4078
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3358 积分：24758 威望：0 精华：0 注册：2012/3/26 21:47:00 		  发帖心情 Post By：2017/10/31 12:55:00 [显示全部帖子]

问题应该是分辨率不够 

 回到顶部
帅哥哟，离线，有人找我吗？
rjh4078
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3358 积分：24758 威望：0 精华：0 注册：2012/3/26 21:47:00 		  发帖心情 Post By：2017/10/31 13:26:00 [显示全部帖子]

预览现在跟word里一样清楚 部分边框感觉缺失了一样  注释去掉也试了 打出来跟word差不多 就是那个样子 激光打出来的稍微能辨认 针式的一塌糊涂  感觉是图片原始分辨率的问题 

 回到顶部
帅哥哟，离线，有人找我吗？
rjh4078
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3358 积分：24758 威望：0 精华：0 注册：2012/3/26 21:47:00 		  发帖心情 Post By：2017/10/31 15:05:00 [显示全部帖子]

能强行调整DPI吗

 回到顶部
帅哥哟，离线，有人找我吗？
rjh4078
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3358 积分：24758 威望：0 精华：0 注册：2012/3/26 21:47:00 		  发帖心情 Post By：2017/10/31 18:19:00 [显示全部帖子]


生成的图片成这样了
[此贴子已经被作者于2017/10/31 18:19:31编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
rjh4078
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3358 积分：24758 威望：0 精华：0 注册：2012/3/26 21:47:00 		  发帖心情 Post By：2017/10/31 18:22:00 [显示全部帖子]

以下内容是专门发给有点甜浏览
 回到顶部
总数 50 上一页 1 2 3 4 5 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.27515 秒, 5 次数据查询