- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- PDF报表加密 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=144706)
-- 发布时间：2019/12/27 14:52:00
-- PDF报表加密
老师，word报表生成后转为pdf,但还是可以编辑，百度了一个用ja va加密的方式，但确实不会ja va,请抽时间看看能否用在pdf加密上。
生成报表代码：
Dim tm As String = ProjectPath & "Attachments\\介绍信.doc" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\介绍信.doc" \'指定目标文件
Dim fl2 As String = ProjectPath & "Reports\\介绍信.pdf" \'生产PDF使用
Dim mg As String = ProjectPath & "Images\\二维码.wmf" \'约定的图片文件
Dim wrt As New WordReport(Tables("介绍信管理"),tm,fl) \'定义一个WordReport
\'For Each r As Row In Tables("介绍信管理").Rows \'逐行生成报表
Dim r As Row = Tables("介绍信管理").Current
wrt.ReplaceWithImage("[登记人]",r("登记人") & ".jpg",40,20) \'替换审核人名字为签名,不签名直接删除
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
Bar.QRCodeModuleSize = 1 \'二维码的放大倍数
Bar.Code = "介绍信编码:" & r("介绍信编号") & vbcrlf & "所属机构:" & r("所属机构") & vbcrlf & "主送单位:" & r("主送单位") & vbcrlf & "介绍人:" & r("介绍人") & vbcrlf & "身份证号码:" & r("身份证号码") & vbcrlf & "经办事宜:" & r("经办事宜") & vbcrlf & "有效期:" & r("有效期") & vbcrlf & "出具日期:" & r("出具日期")
bar.SaveImage(mg,300)
wrt.BuildOne(r)
wrt.SaveToPDF(fl2) \'保存为PDF适用
wrt.Quit() \'退出
Dim Proc As New Process \'打开PDF文件适用
Proc.File = fl2 \'PDF文件适用
Proc.Start() \'PDF文件适用
-- 发布时间：2019/12/27 14:53:00
--
网址发不出来，只能截图了，请老师看看应该怎么用，谢谢、
此主题相关图片如下：qq截图20191227145150.png
-- 发布时间：2019/12/27 15:15:00
--
这个需要使用第三方的pdf组件来控制pdf，比如itextsharp。第三方组件的用法请自行学习解决
-- 发布时间：2019/12/27 20:46:00
--
老师，论坛看到一篇用专业报表的，我模板报表怎么用这个方式呢？
-- 发布时间：2019/12/27 21:37:00
--
那是专业报表专用的，没有办法用到其它已经生成的pdf文件