Foxtable(狐表)用户栏目专家坐堂 → 这是怎么回事?


  共有58人关注过本帖树形打印复制链接

主题:这是怎么回事?

帅哥哟,离线,有人找我吗?
hongye
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:485 积分:3261 威望:0 精华:0 注册:2011/3/15 12:49:00
这是怎么回事?  发帖心情 Post By:2024/12/30 0:39:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:提问图片.jpg
图片点击可在新窗口打开查看


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

文件在正确的盘符,就是说没有

图片点击可在新窗口打开查看此主题相关图片如下:提问图片1.jpg
图片点击可在新窗口打开查看


[此贴子已经被作者于2024/12/30 0:42:04编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111471 积分:567443 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/12/30 8:43:00 [只看该作者]

路径前面什么会有个?号

或者是其它看不见的字符

 回到顶部