Program.vb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 | 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 |
Click here to get your Free Trial version of the SDK
also available as: