1. using Spire.Pdf;
2. using Spire.Pdf.Annotations;
3. using Spire.Pdf.Annotations.Appearance;
4. using Spire.Pdf.Graphics;
5. using System;
6. using System.Drawing;
8. namespace AddStamp_PDF
9. {
10. class Program
11. {
12. static void Main(string[] args)
13. {
14. //创建一个PdfDocument类对象，并加载PDF文档
15. PdfDocument doc = new PdfDocument();
16. doc.LoadFromFile(@"C:\\Users\\Administrator\\Desktop\\test.pdf");
17. //获取PDF文档第一页
18. PdfPageBase page = doc.Pages[0];
19. //新建一个PdfRubberStampAnnotation对象，指定其注释的位置和大小
20. PdfRubberStampAnnotation loStamp = new PdfRubberStampAnnotation(new RectangleF(new PointF(-5, -5), new SizeF(200, 200)));
21. //实例化一个PdfAppearance对象，并加载作为印章的图片
22. PdfAppearance loApprearance = new PdfAppearance(loStamp);
23. PdfImage image = PdfImage.FromFile(@"C:\\Users\\Administrator\\Desktop\\yz.jpg");
24. //新建一个PDF模板，并在模板里绘制图片
25. PdfTemplate template = new PdfTemplate(600, 800);
26. template.Graphics.DrawImage(image, 0, 0);
27. loApprearance.Normal = template;
28. loStamp.Appearance = loApprearance;
29. //添加印章到PDF文档
30. page.AnnotationsWidget.Add(loStamp);
31. //保存并打开文档
32. string output = "ImageStamp.pdf";
33. doc.SaveToFile(output);
34. System.Diagnostics.Process.Start("ImageStamp.pdf");
35. }
36. }
37. }

Imports Spire.Pdf
Imports Spire.Pdf.Graphics

Namespace DrawFilledRectangles
    Partial Public Class Form1
        Inherits Form
        Public Sub New()
            InitializeComponent()
        End Sub

        Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles button1.Click
            Dim pdf As New PdfDocument()
            pdf.LoadFromFile("..\\..\\..\\..\\..\\..\\Data\\DrawingTemplate.pdf")
            \'Create one page
            Dim page As PdfPageBase = pdf.Pages(0)

            \'save graphics state
            Dim state As PdfGraphicsState = page.Canvas.Save()

            \'Set rectangle display location and size
            Dim x As Integer = 200
            Dim y As Integer = 300
            Dim width As Integer = 200
            Dim height As Integer = 120
            \'Create one page and brush
            Dim pen As New PdfPen(Color.Black, 1f)
            Dim brush As PdfBrush = New PdfSolidBrush(Color.OrangeRed)
            \'Draw a filled rectangle
            page.Canvas.DrawRectangle(pen, brush, New Rectangle(New Point(x, y), New Size(width, height)))

            \'restore graphics
            page.Canvas.Restore(state)

            Dim result As String = "DrawFilledRectangles_out.pdf"

            \'Save the document
            pdf.SaveToFile(result)
            \'Launch the Pdf file
            PDFDocumentViewer(result)
        End Sub
        Private Sub PDFDocumentViewer(ByVal filename As String)
            Try
                Process.Start(filename)
            Catch
            End Try
        End Sub
    End Class
End Namespace

上面是列子的代码

此主题相关图片如下：xt1.png

此主题相关图片如下：xt2.png

Dim pdf As New sPdf.PdfDocument
pdf.LoadFromFile("C:\\Users\\EGIT\\Desktop\\tesst.pdf")

Dim page As sPdf.PdfPageBase = pdf.Pages(0)


Dim state As sG.PdfGraphicsState = page.Canvas.Save()

Dim x As Integer = 200
Dim y As Integer = 300
Dim width As Integer = 200
Dim height As Integer = 120


Dim pen As New sPdf.PdfPen(Color.Black, 1f) ’----------这个sPdf.PdfPen提示未定义类型     是命名空间的问题吗？

Dim brush As sPdf.PdfBrush = New PdfSolidBrush(Color.OrangeRed) \'-------这个也是一样错误

page.Canvas.DrawRectangle(pen, brush, New Rectangle(New Point(x, y), New Size(width, height)))


page.Canvas.Restore(state)

Dim result As String = "C:\\Users\\EGIT\\Desktop\\test_out.pdf"

\'Save the document
pdf.SaveToFile(result)