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