ByteScout PDF Suite – VB.NET – Add image stamp in pdf with pdf extractor sdk

Home
/
Articles
/
ByteScout PDF Suite – VB.NET – Add image stamp in pdf with pdf extractor sdk

printable version:
ByteScout-PDF-Suite-VB-NET-Add-image-stamp-in-pdf-with-pdf-extractor-sdk.pdf

How to add image stamp in pdf with pdf extractor sdk in VB.NET using ByteScout PDF Suite

Learning is essential in computer world and the tutorial below will demonstrate how to add image stamp in pdf with pdf extractor sdk in VB.NET

The sample shows instructions and algorithm of how to add image stamp in pdf with pdf extractor sdk and how to make it run in your VB.NET application. ByteScout PDF Suite can add image stamp in pdf with pdf extractor sdk. It can be applied from VB.NET. ByteScout PDF Suite is the set that includes 6 SDK products to work with PDF from generating rich PDF reports to extracting data from PDF documents and converting them to HTML. This bundle includes PDF (Generator) SDK, PDF Renderer SDK, PDF Extractor SDK, PDF to HTML SDK, PDF Viewer SDK and PDF Generator SDK for Javascript.

Want to save time? You will save a lot of time on writing and testing code as you may just take the VB.NET code from ByteScout PDF Suite for add image stamp in pdf with pdf extractor sdk below and use it in your application. Just copy and paste the code into your VB.NET application’s code and follow the instructions. If you want to use these VB.NET sample examples in one or many applications then they can be used easily.

Our website gives trial version of ByteScout PDF Suite for free. It also includes documentation and source code samples.

On-demand (REST Web API) version:
Web API (on-demand version)

On-premise offline SDK for Windows:
60 Day Free Trial (on-premise)

Module1.vb

      Imports System.Drawing
Imports Bytescout.PDFExtractor

Namespace AddImageStampInPDF

    Class Program

        Shared Sub Main(ByVal args As String())

            Dim inputFile As String = ".\Invoice.pdf"
            Dim outputFile As String = ".\Invoice_Stamped.pdf"
            Dim stampImageFile As String = ".\stamp_image.png"

            Using stamper As New Stamper("demo", "demo")

                ' Optionally make the image background transparent
                ' stamper.MakeStampImageTransparent = true

                Using image As Image = Image.FromFile(stampImageFile)

                    ' Get image size in PDF units
                    Dim imageSizeInPoints As SizeF = stamper.GetImageSizeInPoints(image)

                    Dim Rectangle = New RectangleF(440, 370, imageSizeInPoints.Width / 3, imageSizeInPoints.Height / 3)

                    stamper.Stamp(inputFile, outputFile, image, Rectangle, 0, -1)

                End Using

            End Using

            ' Open result file in default associated application (for demo purposes)
            Process.Start(outputFile)

        End Sub

    End Class

End Namespace