Foxtable(狐表)用户栏目专家坐堂 → [求助]SaveToPDF能把多页保存到一个pdf文件吗?


  共有2733人关注过本帖平板打印复制链接

主题:[求助]SaveToPDF能把多页保存到一个pdf文件吗?

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


加好友 发短信
等级:六尾狐 帖子:1316 积分:9484 威望:0 精华:1 注册:2010/7/21 14:20:00
[求助]SaveToPDF能把多页保存到一个pdf文件吗?  发帖心情 Post By:2021/2/3 14:02:00 [只看该作者]

能把两个不同的内容打印在一个pdf中么?比如:

1、有个窗体打印
    Dim lj As String = id+ ".pdf"
    Dim doc As PrintDoc = e.Form.GernatePrintDoc()
    doc.SavePDF(ProjectPath +"Attachments\" + lj )

2、有个word报表
Dim tm As String  = ProjectPath & "Attachments\出库单.doc" '指定模板文件
Dim
 fl1 As String = ProjectPath & "Reports\出库单.doc" '指定目标文件
Dim
 fl2 As String = ProjectPath & "Reports\出库单.pdf" '指定目标PDF文件
Dim
 wrt As New WordReport(Tables("出库"),tm,fl1) '定义一个WordReport
wrt
.Build() '逐行生成报表
wrt
.SaveToPDF(fl2) '保存为PDF文件

能把后面的wrt追加到上面的doc上吗?如能,怎么写代码?

 回到顶部