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


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

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

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


加好友 发短信
等级:三尾狐 帖子:736 积分:7174 威望: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编辑过]

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/12/19 9:15:00 [只看该作者]

那你就直接用vba存为图片,如

 

Dim App As New MSExcel.Application
try
    Dim Wb As MSExcel.WorkBook = app.WorkBooks.open("d:\test.xls")
    Dim Ws = wb.WorkSheets(1)
    Dim rg As MSExcel.Range = ws.UsedRange
   
    rg.copy
    'app.visible = True
    ClipBoard.GetImage.save("d:\aaa.wmf")
    app.quit
catch ex As exception
    msgbox(ex.message)
    app.quit
End try


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


加好友 发短信
等级:三尾狐 帖子:736 积分:7174 威望:0 精华:0 注册:2015/9/14 14:26:00
  发帖心情 Post By:2018/12/19 11:06:00 [只看该作者]

谢谢 我试试啊

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


加好友 发短信
等级:三尾狐 帖子:736 积分:7174 威望:0 精华:0 注册:2015/9/14 14:26:00
  发帖心情 Post By:2018/12/20 9:00:00 [只看该作者]

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

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


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/12/20 9:29:00 [只看该作者]

修改pdf权限吧,参考代码

 

Dim reader As New iTextSharp.text.pdf.PdfReader("d:\test.pdf")
Dim document As New  iTextSharp.text.Document(reader.GetPageSizeWithRotation(1))
Dim n As Integer = reader.NumberOfPages
Dim baos As New IO.FileStream("d:\test2.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_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 i As Integer = 1 To n
    Dim page As  iTextSharp.text.pdf.PdfImportedPage = copy.GetImportedPage(reader, i)
    copy.AddPage(page)
Next
document.Close()
reader.Close()

 

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

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=100045&skin=0

 


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


加好友 发短信
等级:三尾狐 帖子:736 积分:7174 威望: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编辑过]

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/12/20 12:27:00 [只看该作者]

 

你去打开123.pdf这个文件测试啊。

 

 


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


加好友 发短信
等级:三尾狐 帖子:736 积分:7174 威望:0 精华:0 注册:2015/9/14 14:26:00
  发帖心情 Post By:2018/12/20 12:28:00 [只看该作者]

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

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/12/20 15:25:00 [只看该作者]

 

1、请截图说明可以怎么编辑?

 

2、除了这些 iTextSharp.text.pdf.PdfWriter.ALLOW_COPY Or iTextSharp.text.pdf.PdfWriter.ALLOW_MODIFY_CONTENTS Or iTextSharp.text.pdf.PdfWriter.ALLOW_PRINTING

还有如下权限,你可以加上看看

 

PdfWriter.ALLOW_ASSEMBLYPdfWriter.ALLOW_FILL_INPdfWriter.ALLOW_MODIFY_ANNOTATIONSPdfWriter.ALLOW_DEGRADED_PRINTINGPdfWriter.ALLOW_SCREENREADERSPdfWriter.DO_NOT_ENCRYPT_METADATA


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


加好友 发短信
等级:三尾狐 帖子:736 积分:7174 威望: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编辑过]

 回到顶部
总数 16 1 2 下一页