Excel Forum

Code: Select all

Imports System.Drawing
Imports Spire.Pdf
Imports Spire.Pdf.Graphics

Namespace pdf_graphic_overlay
	Class Program
		Private Shared Sub Main(args As String())
			'load two documents
			Dim doc1 As New PdfDocument()
			doc1.LoadFromFile("C:\Users\toshiba\Desktop\tum.pdf")
			Dim doc2 As New PdfDocument()
			doc2.LoadFromFile("C:\Users\toshiba\Desktop")
			'Create page template
			Dim template As PdfTemplate = doc1.Pages(0).CreateTemplate()
			'set PDF overlay effect and set transparency mode
			For Each page As PdfPageBase In doc2.Pages
				'set transparency 
				page.Canvas.SetTransparency(0.25F, 0.25F, PdfBlendMode.Overlay)
				'add the first page of doc1 to every page of doc2
				page.Canvas.DrawTemplate(template, PointF.Empty)
			Next
			'Save pdf file.
			doc2.SaveToFile("Overlay.pdf")
			doc1.Close()
			doc2.Close()
			'Launching the Pdf file.
			System.Diagnostics.Process.Start("Overlay.pdf")
		End Sub
	End Class
End Namespace