Foxtable(狐表)用户栏目专家坐堂 → [求助]Savetopdf 生成的pdf修改问题


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

主题:[求助]Savetopdf 生成的pdf修改问题

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


加好友 发短信
等级:三尾狐 帖子:739 积分:7211 威望:0 精华:0 注册:2015/9/14 14:26:00
[求助]Savetopdf 生成的pdf修改问题  发帖心情 Post By:2018/12/19 8:14:00 [显示全部帖子]

领用Savetopdf 生成的pdf文件,发现是可以编辑修改的,在论坛上我也找了相应的帮助,参考了如下地址

http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=77213&replyID=533433&skin=1

 

但生成的图片很不清晰

 

能否在生成时 加密码啊,只要不能修改就行

 

[此贴子已经被作者于2018/12/19 8:17:28编辑过]

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


加好友 发短信
等级:三尾狐 帖子:739 积分:7211 威望:0 精华:0 注册:2015/9/14 14:26:00
  发帖心情 Post By:2018/12/19 11:06:00 [显示全部帖子]

谢谢 我试试啊

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


加好友 发短信
等级:三尾狐 帖子:739 积分:7211 威望:0 精华:0 注册:2015/9/14 14:26:00
  发帖心情 Post By:2018/12/20 9:00:00 [显示全部帖子]

可以生成图片, 但是 生成的图片太小了,我换了图片格式也不行,打印和存储 都很小。

在窗口上弄正常模式显示没问题


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


加好友 发短信
等级:三尾狐 帖子:739 积分:7211 威望:0 精华:0 注册:2015/9/14 14:26:00
  发帖心情 Post By:2018/12/20 11:40:00 [显示全部帖子]

谢谢 我试试
图片点击可在新窗口打开查看此主题相关图片如下:qq图片20181220121753.png
图片点击可在新窗口打开查看

 

对代码理解的不透,这样实现后 还是可以编辑

[此贴子已经被作者于2018/12/20 12:19:26编辑过]

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


加好友 发短信
等级:三尾狐 帖子:739 积分:7211 威望:0 精华:0 注册:2015/9/14 14:26:00
  发帖心情 Post By:2018/12/20 12:28:00 [显示全部帖子]

试了,一样可以编辑,是不是我理解的不对啊
[此贴子已经被作者于2018/12/20 12:42:19编辑过]

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


加好友 发短信
等级:三尾狐 帖子:739 积分:7211 威望:0 精华:0 注册:2015/9/14 14:26:00
  发帖心情 Post By:2018/12/21 5:26:00 [显示全部帖子]

打开pdf后 点击编辑,正文还可以修改

 有密码保护了,但还是可以编辑,

 


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20181221074842.png
图片点击可在新窗口打开查看

 pdf显示如下权限


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20181221075051.png
图片点击可在新窗口打开查看

您说的那些我也加上了

Dim reader As New iTextSharp.text.pdf.PdfReader(fl)
Dim document As New  iTextSharp.text.Document(reader.GetPageSizeWithRotation(1))
Dim n As Integer = reader.NumberOfPages
Dim baos As New IO.FileStream("d:\123.pdf", IO.FileMode.Create, IO.FileAccess.Write)
Dim copy As New  iTextSharp.text.pdf.PdfCopy(document, baos)

Dim ownerPassword = Encoding.default.GetBytes("12345")
Dim permissions =iTextSharp.text.pdf.PdfWriter.ALLOW_SCREENREADERS Or iTextSharp.text.pdf.PdfWriter.ALLOW_DEGRADED_PRINTING Or iTextSharp.text.pdf.PdfWriter.ALLOW_MODIFY_ANNOTATIONS Or iTextSharp.text.pdf.PdfWriter.ALLOW_FILL_IN Or  iTextSharp.text.pdf.PdfWriter.ALLOW_ASSEMBLY Or iTextSharp.text.pdf.PdfWriter.ALLOW_COPY Or iTextSharp.text.pdf.PdfWriter.ALLOW_MODIFY_CONTENTS Or iTextSharp.text.pdf.PdfWriter.ALLOW_PRINTING
copy.setEncryption(Nothing, ownerPassword, permissions,False)
copy.ViewerPreferences =  iTextSharp.text.pdf.PdfWriter.HideToolbar Or iTextSharp.text.pdf.PdfWriter.HideMenubar Or iTextSharp.text.pdf.PdfWriter.HideWindowUI
'往pdf中写入内容
document.Open()
For i9 As Integer = 1 To n
    Dim page As  iTextSharp.text.pdf.PdfImportedPage = copy.GetImportedPage(reader, i9)
    copy.AddPage(page)
Next
document.Close()
reader.Close()

[此贴子已经被作者于2018/12/21 7:52:37编辑过]

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


加好友 发短信
等级:三尾狐 帖子:739 积分:7211 威望:0 精华:0 注册:2015/9/14 14:26:00
  发帖心情 Post By:2018/12/21 10:17:00 [显示全部帖子]

谢谢甜总

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:pdf.rar


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


加好友 发短信
等级:三尾狐 帖子:739 积分:7211 威望:0 精华:0 注册:2015/9/14 14:26:00
  发帖心情 Post By:2018/12/21 14:48:00 [显示全部帖子]

非常感谢,不能编辑了, 不知道是不是 上面代码的问题

 

现在 在WebBrowser中 不能显示 pdf了, 提示保存文件

[此贴子已经被作者于2018/12/21 17:33:14编辑过]

 回到顶部