代码 红色部分还得麻烦老师继续指导下 谢谢 老师节日快乐
Dim pdf As Spire.Pdf.PdfDocument = New Spire.Pdf.PdfDocument()
pdf.LoadFromFile("C:\Users\Administrator\Desktop\公文助手20201224\Reports\ 胡涛入党申请谈话通知书.pdf")
Dim page As Spire.Pdf.PdfPageBase = pdf.Pages(0)
Dim loStamp As Spire.Pdf.Annotations.PdfRubberStampAnnotation = New Spire.Pdf.Annotations.PdfRubberStampAnnotation(New RectangleF(New PointF(-5, -5), New SizeF(200, 200)))
Dim loApprearance As new Spire.Pdf.Annotations.Appearance.PdfAppearance(loStamp)
Dim image As Image = Image.FromFile("C:\Users\Administrator\Desktop\dzyz\电子印章\Attachments\电子印章.png")
'Dim template As Spire.Pdf.PdfTemplate(600, 800)
'page.DrawImage(image, 0, 0)
'loApprearance.Normal = template
loStamp.Appearance = loApprearance
page.AnnotationsWidget.Add(loStamp)
Dim output As String = "C:\Users\Administrator\Desktop\公文助手20201224\Reports\ 胡涛入党申请谈话通知书11.pdf"
pdf.SaveToFile(output)
System.Diagnostics.Process.Start("C:\Users\Administrator\Desktop\公文助手20201224\Reports\ 胡涛入党申请谈话通知书11.pdf")
代码运行提示如下:
此主题相关图片如下:1.png
此主题相关图片如下:2.png