主题：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文件适用