Module1.vb
Imports Bytescout.PDF Module Module1 Sub Main() ' Open first document Dim document1 = New Document("document1.pdf") document1.RegistrationName = "demo" document1.RegistrationKey = "demo" ' Open second document Dim document2 = New Document("document2.pdf") document2.RegistrationName = "demo" document2.RegistrationKey = "demo" ' Add pages from document2 to document1 For i As Integer = 0 To document2.Pages.Count - 1 document1.Pages.Add(document2.Pages(i)) Next ' Save merged document document1.Save("MergedDocument.pdf") ' Open merged document in default PDF viewer application Process.Start("MergedDocument.pdf") End Sub End Module
Click here to get your Free Trial version of the SDK
also available as: