Important Update
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 58 | Imports Bytescout.PDF''' <summary>''' This example demonstrates how to add page numbers (labels) visible in the page thumbnails panel of PDF viewer.''' </summary>Class Program Shared Sub Main() ' Create new document Dim pdfDocument = New Document() pdfDocument.RegistrationName = "demo" pdfDocument.RegistrationKey = "demo" ' Add twenty pages For i As Integer = 0 To 19 pdfDocument.Pages.Add(New Page(PaperFormat.A4)) Next ' First five pages will have roman numbers I, II, III, ... Dim pageLabel = New PageLabel(0, PageNumberingStyle.UppercaseRoman) pdfDocument.PageLabels.Add(pageLabel) ' Next five pages will have arabic numbers 6, 7, 8, ... pageLabel.Style = PageNumberingStyle.DecimalArabic pageLabel.StartPortion = 6 pageLabel.FirstPageIndex = 5 pdfDocument.PageLabels.Add(pageLabel) ' Next five pages will have complex page numbers with prefix A-11, A-12, A-13, ... pageLabel.Style = PageNumberingStyle.DecimalArabic pageLabel.Prefix = "A-" pageLabel.StartPortion = 11 pageLabel.FirstPageIndex = 10 pdfDocument.PageLabels.Add(pageLabel) ' Next five pages will use letters as page numbers P, Q, R, ... pageLabel.Prefix = "" pageLabel.Style = PageNumberingStyle.UppercaseLetters pageLabel.StartPortion = 16 pageLabel.FirstPageIndex = 15 pdfDocument.PageLabels.Add(pageLabel) ' Force PDF viewer to show page thumbnails panel on start up pdfDocument.PageMode = PageMode.Thumbnail ' Save document to file pdfDocument.Save("result.pdf") ' Cleanup pdfDocument.Dispose() ' Open document in default PDF viewer app Process.Start("result.pdf") End SubEnd Class |
Click here to get your Free Trial version of the SDK
also available as:
