ByteScout Premium Suite – VB.NET – Add watermarks to pdf with pdf sdk

Home
/
Articles
/
ByteScout Premium Suite – VB.NET – Add watermarks to pdf with pdf sdk

printable version:
ByteScout-Premium-Suite-VB-NET-Add-watermarks-to-pdf-with-pdf-sdk.pdf

How to add watermarks to pdf with pdf sdk in VB.NET with ByteScout Premium Suite

Continuous learning is a crucial part of computer science and this tutorial shows how to add watermarks to pdf with pdf sdk in VB.NET

On this page you will learn from code samples for programming in VB.NET.Writing of the code to add watermarks to pdf with pdf sdk in VB.NET can be executed by programmers of any level using ByteScout Premium Suite. ByteScout Premium Suite: the set that includes 12 SDK products from ByteScout including tools and components for PDF, barcodes, spreadsheets, screen video recording. It can add watermarks to pdf with pdf sdk in VB.NET.

The SDK samples given below describe how to quickly make your application do add watermarks to pdf with pdf sdk in VB.NET with the help of ByteScout Premium Suite. This VB.NET sample code is all you need for your app. Just copy and paste the code, add references (if needs to) and you are all set! Enjoy writing a code with ready-to-use sample VB.NET codes.

All these programming tutorials along with source code samples and ByteScout free trial version are available for download from our website.

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