ByteScout PDF SDK – VB.NET – Add Watermarks to PDF

Home
/
Articles
/
ByteScout PDF SDK – VB.NET – Add Watermarks to PDF

printable version:
ByteScout-PDF-SDK-VB-NET-Add-Watermarks-to-PDF.pdf

How to add watermarks to PDF in VB.NET with ByteScout PDF SDK

How to code in VB.NET to add watermarks to PDF with this step-by-step tutorial

The sample source codes on this page shows how to add watermarks to PDF in VB.NET. Want to add watermarks to PDF in your VB.NET app? ByteScout PDF SDK is designed for it. ByteScout PDF SDK is the library for pdf documents generation, modification and updates. Can also generate and fill PDF forms. Provides support for text (fonts, style, size, font family), layers, pdf form fields, vector and raster drawings.

The SDK samples like this one below explain how to quickly make your application do add watermarks to PDF in VB.NET with the help of ByteScout PDF SDK. Follow the instructions from the scratch to work and copy the VB.NET code. Enjoy writing a code with ready-to-use sample VB.NET codes.

ByteScout free trial version is available for download from our website. It includes all these programming tutorials along with 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)

Program.vb

      Imports Bytescout.PDF

''' <summary>
''' This example demonstrates how add text watermark to document page.
''' </summary>
Class Program

    Shared Sub Main()

        ' Create new document
        Dim pdfDocument = New Document()
        pdfDocument.RegistrationName = "demo"
		pdfDocument.RegistrationKey = "demo"
        ' Add pages
        pdfDocument.Pages.Add(New Page(PaperFormat.A4))
        pdfDocument.Pages.Add(New Page(PaperFormat.A4))
        pdfDocument.Pages.Add(New Page(PaperFormat.A4))

        ' Add tiling watermark
        Dim watermark1 = New TextWatermark("Tiling Watermark")
        watermark1.WatermarkLocation = TextWatermarkLocation.Tiled
        watermark1.Angle = 30
        Dim brush1 = New SolidBrush(New ColorRGB(0, 0, 255))
        brush1.Opacity = 50 ' make the brush semitransparent
        watermark1.Brush = brush1
        pdfDocument.Watermarks.Add(watermark1)

        ' Add autosized watermark to every page of the document
        Dim watermark2 = New TextWatermark("Diagonal Watermark")
        watermark2.WatermarkLocation = TextWatermarkLocation.DiagonalFromBottomLeftToTopRight
        watermark2.Font = New Font("Times New Roman", 16)
        Dim brush2 = New SolidBrush(New ColorRGB(255, 0, 0))
        brush2.Opacity = 50 ' make the brush semitransparent
        watermark2.Brush = brush2
        watermark2.Pen = New SolidPen(New ColorRGB(255, 0, 0)) ' outline pen is optional
        pdfDocument.Watermarks.Add(watermark2)

        ' Add watermark of custom size and location to the first page only
        Dim watermark3 = New TextWatermark("Simple Watermark")
        watermark3.Font = New Font(StandardFonts.HelveticaBold, 24)
        watermark3.Brush = New SolidBrush(New ColorRGB(0, 128, 0))
        watermark3.Left = 350
        watermark3.Top = 800
        pdfDocument.Pages(0).Watermarks.Add(watermark3)

        ' Save document to file
        pdfDocument.Save("result.pdf")

        ' Cleanup 
		pdfDocument.Dispose()

        ' Open document in default PDF viewer app
        Process.Start("result.pdf")

    End Sub

End Class