试了 用下面代码生成的图片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文件的提示如何去掉？
加好友 
发短信
Post By：2017/11/2 17:43:00 [只看该作者]
