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


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

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


加好友 发短信
等级：狐精 帖子：3355 积分：24732 威望：0 精华：0 注册：2012/3/26 21:47:00 		  发帖心情 Post By：2017/11/2 17:43:00 [只看该作者]

试了 用下面代码生成的图片DPI调高了也没用
Dim Book As New XLS.Book(ProjectPath & "Attachments\工单.xlsx")
Dim fl As String = ProjectPath & "Reports\工单.xlsx"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim rg As MSExcel.Range = Ws.UsedRange
Dim lj As String=ProjectPath & "bin\TempFiles\工单.png"
Dim nlj As String=ProjectPath & "bin\TempFiles\" & rand.NextString(6) & ".png"
'MessageBox.show(lj)
rg.copy
ClipBoard.GetImage.save(lj)
app.quit
Dim bmp As new bitmap(lj)
bmp.SetResolution(300, 300)
bmp.save(nlj)

另外app.quit每次这里都弹出是否保存xlsx文件的提示如何去掉？
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  62楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/11/2 17:47:00 [只看该作者]

1、生成图片以后，你用软件调整期dpi，能否正常打印？

 

2、用58楼的图片，调整其dpi后，能否正常打印？
 回到顶部
帅哥哟，离线，有人找我吗？
rjh4078
 小大  63楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3355 积分：24732 威望：0 精华：0 注册：2012/3/26 21:47:00 		  发帖心情 Post By：2017/11/2 18:16:00 [只看该作者]

1.用61楼代码生成的图片调DPI没用
2.58楼原始DPI打印就已经非常清楚了
 回到顶部
帅哥哟，离线，有人找我吗？
rjh4078
 小大  64楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3355 积分：24732 威望：0 精华：0 注册：2012/3/26 21:47:00 		  发帖心情 Post By：2017/11/2 18:23:00 [只看该作者]

rg.CopyPicture(2,-4147)
Dim c = Ws.ChartObjects.Add(0,0,rg.width*3, rg.height*3)
'Dim c = Ws.ChartObjects.Add(0,0,rg.width*1, rg.height*1)  如果用这段代码生成的图片就刚好是一个，但是打印出来不清楚
c.chart.paste
c.chart.Export(lj)
c.Delete
app.quit

[此贴子已经被作者于2017/11/2 18:29:36编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
rjh4078
 小大  65楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3355 积分：24732 威望：0 精华：0 注册：2012/3/26 21:47:00 		  发帖心情 Post By：2017/11/2 18:41:00 [只看该作者]

我在excel里看了下生成的Chart图表也是一个大的带空白

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/11/2 19:10:00 [只看该作者]

 这样测试一下

 

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.UsedRange
rg.CopyPicture(2,-4147)
Dim c = Ws.ChartObjects.Add(0,0,rg.width, rg.height)
c.chart.paste
c.chart.Shapes(1).width = rg.width
c.chart.Shapes(1).height = rg.height
c.chart.Export("D:\123.png")
app.visible = True
'c.Delete
'app.quit
 回到顶部
帅哥哟，离线，有人找我吗？
rjh4078
 小大  67楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3355 积分：24732 威望：0 精华：0 注册：2012/3/26 21:47:00 		  发帖心情 Post By：2017/11/2 19:21:00 [只看该作者]

还是不行 我把你给我的那个工单图片怎么打都清楚 我生成的这个不知道为什么不行 

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


加好友 发短信
等级：狐精 帖子：3355 积分：24732 威望：0 精华：0 注册：2012/3/26 21:47:00 		  发帖心情 Post By：2017/11/2 19:31:00 [只看该作者]

以下内容是专门发给有点甜浏览
 回到顶部
帅哥哟，离线，有人找我吗？
rjh4078
 小大  69楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3355 积分：24732 威望：0 精华：0 注册：2012/3/26 21:47:00 		  发帖心情 Post By：2017/11/2 19:31:00 [只看该作者]

以下内容是专门发给有点甜浏览
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  70楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/11/2 20:02:00 [只看该作者]

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.UsedRange
rg.CopyPicture(2,-4147)
Dim c = Ws.ChartObjects.Add(0,0,rg.width*3, rg.height*3)
c.chart.paste
c.chart.Shapes(1).width = rg.width*3
c.chart.Shapes(1).height = rg.height*3
c.chart.Export("D:\123.png")
app.visible = True
'c.Delete
'app.quit
 回到顶部
总数 76 上一页 1 2 3 4 5 6 7 8 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04785 秒, 4 次数据查询