Foxtable(狐表)用户栏目专家坐堂 → [求助]按出库单号保存为PDF文件?


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

主题:[求助]按出库单号保存为PDF文件?

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


加好友 发短信
等级:幼狐 帖子:86 积分:663 威望:0 精华:0 注册:2022/1/13 1:13:00
[求助]按出库单号保存为PDF文件?  发帖心情 Post By:2022/3/28 21:25:00 [只看该作者]

Dim Book As New XLS.Book(ProjectPath & "Attachments\出库单.xls")
Dim
fl As String = ProjectPath & "Reports\出库单.pdf"
Book
.Build() '生成细节区
Book
.SaveToPDF(fl) '保存为PDF文件
Dim
Proc As New Process '打开PDF文件
Proc
.File = fl
Proc
.Start()

请教一下老师!能否出库单号另存一个PDF文件吗?

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


加好友 发短信
等级:幼狐 帖子:86 积分:663 威望:0 精华:0 注册:2022/1/13 1:13:00
  发帖心情 Post By:2022/3/28 21:26:00 [只看该作者]

按出库单号另存为一个PDF文件?

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


加好友 发短信
等级:超级版主 帖子:107680 积分:547721 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/3/28 21:31:00 [只看该作者]

Dim fl As String = ProjectPath & "Reports\出库单“ & tables("出库单").current("出库单号") & ”.pdf"

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


加好友 发短信
等级:幼狐 帖子:86 积分:663 威望:0 精华:0 注册:2022/1/13 1:13:00
  发帖心情 Post By:2022/3/28 22:02:00 [只看该作者]

谢谢!

 回到顶部