Foxtable(狐表)用户栏目专家坐堂 → 修改pdf属性


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

主题:修改pdf属性

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/5/4 14:19:00 [只看该作者]

以下是引用huhu在2017/5/4 13:06:00的发言:
多问一句。
上面的是在ft实现的。
有没有方法在vs实现,比如上面的dll和代码怎么在vs里面弄?

 

如果用3楼的,你在vs里面引用dll就行了。

 

如果是用2楼的,你在vs引用dll,同时,把要放在foxtable安装目录下的东西,拷贝到你项目的bin/debug目录去。


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


加好友 发短信
等级:五尾狐 帖子:1182 积分:8225 威望:0 精华:0 注册:2015/3/30 10:44:00
  发帖心情 Post By:2017/5/4 14:42:00 [只看该作者]

如果我用3楼,itextsharp.dll在vs里直接用。下面代码是不是也放入到vs内。新建项目应该选择哪一个?


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

能备注一下每行大概是啥意思不。

Dim reader As New iTextSharp.text.pdf.PdfReader("G:\test2.pdf")
Dim document As New  iTextSharp.text.Document(reader.GetPageSizeWithRotation(1))
Dim n As Integer = reader.NumberOfPages
Dim baos As New IO.FileStream("g:\test8.pdf", IO.FileMode.Create, IO.FileAccess.Write)
Dim copy As New  iTextSharp.text.pdf.PdfCopy(document, baos)
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.addTitle("测试")
document.addSubject("测试")
document.addKeywords("测试")
document.addAuthor("测试")
document.addCreator("测试")
document.addHeader("测试", "测试")

document.Close()
reader.Close()


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


加好友 发短信
等级:婴狐 帖子:1 积分:65 威望:0 精华:0 注册:2017/5/7 15:39:00
  发帖心情 Post By:2017/5/7 15:50:00 [只看该作者]

色老師,3樓中你的代碼是複製PDF模板,請教如何替換PDF模板中部分內容,生成新的PDF文件?  
如替換PDF模板中的[$姓名],[$出生日期],[$單位]

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/5/7 17:07:00 [只看该作者]

 无法替换内容。

 回到顶部
总数 14 上一页 1 2