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

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

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

ON-PREMISE OFFLINE SDK

60 Day Free Trial or Visit ByteScout Premium Suite Home Page

Explore ByteScout Premium Suite Documentation

Explore Samples

Sign Up for ByteScout Premium Suite Online Training

ON-DEMAND REST WEB API

Get Your API Key

Explore Web API Docs

Explore Web API Samples

VIDEO

ON-PREMISE OFFLINE SDK

60 Day Free Trial or Visit ByteScout Premium Suite Home Page

Explore ByteScout Premium Suite Documentation

Explore Samples

Sign Up for ByteScout Premium Suite Online Training

ON-DEMAND REST WEB API

Get Your API Key

Explore Web API Docs

Explore Web API Samples

Tutorials:

prev
next