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

<%@ Page Language="VB" MasterPageFile="~/tpl/Demo.Master" AutoEventWireup="true" Inherits="Aspose.Cells.Demos.VisualBasic.AddingPdfBookmarks" 
Title="Adding Pdf Bookmarks - Aspose.Cells Demos" Codebehind="adding-pdf-bookmarks.aspx.vb" %>


<asp:Content ID="Content" ContentPlaceHolderID="MainContent" runat="Server">
    <p class="componentDescriptionTxt">
        <span style="font-size: 10pt; font-family: Arial"></span>&nbsp;</p>
    <p class="componentDescriptionTxt">
        <span style="font-size: 10pt; font-family: Arial"></span>
            <table align="center" border="0" cellpadding="0" cellspacing="0" width="90%">
                <tr>
                    <td valign="top" width="19">
                        <img alt="" height="41" src="/Common/images/heading_lft.jpg" width="19" /></td>
                    <td class="demos-heading-bg" width="100%">
                        <h2 class="demos-heading-bg">
                            &nbsp;<font face="Arial" size="4">Adding Pdf Bookmarks - Aspose.Cells</font></h2>
                    </td>
                    <td valign="top" width="19">
                        <img alt="" height="41" src="/Common/images/heading_rt.jpg" width="19" /></td>
                </tr>
            </table>
    </p>
    <p class="componentdescriptiontxt">
        <font face="Arial" size="2">This online demo demonstrates how to add pdf bookmarks using <a href="http://www.aspose.com/categories/file-format-components/aspose.cells-for-.net-and-java/default.aspx"
            style="color: blue; text-decoration: underline; text-underline: single">Aspose.Cells</a>
            for .NET while converting a workbook to Pdf file.</font></p>
    <p class="componentdescriptiontxt">
        <font face="Arial" size="2">Aspose.Cells allows you to add bookmarks for your requirement at runtime. 
        PDF bookmarks can improve the navigability of longer PDF documents. 
        When adding bookmark links to other parts of a PDF document, you can have precise control over the exact view you want, 
        you're not limited to just linking to a page or so. 
        You set up the precise view by positioning the page as you would like it to be viewed, and then you create the bookmarks.
        You can either open the output file into your Pdf viewer
        or save directly to your disk.</font></p>
    <p class="componentDescriptionTxt">
        <asp:Button ID="btnExecute" runat="server" Text="Process" OnClick="btnExecute_Click"/>&nbsp;</p>
</asp:Content>

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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151

Imports System
Imports System.Data
Imports System.IO
Imports System.Configuration
Imports System.Collections
Imports System.Web
Imports System.Web.Security
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports System.Web.UI.HtmlControls
Imports Aspose.Cells
Imports Aspose.Cells.Rendering


Partial Public Class AddingPdfBookmarks
    Inherits System.Web.UI.Page
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)


    End Sub
    Protected Sub btnExecute_Click(ByVal sender As Object, ByVal e As EventArgs)
        CreateStaticReport()
    End Sub

    Public Shared Sub CreateStaticReport()

        'Instantiate a new workbook
        Dim workbook As New Workbook()

        'Get the cells in the first(default) worksheet
        Dim cells As Cells = workbook.Worksheets(0).Cells

        'Get the A1 cell
        Dim p As Cell = cells("A1")

        'Enter a value
        p.PutValue("Preface")

        'Get the A10 cell
        Dim A As Cell = cells("A10")

        'Enter a value.
        A.PutValue("page1")

        'Get the H15 cell
        Dim D As Cell = cells("H15")

        'Enter a value
        D.PutValue("page1(H15)")

        'Add a new worksheet to the workbook
        workbook.Worksheets.Add()

        'Get the cells in the second sheet
        cells = workbook.Worksheets(1).Cells

        'Get the B10 cell in the second sheet
        Dim B As Cell = cells("B10")

        'Enter a value
        B.PutValue("page2")

        'Add a new worksheet to the workbook
        workbook.Worksheets.Add()

        'Get the cells in the third sheet
        cells = workbook.Worksheets(2).Cells

        'Get the C10 cell in the third sheet
        Dim C As Cell = cells("C10")

        'Enter a value
        C.PutValue("page3")

        'Create a main PDF Bookmark entry object
        Dim pbeRoot As New PdfBookmarkEntry()

        'Specify its text
        pbeRoot.Text = "Sections"

        'Set the destination cell/location
        pbeRoot.Destination = p

        'Set its sub entry array list
        pbeRoot.SubEntry = New ArrayList()

        'Create a sub PDF Bookmark entry object
        Dim subPbe1 As New PdfBookmarkEntry()

        'Specify its text
        subPbe1.Text = "Section 1"

        'Set its destination cell
        subPbe1.Destination = A

        'Define/Create a sub Bookmark entry object of "Section A"
        Dim ssubPbe As New PdfBookmarkEntry()

        'Specify its text
        ssubPbe.Text = "Section 1.1"

        'Set its destination
        ssubPbe.Destination = D

        'Create/Set its sub entry array list object
        subPbe1.SubEntry = New ArrayList()

        'Add the object to "Section 1"
        subPbe1.SubEntry.Add(ssubPbe)

        'Add the object to the main PDF root object
        pbeRoot.SubEntry.Add(subPbe1)

        'Create a sub PDF Bookmark entry object
        Dim subPbe2 As New PdfBookmarkEntry()

        'Specify its text
        subPbe2.Text = "Section 2"

        'Set its destination
        subPbe2.Destination = B

        'Add the object to the main PDF root object
        pbeRoot.SubEntry.Add(subPbe2)

        'Create a sub PDF Bookmark entry object
        Dim subPbe3 As New PdfBookmarkEntry()

        'Specify its text
        subPbe3.Text = "Section 3"

        'Set its destination
        subPbe3.Destination = C

        'Add the object to the main PDF root object
        pbeRoot.SubEntry.Add(subPbe3)

        'Set the PDF Bookmark root object
        workbook.SaveOptions.PdfBookmark = pbeRoot

        'Save Xls File to PDF
        workbook.Save("Xls2Pdf.pdf", FileFormatType.Pdf, SaveType.OpenInExcel, System.Web.HttpContext.Current.Response)

        'End response to avoid unneeded html after xls
        HttpContext.Current.Response.End()

    End Sub


End Class