Important Update
LinkToPage.vbs
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 | ' This example demonstrates how to create a navigation link to a page.' Create Bytescout.PDF.Document objectSet pdfDocument = CreateObject("Bytescout.PDF.Document")pdfDocument.RegistrationName = "demo"pdfDocument.RegistrationKey = "demo"Set comHelpers = pdfDocument.ComHelpers' Add two pagesSet page1 = comHelpers.CreatePage(comHelpers.PAPERFORMAT_A4)pdfDocument.Pages.Add(page1)Set page2 = comHelpers.CreatePage(comHelpers.PAPERFORMAT_A4)pdfDocument.Pages.Add(page2)Set font = comHelpers.CreateStandardFont(comHelpers.STANDARDFONTS_TIMES, 12)Set brush = comHelpers.CreateSolidBrush(comHelpers.CreateColorGray(0))' Create link annotation pointing to Page 2, 200 Points from the top.Set destination = comHelpers.CreateDestination((page2), 200)Set link = comHelpers.CreateLinkAnnotation((destination), 20, 20, 100, 25)link.Color = comHelpers.CreateColorRGB(255, 0, 0) ' you can change the link colorpage1.Annotations.Add(link)' Draw link text (optional)Set stringFormat = comHelpers.CreateStringFormat()stringFormat.HorizontalAlign = comHelpers.HORIZONTALALIGN_CENTERstringFormat.VerticalAlign = comHelpers.VERTICALALIGN_CENTERpage1.Canvas.DrawString_7 "Link to Page 2", (font), (brush), 20, 20, 100, 25, (stringFormat)' Draw a text at the link targetpage2.Canvas.DrawString "Link target", (font), (brush), 20, 200' Save document to filepdfDocument.Save("result.pdf")' Open document in default PDF viewer appSet shell = CreateObject("WScript.Shell")shell.Run "result.pdf", 1, false |
Click here to get your Free Trial version of the SDK
also available as:
