如何用itext添加书签

如何用itext添加书签,第1张

‘合并图片为pdf

Dim PdfDoc As Document = New Document

PdfDoc.SetMargins(0, 0, 0, 0)

Dim PdfWriter As PdfWriter = PdfWriter.GetInstance(PdfDoc, New FileStream(PdfName, FileMode.Create))

PdfDoc.Open()

For i = 0 To Imgs.Length - 1

s = Strings.Right(Imgs(i), 4).ToLower

Select Case s

Case ".jpg", ".png"

Dim PageImg As Image = iTextSharp.text.Image.GetInstance(Imgs(i))

PdfDoc.SetPageSize(New Rectangle(PageImg.Width, PageImg.Height))

PdfDoc.NewPage()

PdfDoc.Add(PageImg)

Case Else

End Select

Next

下面的代码可以加上书签,以纯数字表示,即第一页,书签为1

Dim Cb As PdfContentByte = PdfWriter.DirectContent

Dim Root As PdfOutline = Cb.RootOutline '书签的根

Dim Outline As PdfOutline

Dim Action As PdfAction

For i = 1 To 总页数 '从第一页到最后一页(跳过前面的附属页),逐个添加书签

Action = PdfAction.GotoLocalPage(i, New PdfDestination(PdfDestination.FIT), PdfWriter)

Outline = New PdfOutline(Root, Action, i.ToString)

Next i

pdfdoc.close

要是一个现有的pdf,就不知道如何弄过来。试验了几次,不行。我想关键点应该在打开pdf的方法上。

设置的签名,别人无法更改。

1、找到要签字的PDF格式文件,双击打开它。

2、然后【文件】---【打开】---【桌面】保存文件的位置,找到文件,点击打开。这种方法麻烦一点。

3、然后在打开页面上找到【PDF签名】,然后选中【创建签名】选项;

4、可以选择【直接导入图片】或者【绘制签名】,选择后者,然后绘制自定义签字【已审阅】,然后命名【名称】,还可以添加密码保护。

5、然后【双击应用签名】,就可以得到下面自定义绘制的签名;

6、注意:这个签字别人是不能更改的,因为设置了密码,所以这样就可以对签字起到一个保护的作用。


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/bake/11645269.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-17
下一篇 2023-05-17

发表评论

登录后才能评论

评论列表(0条)

保存