主题：excel报表保存图片的问题

 

并没有修改项目，直接点击打印就得到这个东西了。是不是你office的问题？你安装的是MS Office吗？

是的 office2010

 

那没理由，生成的这个文件你直接放到word或者直接打印图片能否正常？

 

---

以下内容是专门发给rjh4078浏览

---

---

以下内容是专门发给有点甜浏览

---

重装下一下office2013还是这样 费解

如果你换成这样的代码，生成的图片，有没问题？记得，是在你例子上测试。

 

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(1,2)
Dim c = Ws.ChartObjects.Add(0,0,rg.width*3, rg.height*3)
c.chart.paste
c.chart.Export("D:\123.png")
c.Delete
app.quit

结果还是一样

1、43楼的图片打印后是否正常，如果也不正常，那就不要用此方法做了。

 

2、新建一个execel文件，手动填入一些数据，用46楼代码测试。

打了下甜老师的图片 也是很模糊 点很多 针式的基本没法看 估计还是dpi的问题

 

那基本就是你打印机的问题，打印图片可能都会变模糊。你可以测试打印别的图片。