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

就例子来说，原始图片也没有问题，没有空白的地方，正常尺寸显示全部内容。

如果你那边确实不行，就不要用此方法了吧。

生成的图片没问题

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

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

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

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楼代码测试。

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

那你把43楼的图片修改其dpi，再打印，能否正常？

https://www.baidu.com/baidu?wd=dpi+%E4%BF%AE%E6%94%B9%E5%B7%A5%E5%85%B7&tn=monline_dg&ie=utf-8

43楼的就是生成的图片。