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

问题应该是分辨率不够 

1、预览是否正常？

 

2、把注释的代码都打开测试。

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

 excel保存成图片的时候，是根据你屏幕的dpi保存的，一般是96。打印机打印的时候，dpi一般是300，放大了几倍，所以有问题。

 

 

能强行调整DPI吗

 我用墨盒打印机打印没问题；

 

 针式打印机测试的话，你尝试用这种方式生成图片，看行不行

 

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.Export("D:\123.png")
c.Delete
app.quit

---

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

---

excel模板、foxtable表格，打包发上来测试。

---

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

---