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 | Imports Bytescout.PDF ''' <summary> ''' This example demonstrates how to load and modify an existing document. ''' </summary> Class Program Shared Sub Main() ' Create new Document object Dim pdfDocument = New Document() pdfDocument.RegistrationName = "demo" pdfDocument.RegistrationKey = "demo" ' Load existing document pdfDocument.Load( "sample.pdf" ) ' Add new page to loaded document Dim page As New Page(PaperFormat.A4) Dim font As New Font(StandardFonts.Times, 24) Dim brush As New SolidBrush() page.Canvas.DrawString( "New Page" , font, brush, 20, 20) pdfDocument.Pages.Add(page) ' 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: