excel报表保存图片的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

打印图片就会模糊打印原始excel文件很清楚

可能是这个问题 https://wenku.baidu.com/view/f0ebddc62cc58bd63186bd83.html

http://bbs.csdn.net/topics/390880890

甜老师能把这个原始图片发给我测试下打印吗你这个应该是截图吧

我这里现在生成的老是一张很大的图片 1/4有内容空了3/4

LQ730L的针式打印机图片默认DPI110 我把DPI改成320和180分别测试了下单独打印图片非常清楚

用下面的代码打印也非常清楚

Dim lj As String=ProjectPath & "bin\TempFiles\工单.png"

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(lj)

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,800,1000) ‘’这个地方如何将图片与页面大小调成一致，我是手动写的

'g.DrawImage(image,0,0)

doc.Body.Children.Add(rg1) '将图片对象加入报表

Doc.Preview() '预览

另外一个问题就是那个代码在我的电脑上生成的图片为什么总是有3/4空白甜老师用的是什么版本的office？我试着直接手工新建填了一个excel文件转成图片也是这样说明模板没有问题

离成功就差一点了！！

Dim rm As New prt.RenderImage '定义一个图片对象
rm.Image = GetImage(lj) '设置图片
rm.Width = "Parent.Width" '宽度等于页面宽度
rm.Height = "Parent.height" '高度由页面高度决定
rm.Style.ImageAlign.StretchHorz = False '禁止图片水平拉伸
rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center '居中显示
doc.Body.Children.Add(rm)

这段代码生成的专业报表打印出来跟之前一样非常模糊无论怎么调dpi也不行

试了用下面代码生成的图片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文件的提示如何去掉？

1.用61楼代码生成的图片调DPI没用

2.58楼原始DPI打印就已经非常清楚了

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