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、注意:这个签字别人是不能更改的,因为设置了密码,所以这样就可以对签字起到一个保护的作用。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)