Dim p As WinForm.Panel = e.Form.Controls("panel1")
Dim App As New MSExcel.Application
Dim Wb As MSExcel.Workbook = App.WorkBooks.Open("?F:\后整理车间平面图.xlsx")
app.ExportAsFixedFormat(0, ProjectPath & "75CS60.pdf") '保存为PDF文件 ,第一个参数 0 为PDF类型, 设为1 是XPS类型
App.Quit
Dim pdfFile = O2S.Components.PDFRender4NET.PDFFile.Open(ProjectPath & "75CS60.pdf") '红色为文件路径
Dim pageImage As Image = pdfFile.GetPageImage(0, 600) '第一个参数1为页数,从0开始,1表示第二页;第二个参数为图片清晰度,数值越大越清晰,同时保存的图片文件也就越大
pageImage.Save( ProjectPath & "出库单.jpg")
pageImage.Dispose() '释放内存资源
pdfFile.Dispose() '释放内存资源
If FileSys.FileExists(ProjectPath & "75CS60.pdf") Then '如果指定的文件存在
FileSys.DeleteFile(ProjectPath & "75CS60.pdf", 2, 2) '则彻底删除之
End If
p.BaseControl.BackgroundImage = getImage(ProjectPath & "出库单.jpg")
p.BaseControl.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch