The sample demonstrates how to work with bookmark in PDF document.

Download Bookmark.pdf

using System;
using System.Data;
using System.Data.OleDb;
using System.Drawing;
using Spire.Pdf;
using Spire.Pdf.Actions;
using Spire.Pdf.Bookmarks;
using Spire.Pdf.General;
using Spire.Pdf.Graphics;
using Spire.Pdf.Grid;
using Spire.Pdf.Tables;

namespace Bookmark
{
    class Program
    {
        static void Main(string[] args)
        {
            //Create a pdf document.
            PdfDocument doc = new PdfDocument();

            //margin
            PdfUnitConvertor unitCvtr = new PdfUnitConvertor();
            PdfMargins margin = new PdfMargins();
            margin.Top = unitCvtr.ConvertUnits(2.54f, PdfGraphicsUnit.Centimeter, PdfGraphicsUnit.Point);
            margin.Bottom = margin.Top;
            margin.Left = unitCvtr.ConvertUnits(3.17f, PdfGraphicsUnit.Centimeter, PdfGraphicsUnit.Point);
            margin.Right = margin.Left;

            //create section
            PdfSection section = doc.Sections.Add();
            section.PageSettings.Size = PdfPageSize.A4;
            section.PageSettings.Margins = margin;

            // Create one page
            PdfPageBase page = section.Pages.Add();

            float y = 10;

            //title
            PdfBrush brush1 = PdfBrushes.Black;
            PdfTrueTypeFont font1 = new PdfTrueTypeFont(new Font("Arial", 16f, FontStyle.Bold));
            PdfStringFormat format1 = new PdfStringFormat(PdfTextAlignment.Center);
            page.Canvas.DrawString("Sales Report", font1, brush1, page.Canvas.ClientSize.Width / 2, y, format1);
            y = y + font1.MeasureString("Sales Report", format1).Height;
            y = y + 5;

            PdfTrueTypeFont font2 = new PdfTrueTypeFont(new Font("Arial", 11f, FontStyle.Bold));
            PdfTrueTypeFont font3 = new PdfTrueTypeFont(new Font("Arial", 10f, FontStyle.Bold));
            using (OleDbConnection conn = new OleDbConnection())
            {
                conn.ConnectionString = @"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=demo.mdb";
                conn.Open();

                OleDbCommand partQueryCommand = PreparePartQueryCommand(conn);
                OleDbCommand orderItemQueryCommand = PrepareOrderItemQueryCommand(conn);

                DataTable vendors = GetVendors(conn);
                for (int i = 0; i < vendors.Rows.Count; i++)
                {
                    if (i > 0)
                    {
                        //next page
                        page = section.Pages.Add();
                        y = 0;
                    }
                    //draw vendor
                    String vendorTitle = String.Format("{0}. {1}", i + 1, vendors.Rows[i].ItemArray[1]);
                    PdfLayoutResult drawVendorLayoutResult = DrawVendor(page, vendors, i, vendorTitle, y);

                    //add vendor bookmark
                    PdfDestination vendorBookmarkDest = new PdfDestination(page, new PointF(0, y));
                    PdfBookmark vendorBookmark = doc.Bookmarks.Add(vendorTitle);
                    vendorBookmark.Color = Color.SaddleBrown;
                    vendorBookmark.DisplayStyle = PdfTextStyle.Bold;
                    vendorBookmark.Action = new PdfGoToAction(vendorBookmarkDest);

                    y = drawVendorLayoutResult.Bounds.Bottom + 5;
                    page = drawVendorLayoutResult.Page;

                    //get parts of vendor
                    DataTable parts = GetParts(partQueryCommand, (double)vendors.Rows[i].ItemArray[0]);
                    for (int j = 0; j < parts.Rows.Count; j++)
                    {
                        if (j > 0)
                        {
                            //next page
                            page = section.Pages.Add();
                            y = 0;
                        }
                        //draw part
                        String partTitle = String.Format("{0}.{1}. {2}", i + 1, j + 1, parts.Rows[j].ItemArray[1]);
                        PdfLayoutResult drawPartLayoutResult = DrawPart(page, parts, j, partTitle, y);

                        //add part bookmark
                        PdfDestination partBookmarkDest = new PdfDestination(page, new PointF(0, y));
                        PdfBookmark partBookmark = vendorBookmark.Add(partTitle);
                        partBookmark.Color = Color.Coral;
                        partBookmark.DisplayStyle = PdfTextStyle.Italic;
                        partBookmark.Action = new PdfGoToAction(partBookmarkDest);

                        y = drawPartLayoutResult.Bounds.Bottom + 5;
                        page = drawPartLayoutResult.Page;

                        //get order items
                        String orderItemsTitle = String.Format("{0} - Order Items", parts.Rows[j].ItemArray[1]);
                        DataTable orderItems = GetOrderItems(orderItemQueryCommand, (double)parts.Rows[j].ItemArray[0]);
                        DrawOrderItems(page, orderItems, orderItemsTitle, y);
                    }
                }
            }

            //Save pdf file.
            doc.SaveToFile("Bookmark.pdf");
            doc.Close();

            //Launching the Pdf file.
            System.Diagnostics.Process.Start("Bookmark.pdf");
        }

        private static DataTable GetVendors(OleDbConnection conn)
        {
            String query
                = " SELECT VendorNo, VendorName, Address1, City, State, Zip, Country, Phone, FAX "
                + " FROM vendors ";
            using (OleDbDataAdapter adapter = new OleDbDataAdapter(query, conn))
            {
                DataTable dataTable = new DataTable();
                adapter.Fill(dataTable);

                return dataTable;
            }
        }

        private static DataTable GetParts(OleDbCommand query, double vendorId)
        {
            query.Parameters[0].Value = vendorId;
            using (OleDbDataAdapter adapter = new OleDbDataAdapter(query))
            {
                DataTable dataTable = new DataTable();
                adapter.Fill(dataTable);

                return dataTable;
            }
        }

        private static DataTable GetOrderItems(OleDbCommand query, double partId)
        {
            query.Parameters[0].Value = partId;
            using (OleDbDataAdapter adapter = new OleDbDataAdapter(query))
            {
                DataTable dataTable = new DataTable();
                adapter.Fill(dataTable);

                return dataTable;
            }
        }

        private static PdfLayoutResult DrawVendor(PdfPageBase page, DataTable vendors, int index, String title, float y)
        {
            //draw title
            PdfTrueTypeFont font1 = new PdfTrueTypeFont(new Font("Arial", 11f, FontStyle.Bold));
            DataRow row = vendors.Rows[index];
            page.Canvas.DrawString(title, font1, PdfBrushes.Black, 0, y);
            y = y + font1.MeasureString(title).Height + 1;

            //draw table
            Object[][] data = new Object[vendors.Columns.Count][];
            for (int i = 0; i < vendors.Columns.Count; i++)
            {
                data[i] = new Object[2];
                data[i][0] = vendors.Columns[i].ColumnName;
                data[i][1] = vendors.Rows[index].ItemArray[i];
            }

            PdfGrid grid = new PdfGrid();
            grid.Style.CellPadding = new PdfPaddings(2, 2, 1, 1);
            grid.DataSource = data;

            float width
                = page.Canvas.ClientSize.Width
                    - (grid.Columns.Count + 1) * 0.75f;
            grid.Columns[0].Width = width * 0.20f;
            grid.Columns[1].Width = width * 0.80f;

            PdfTrueTypeFont font2 = new PdfTrueTypeFont(new Font("Arial", 10f, FontStyle.Bold));
            PdfTrueTypeFont font3 = new PdfTrueTypeFont(new Font("Arial", 10f));
            for (int i = 0; i < grid.Rows.Count; i++)
            {
                grid.Rows[i].Style.Font = font2;
                grid.Rows[i].Cells[0].Style.BackgroundBrush = PdfBrushes.CadetBlue;
                grid.Rows[i].Cells[1].Style.BackgroundBrush = PdfBrushes.SkyBlue;
            }

            PdfGridLayoutFormat layout = new PdfGridLayoutFormat();
            layout.Break = PdfLayoutBreakType.FitPage;
            layout.Layout = PdfLayoutType.Paginate;

            return grid.Draw(page, new PointF(0, y), layout);
        }

        private static PdfLayoutResult DrawPart(PdfPageBase page, DataTable parts, int index, String title, float y)
        {
            //draw title
            PdfTrueTypeFont font1 = new PdfTrueTypeFont(new Font("Arial", 10f, FontStyle.Bold));
            DataRow row = parts.Rows[index];
            page.Canvas.DrawString(title, font1, PdfBrushes.Black, 0, y);
            y = y + font1.MeasureString(title).Height + 1;

            //draw table
            Object[][] data = new Object[2][];
            data[0] = new String[parts.Columns.Count];
            for (int i = 0; i < parts.Columns.Count; i++)
            {
                data[0][i] = parts.Columns[i].ColumnName;
            }
            data[1] = row.ItemArray;

            PdfTable table = new PdfTable();
            table.Style.CellPadding = 2;
            table.Style.BorderPen = new PdfPen(PdfBrushes.Black, 0.75f);
            table.Style.DefaultStyle.BackgroundBrush = PdfBrushes.GreenYellow;
            table.Style.DefaultStyle.Font = new PdfTrueTypeFont(new Font("Arial", 9f));
            table.Style.HeaderSource = PdfHeaderSource.Rows;
            table.Style.HeaderRowCount = 1;
            table.Style.HeaderStyle.BackgroundBrush = PdfBrushes.ForestGreen;
            table.Style.HeaderStyle.Font = new PdfTrueTypeFont(new Font("Arial", 9f, FontStyle.Bold));
            table.Style.HeaderStyle.StringFormat = new PdfStringFormat(PdfTextAlignment.Center);
            table.Style.ShowHeader = true;
            table.DataSource = data;

            float width
                = page.Canvas.ClientSize.Width
                    - (table.Columns.Count + 1) * table.Style.BorderPen.Width;
            for (int i = 0; i < table.Columns.Count; i++)
            {
                table.Columns[i].Width = i == 1 ? width * 0.35f : width * 0.13f;
            }

            PdfTableLayoutFormat tableLayout = new PdfTableLayoutFormat();
            tableLayout.Break = PdfLayoutBreakType.FitPage;
            tableLayout.Layout = PdfLayoutType.Paginate;

            return table.Draw(page, new PointF(0, y), tableLayout);
        }

        private static PdfLayoutResult DrawOrderItems(PdfPageBase page, DataTable orderItems, String title, float y)
        {
            //draw title
            PdfTrueTypeFont font1 = new PdfTrueTypeFont(new Font("Arial", 9f, FontStyle.Bold));
            page.Canvas.DrawString(title, font1, PdfBrushes.Black, 0, y);
            y = y + font1.MeasureString(title).Height + 1;

            PdfTable table = new PdfTable();
            table.Style.CellPadding = 2;
            table.Style.BorderPen = new PdfPen(PdfBrushes.Black, 0.75f);
            table.Style.DefaultStyle.BackgroundBrush = PdfBrushes.MediumTurquoise;
            table.Style.DefaultStyle.Font = new PdfTrueTypeFont(new Font("Arial", 8f));
            table.Style.AlternateStyle = new PdfCellStyle();
            table.Style.AlternateStyle.BackgroundBrush = PdfBrushes.PaleTurquoise;
            table.Style.AlternateStyle.Font = new PdfTrueTypeFont(new Font("Arial", 8f));
            table.Style.HeaderSource = PdfHeaderSource.ColumnCaptions;
            table.Style.HeaderStyle.BackgroundBrush = PdfBrushes.Teal;
            table.Style.HeaderStyle.Font = new PdfTrueTypeFont(new Font("Arial", 8f, FontStyle.Bold));
            table.Style.HeaderStyle.StringFormat = new PdfStringFormat(PdfTextAlignment.Center);
            table.Style.ShowHeader = true;
            table.DataSource = orderItems;
            for (int i = 2; i < table.Columns.Count; i++)
            {
                table.Columns[0].StringFormat = new PdfStringFormat(PdfTextAlignment.Right);
            }

            PdfTableLayoutFormat tableLayout = new PdfTableLayoutFormat();
            tableLayout.Break = PdfLayoutBreakType.FitPage;
            tableLayout.Layout = PdfLayoutType.Paginate;

            return table.Draw(page, new PointF(0, y), tableLayout);
        }

        private static OleDbCommand PreparePartQueryCommand(OleDbConnection conn)
        {
            OleDbCommand command = new OleDbCommand();
            command.CommandText
                = " SELECT PartNo, Description, OnHand, OnOrder, Cost, ListPrice "
                + " FROM parts WHERE VendorNo = @VendorNo";
            OleDbParameter param = new OleDbParameter("@VendorNo", OleDbType.Double);
            command.Parameters.Add(param);
            command.Connection = conn;
            return command;
        }

        private static OleDbCommand PrepareOrderItemQueryCommand(OleDbConnection conn)
        {
            OleDbCommand command = new OleDbCommand();
            command.CommandText
                = " SELECT OrderNo, ItemNo, Qty, Discount "
                + " FROM items WHERE PartNo = @PartNo";
            OleDbParameter param = new OleDbParameter("@PartNo", OleDbType.Double);
            command.Parameters.Add(param);
            command.Connection = conn;
            return command;
        }
    }
}

Imports System
Imports System.Data
Imports System.Data.OleDb
Imports System.Drawing
Imports Spire.Pdf
Imports Spire.Pdf.Actions
Imports Spire.Pdf.Bookmarks
Imports Spire.Pdf.General
Imports Spire.Pdf.Graphics
Imports Spire.Pdf.Grid
Imports Spire.Pdf.Tables

Namespace Bookmark
    Friend Class Program
        Shared Sub Main(ByVal args() As String)
            'Create a pdf document.
            Dim doc As New PdfDocument()

            'margin
            Dim unitCvtr As New PdfUnitConvertor()
            Dim margin As New PdfMargins()
            margin.Top = unitCvtr.ConvertUnits(2.54F, PdfGraphicsUnit.Centimeter, PdfGraphicsUnit.Point)
            margin.Bottom = margin.Top
            margin.Left = unitCvtr.ConvertUnits(3.17F, PdfGraphicsUnit.Centimeter, PdfGraphicsUnit.Point)
            margin.Right = margin.Left

            'create section
            Dim section As PdfSection = doc.Sections.Add()
            section.PageSettings.Size = PdfPageSize.A4
            section.PageSettings.Margins = margin

            ' Create one page
            Dim page As PdfPageBase = section.Pages.Add()

            Dim y As Single = 10

            'title
            Dim brush1 As PdfBrush = PdfBrushes.Black
            Dim font1 As New PdfTrueTypeFont(New Font("Arial", 16.0F, FontStyle.Bold))
            Dim format1 As New PdfStringFormat(PdfTextAlignment.Center)
            page.Canvas.DrawString("Sales Report", font1, brush1, page.Canvas.ClientSize.Width \ 2, y, format1)
            y = y + font1.MeasureString("Sales Report", format1).Height
            y = y + 5

            Dim font2 As New PdfTrueTypeFont(New Font("Arial", 11.0F, FontStyle.Bold))
            Dim font3 As New PdfTrueTypeFont(New Font("Arial", 10.0F, FontStyle.Bold))
            Using conn As New OleDbConnection()
                conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=demo.mdb"
                conn.Open()

                Dim partQueryCommand As OleDbCommand = PreparePartQueryCommand(conn)
                Dim orderItemQueryCommand As OleDbCommand = PrepareOrderItemQueryCommand(conn)

                Dim vendors As DataTable = GetVendors(conn)
                For i As Integer = 0 To vendors.Rows.Count - 1
                    If i > 0 Then
                        'next page
                        page = section.Pages.Add()
                        y = 0
                    End If
                    'draw vendor
                    Dim vendorTitle As String = String.Format("{0}. {1}", i + 1, vendors.Rows(i).ItemArray(1))
                    Dim drawVendorLayoutResult As PdfLayoutResult = DrawVendor(page, vendors, i, vendorTitle, y)

                    'add vendor bookmark
                    Dim vendorBookmarkDest As New PdfDestination(page, New PointF(0, y))
                    Dim vendorBookmark As PdfBookmark = doc.Bookmarks.Add(vendorTitle)
                    vendorBookmark.Color = Color.SaddleBrown
                    vendorBookmark.DisplayStyle = PdfTextStyle.Bold
                    vendorBookmark.Action = New PdfGoToAction(vendorBookmarkDest)

                    y = drawVendorLayoutResult.Bounds.Bottom + 5
                    page = drawVendorLayoutResult.Page

                    'get parts of vendor
                    Dim parts As DataTable = GetParts(partQueryCommand, CDbl(vendors.Rows(i).ItemArray(0)))
                    For j As Integer = 0 To parts.Rows.Count - 1
                        If j > 0 Then
                            'next page
                            page = section.Pages.Add()
                            y = 0
                        End If
                        'draw part
                        Dim partTitle As String _
                            = String.Format("{0}.{1}. {2}", i + 1, j + 1, parts.Rows(j).ItemArray(1))
                        Dim drawPartLayoutResult As PdfLayoutResult = DrawPart(page, parts, j, partTitle, y)

                        'add part bookmark
                        Dim partBookmarkDest As New PdfDestination(page, New PointF(0, y))
                        Dim partBookmark As PdfBookmark = vendorBookmark.Add(partTitle)
                        partBookmark.Color = Color.Coral
                        partBookmark.DisplayStyle = PdfTextStyle.Italic
                        partBookmark.Action = New PdfGoToAction(partBookmarkDest)

                        y = drawPartLayoutResult.Bounds.Bottom + 5
                        page = drawPartLayoutResult.Page

                        'get order items
                        Dim orderItemsTitle As String _
                            = String.Format("{0} - Order Items", parts.Rows(j).ItemArray(1))
                        Dim orderItems As DataTable _
                            = GetOrderItems(orderItemQueryCommand, CDbl(parts.Rows(j).ItemArray(0)))
                        DrawOrderItems(page, orderItems, orderItemsTitle, y)
                    Next j
                Next i
            End Using

            'Save pdf file.
            doc.SaveToFile("Bookmark.pdf")
            doc.Close()

            'Launching the Pdf file.
            Process.Start("Bookmark.pdf")
        End Sub

        Private Shared Function GetVendors(ByVal conn As OleDbConnection) As DataTable
            Dim query As String _
                = " SELECT VendorNo, VendorName, Address1, City, State, Zip, Country, Phone, FAX " _
                & " FROM vendors "
            Using adapter As New OleDbDataAdapter(query, conn)
                Dim dataTable As New DataTable()
                adapter.Fill(dataTable)

                Return dataTable
            End Using
        End Function

        Private Shared Function GetParts(ByVal query As OleDbCommand, ByVal vendorId As Double) As DataTable
            query.Parameters(0).Value = vendorId
            Using adapter As New OleDbDataAdapter(query)
                Dim dataTable As New DataTable()
                adapter.Fill(dataTable)

                Return dataTable
            End Using
        End Function

        Private Shared Function GetOrderItems(ByVal query As OleDbCommand, ByVal partId As Double) As DataTable
            query.Parameters(0).Value = partId
            Using adapter As New OleDbDataAdapter(query)
                Dim dataTable As New DataTable()
                adapter.Fill(dataTable)

                Return dataTable
            End Using
        End Function

        Private Shared Function DrawVendor(ByVal page As PdfPageBase, ByVal vendors As DataTable, _
                        ByVal index As Integer, ByVal title As String, ByVal y As Single) As PdfLayoutResult
            'draw title
            Dim font1 As New PdfTrueTypeFont(New Font("Arial", 11.0F, FontStyle.Bold))
            Dim row As DataRow = vendors.Rows(index)
            page.Canvas.DrawString(title, font1, PdfBrushes.Black, 0, y)
            y = y + font1.MeasureString(title).Height + 1

            'draw table
            Dim data(vendors.Columns.Count - 1)() As Object
            For i As Integer = 0 To vendors.Columns.Count - 1
                data(i) = New Object(1) {}
                data(i)(0) = vendors.Columns(i).ColumnName
                data(i)(1) = vendors.Rows(index).ItemArray(i)
            Next i

            Dim grid As New PdfGrid()
            grid.Style.CellPadding = New PdfPaddings(2, 2, 1, 1)
            grid.DataSource = data

            Dim width As Single = page.Canvas.ClientSize.Width - (grid.Columns.Count + 1) * 0.75F
            grid.Columns(0).Width = width * 0.2F
            grid.Columns(1).Width = width * 0.8F

            Dim font2 As New PdfTrueTypeFont(New Font("Arial", 10.0F, FontStyle.Bold))
            Dim font3 As New PdfTrueTypeFont(New Font("Arial", 10.0F))
            For i As Integer = 0 To grid.Rows.Count - 1
                grid.Rows(i).Style.Font = font2
                grid.Rows(i).Cells(0).Style.BackgroundBrush = PdfBrushes.CadetBlue
                grid.Rows(i).Cells(1).Style.BackgroundBrush = PdfBrushes.SkyBlue
            Next i

            Dim layout As New PdfGridLayoutFormat()
            layout.Break = PdfLayoutBreakType.FitPage
            layout.Layout = PdfLayoutType.Paginate

            Return grid.Draw(page, New PointF(0, y), layout)
        End Function

        Private Shared Function DrawPart(ByVal page As PdfPageBase, ByVal parts As DataTable, ByVal index As Integer, _
                                         ByVal title As String, ByVal y As Single) As PdfLayoutResult
            'draw title
            Dim font1 As New PdfTrueTypeFont(New Font("Arial", 10.0F, FontStyle.Bold))
            Dim row As DataRow = parts.Rows(index)
            page.Canvas.DrawString(title, font1, PdfBrushes.Black, 0, y)
            y = y + font1.MeasureString(title).Height + 1

            'draw table
            Dim data(1)() As Object
            data(0) = New String(parts.Columns.Count - 1) {}
            For i As Integer = 0 To parts.Columns.Count - 1
                data(0)(i) = parts.Columns(i).ColumnName
            Next i
            data(1) = row.ItemArray

            Dim table As New PdfTable()
            table.Style.CellPadding = 2
            table.Style.BorderPen = New PdfPen(PdfBrushes.Black, 0.75F)
            table.Style.DefaultStyle.BackgroundBrush = PdfBrushes.GreenYellow
            table.Style.DefaultStyle.Font = New PdfTrueTypeFont(New Font("Arial", 9.0F))
            table.Style.HeaderSource = PdfHeaderSource.Rows
            table.Style.HeaderRowCount = 1
            table.Style.HeaderStyle.BackgroundBrush = PdfBrushes.ForestGreen
            table.Style.HeaderStyle.Font = New PdfTrueTypeFont(New Font("Arial", 9.0F, FontStyle.Bold))
            table.Style.HeaderStyle.StringFormat = New PdfStringFormat(PdfTextAlignment.Center)
            table.Style.ShowHeader = True
            table.DataSource = data

            Dim width As Single _
                = page.Canvas.ClientSize.Width - (table.Columns.Count + 1) * table.Style.BorderPen.Width
            For i As Integer = 0 To table.Columns.Count - 1
                table.Columns(i).Width = If(i = 1, width * 0.35F, width * 0.13F)
            Next i

            Dim tableLayout As New PdfTableLayoutFormat()
            tableLayout.Break = PdfLayoutBreakType.FitPage
            tableLayout.Layout = PdfLayoutType.Paginate

            Return table.Draw(page, New PointF(0, y), tableLayout)
        End Function

        Private Shared Function DrawOrderItems(ByVal page As PdfPageBase, ByVal orderItems As DataTable, _
                                               ByVal title As String, ByVal y As Single) As PdfLayoutResult
            'draw title
            Dim font1 As New PdfTrueTypeFont(New Font("Arial", 9.0F, FontStyle.Bold))
            page.Canvas.DrawString(title, font1, PdfBrushes.Black, 0, y)
            y = y + font1.MeasureString(title).Height + 1

            Dim table As New PdfTable()
            table.Style.CellPadding = 2
            table.Style.BorderPen = New PdfPen(PdfBrushes.Black, 0.75F)
            table.Style.DefaultStyle.BackgroundBrush = PdfBrushes.MediumTurquoise
            table.Style.DefaultStyle.Font = New PdfTrueTypeFont(New Font("Arial", 8.0F))
            table.Style.AlternateStyle = New PdfCellStyle()
            table.Style.AlternateStyle.BackgroundBrush = PdfBrushes.PaleTurquoise
            table.Style.AlternateStyle.Font = New PdfTrueTypeFont(New Font("Arial", 8.0F))
            table.Style.HeaderSource = PdfHeaderSource.ColumnCaptions
            table.Style.HeaderStyle.BackgroundBrush = PdfBrushes.Teal
            table.Style.HeaderStyle.Font = New PdfTrueTypeFont(New Font("Arial", 8.0F, FontStyle.Bold))
            table.Style.HeaderStyle.StringFormat = New PdfStringFormat(PdfTextAlignment.Center)
            table.Style.ShowHeader = True
            table.DataSource = orderItems
            For i As Integer = 2 To table.Columns.Count - 1
                table.Columns(0).StringFormat = New PdfStringFormat(PdfTextAlignment.Right)
            Next i

            Dim tableLayout As New PdfTableLayoutFormat()
            tableLayout.Break = PdfLayoutBreakType.FitPage
            tableLayout.Layout = PdfLayoutType.Paginate

            Return table.Draw(page, New PointF(0, y), tableLayout)
        End Function

        Private Shared Function PreparePartQueryCommand(ByVal conn As OleDbConnection) As OleDbCommand
            Dim command As New OleDbCommand()
            command.CommandText _
                = " SELECT PartNo, Description, OnHand, OnOrder, Cost, ListPrice " _
                & " FROM parts WHERE VendorNo = @VendorNo"
            Dim param As New OleDbParameter("@VendorNo", OleDbType.Double)
            command.Parameters.Add(param)
            command.Connection = conn
            Return command
        End Function

        Private Shared Function PrepareOrderItemQueryCommand(ByVal conn As OleDbConnection) As OleDbCommand
            Dim command As New OleDbCommand()
            command.CommandText _
                = " SELECT OrderNo, ItemNo, Qty, Discount " _
                & " FROM items WHERE PartNo = @PartNo"
            Dim param As New OleDbParameter("@PartNo", OleDbType.Double)
            command.Parameters.Add(param)
            command.Connection = conn
            Return command
        End Function
    End Class
End Namespace

The sample demonstrates how to work with attachment and attachment annotation in PDF document.

Download Attachment.pdf

using System;
using System.Drawing;
using System.IO;
using Spire.Pdf;
using Spire.Pdf.Annotations;
using Spire.Pdf.Attachments;
using Spire.Pdf.Graphics;

namespace Attachment
{
    class Program
    {
        static void Main(string[] args)
        {
            //Create a pdf document.
            PdfDocument doc = new PdfDocument();

            //margin
            PdfUnitConvertor unitCvtr = new PdfUnitConvertor();
            PdfMargins margin = new PdfMargins();
            margin.Top = unitCvtr.ConvertUnits(2.54f, PdfGraphicsUnit.Centimeter, PdfGraphicsUnit.Point);
            margin.Bottom = margin.Top;
            margin.Left = unitCvtr.ConvertUnits(3.17f, PdfGraphicsUnit.Centimeter, PdfGraphicsUnit.Point);
            margin.Right = margin.Left;

            //create section
            PdfSection section = doc.Sections.Add();
            section.PageSettings.Size = PdfPageSize.A4;
            section.PageSettings.Margins = margin;

            // Create one page
            PdfPageBase page = section.Pages.Add();

            float y = 10;

            //title
            PdfBrush brush1 = PdfBrushes.Black;
            PdfTrueTypeFont font1 = new PdfTrueTypeFont(new Font("Arial", 16f, FontStyle.Bold));
            PdfStringFormat format1 = new PdfStringFormat(PdfTextAlignment.Center);
            page.Canvas.DrawString("Attachment", font1, brush1, page.Canvas.ClientSize.Width / 2, y, format1);
            y = y + font1.MeasureString("Attachment", format1).Height;
            y = y + 5;

            //attachment
            PdfAttachment attachment = new PdfAttachment("Header.png");
            attachment.Data = File.ReadAllBytes(@"Header.png");
            attachment.Description = "Page header picture of demo.";
            attachment.MimeType = "image/png";
            doc.Attachments.Add(attachment);

            attachment = new PdfAttachment("Footer.png");
            attachment.Data = File.ReadAllBytes(@"Footer.png");
            attachment.Description = "Page footer picture of demo.";
            attachment.MimeType = "image/png";
            doc.Attachments.Add(attachment);

            PdfTrueTypeFont font2 = new PdfTrueTypeFont(new Font("Arial", 12f, FontStyle.Bold));
            PointF location = new PointF(0, y);
            String label = "Sales Report Chart";
            byte[] data = File.ReadAllBytes(@"SalesReportChart.png");
            SizeF size = font2.MeasureString(label);
            RectangleF bounds = new RectangleF(location, size);
            page.Canvas.DrawString(label, font2, PdfBrushes.DarkOrange, bounds);
            bounds = new RectangleF(bounds.Right + 3, bounds.Top, font2.Height / 2, font2.Height);
            PdfAttachmentAnnotation annotation1
                = new PdfAttachmentAnnotation(bounds, "SalesReportChart.png", data);
            annotation1.Color = Color.Teal;
            annotation1.Flags = PdfAnnotationFlags.ReadOnly;
            annotation1.Icon = PdfAttachmentIcon.Graph;
            annotation1.Text = "Sales Report Chart";
            (page as PdfNewPage).Annotations.Add(annotation1);
            y = y + size.Height + 2;

            location = new PointF(0, y);
            label = "Science Personification Boston";
            data = File.ReadAllBytes(@"SciencePersonificationBoston.jpg");
            size = font2.MeasureString(label);
            bounds = new RectangleF(location, size);
            page.Canvas.DrawString(label, font2, PdfBrushes.DarkOrange, bounds);
            bounds = new RectangleF(bounds.Right + 3, bounds.Top, font2.Height / 2, font2.Height);
            PdfAttachmentAnnotation annotation2
                = new PdfAttachmentAnnotation(bounds, "SciencePersonificationBoston.jpg", data);
            annotation2.Color = Color.Orange;
            annotation2.Flags = PdfAnnotationFlags.NoZoom;
            annotation2.Icon = PdfAttachmentIcon.PushPin;
            annotation2.Text = "SciencePersonificationBoston.jpg, from Wikipedia, the free encyclopedia";
            (page as PdfNewPage).Annotations.Add(annotation2);
            y = y + size.Height + 2;

            location = new PointF(0, y);
            label = "Picture of Science";
            data = File.ReadAllBytes(@"Wikipedia_Science.png");
            size = font2.MeasureString(label);
            bounds = new RectangleF(location, size);
            page.Canvas.DrawString(label, font2, PdfBrushes.DarkOrange, bounds);
            bounds = new RectangleF(bounds.Right + 3, bounds.Top, font2.Height / 2, font2.Height);
            PdfAttachmentAnnotation annotation3
                = new PdfAttachmentAnnotation(bounds, "Wikipedia_Science.png", data);
            annotation3.Color = Color.SaddleBrown;
            annotation3.Flags = PdfAnnotationFlags.Locked;
            annotation3.Icon = PdfAttachmentIcon.Tag;
            annotation3.Text = "Wikipedia_Science.png, from Wikipedia, the free encyclopedia";
            (page as PdfNewPage).Annotations.Add(annotation3);
            y = y + size.Height + 2;

            location = new PointF(0, y);
            label = "Hawaii Killer Font";
            data = File.ReadAllBytes(@"Hawaii_Killer.ttf");
            size = font2.MeasureString(label);
            bounds = new RectangleF(location, size);
            page.Canvas.DrawString(label, font2, PdfBrushes.DarkOrange, bounds);
            bounds = new RectangleF(bounds.Right + 3, bounds.Top, font2.Height / 2, font2.Height);
            PdfAttachmentAnnotation annotation4
                = new PdfAttachmentAnnotation(bounds, "Hawaii_Killer.ttf", data);
            annotation4.Color = Color.CadetBlue;
            annotation4.Flags = PdfAnnotationFlags.NoRotate;
            annotation4.Icon = PdfAttachmentIcon.Paperclip;
            annotation4.Text = "Hawaii Killer Font, from http://www.1001freefonts.com";
            (page as PdfNewPage).Annotations.Add(annotation4);
            y = y + size.Height + 2;

            //Save pdf file.
            doc.SaveToFile("Attachment.pdf");
            doc.Close();

            //Launching the Pdf file.
            System.Diagnostics.Process.Start("Attachment.pdf");
        }
    }
}

Imports System.Drawing
Imports System.IO
Imports Spire.Pdf
Imports Spire.Pdf.Annotations
Imports Spire.Pdf.Attachments
Imports Spire.Pdf.Graphics

Namespace Attachment
    Friend Class Program
        Shared Sub Main(ByVal args() As String)
            'Create a pdf document.
            Dim doc As New PdfDocument()

            'margin
            Dim unitCvtr As New PdfUnitConvertor()
            Dim margin As New PdfMargins()
            margin.Top = unitCvtr.ConvertUnits(2.54F, PdfGraphicsUnit.Centimeter, PdfGraphicsUnit.Point)
            margin.Bottom = margin.Top
            margin.Left = unitCvtr.ConvertUnits(3.17F, PdfGraphicsUnit.Centimeter, PdfGraphicsUnit.Point)
            margin.Right = margin.Left

            'create section
            Dim section As PdfSection = doc.Sections.Add()
            section.PageSettings.Size = PdfPageSize.A4
            section.PageSettings.Margins = margin

            ' Create one page
            Dim page As PdfPageBase = section.Pages.Add()

            Dim y As Single = 10

            'title
            Dim brush1 As PdfBrush = PdfBrushes.Black
            Dim font1 As New PdfTrueTypeFont(New Font("Arial", 16.0F, FontStyle.Bold))
            Dim format1 As New PdfStringFormat(PdfTextAlignment.Center)
            page.Canvas.DrawString("Attachment", font1, brush1, page.Canvas.ClientSize.Width \ 2, y, format1)
            y = y + font1.MeasureString("Attachment", format1).Height
            y = y + 5

            'attachment
            Dim attachment As New PdfAttachment("Header.png")
            attachment.Data = File.ReadAllBytes("Header.png")
            attachment.Description = "Page header picture of demo."
            attachment.MimeType = "image/png"
            doc.Attachments.Add(attachment)

            attachment = New PdfAttachment("Footer.png")
            attachment.Data = File.ReadAllBytes("Footer.png")
            attachment.Description = "Page footer picture of demo."
            attachment.MimeType = "image/png"
            doc.Attachments.Add(attachment)

            Dim font2 As New PdfTrueTypeFont(New Font("Arial", 12.0F, FontStyle.Bold))
            Dim location As New PointF(0, y)
            Dim label As String = "Sales Report Chart"
            Dim data() As Byte = File.ReadAllBytes("SalesReportChart.png")
            Dim size As SizeF = font2.MeasureString(label)
            Dim bounds As New RectangleF(location, size)
            page.Canvas.DrawString(label, font2, PdfBrushes.DarkOrange, bounds)
            bounds = New RectangleF(bounds.Right + 3, bounds.Top, font2.Height \ 2, font2.Height)
            Dim annotation1 As New PdfAttachmentAnnotation(bounds, "SalesReportChart.png", data)
            annotation1.Color = Color.Teal
            annotation1.Flags = PdfAnnotationFlags.ReadOnly
            annotation1.Icon = PdfAttachmentIcon.Graph
            annotation1.Text = "Sales Report Chart"
            TryCast(page, PdfNewPage).Annotations.Add(annotation1)
            y = y + size.Height + 2

            location = New PointF(0, y)
            label = "Science Personification Boston"
            data = File.ReadAllBytes("SciencePersonificationBoston.jpg")
            size = font2.MeasureString(label)
            bounds = New RectangleF(location, size)
            page.Canvas.DrawString(label, font2, PdfBrushes.DarkOrange, bounds)
            bounds = New RectangleF(bounds.Right + 3, bounds.Top, font2.Height \ 2, font2.Height)
            Dim annotation2 As New PdfAttachmentAnnotation(bounds, "SciencePersonificationBoston.jpg", data)
            annotation2.Color = Color.Orange
            annotation2.Flags = PdfAnnotationFlags.NoZoom
            annotation2.Icon = PdfAttachmentIcon.PushPin
            annotation2.Text = "SciencePersonificationBoston.jpg, from Wikipedia, the free encyclopedia"
            TryCast(page, PdfNewPage).Annotations.Add(annotation2)
            y = y + size.Height + 2

            location = New PointF(0, y)
            label = "Picture of Science"
            data = File.ReadAllBytes("Wikipedia_Science.png")
            size = font2.MeasureString(label)
            bounds = New RectangleF(location, size)
            page.Canvas.DrawString(label, font2, PdfBrushes.DarkOrange, bounds)
            bounds = New RectangleF(bounds.Right + 3, bounds.Top, font2.Height \ 2, font2.Height)
            Dim annotation3 As New PdfAttachmentAnnotation(bounds, "Wikipedia_Science.png", data)
            annotation3.Color = Color.SaddleBrown
            annotation3.Flags = PdfAnnotationFlags.Locked
            annotation3.Icon = PdfAttachmentIcon.Tag
            annotation3.Text = "Wikipedia_Science.png, from Wikipedia, the free encyclopedia"
            TryCast(page, PdfNewPage).Annotations.Add(annotation3)
            y = y + size.Height + 2

            location = New PointF(0, y)
            label = "Hawaii Killer Font"
            data = File.ReadAllBytes("Hawaii_Killer.ttf")
            size = font2.MeasureString(label)
            bounds = New RectangleF(location, size)
            page.Canvas.DrawString(label, font2, PdfBrushes.DarkOrange, bounds)
            bounds = New RectangleF(bounds.Right + 3, bounds.Top, font2.Height \ 2, font2.Height)
            Dim annotation4 As New PdfAttachmentAnnotation(bounds, "Hawaii_Killer.ttf", data)
            annotation4.Color = Color.CadetBlue
            annotation4.Flags = PdfAnnotationFlags.NoRotate
            annotation4.Icon = PdfAttachmentIcon.Paperclip
            annotation4.Text = "Hawaii Killer Font, from http://www.1001freefonts.com"
            TryCast(page, PdfNewPage).Annotations.Add(annotation4)
            y = y + size.Height + 2

            'Save pdf file.
            doc.SaveToFile("Attachment.pdf")
            doc.Close()

            'Launching the Pdf file.
            Process.Start("Attachment.pdf")
        End Sub
    End Class
End Namespace

The sample demonstrates how to work with action, javascript action, page destination action and action annotation in PDF document.

Download ActionChain.pdf

using System;
using System.Drawing;
using Spire.Pdf;
using Spire.Pdf.Graphics;
using Spire.Pdf.Actions;
using Spire.Pdf.General;
using Spire.Pdf.Tables;
using System.Data.OleDb;
using System.Data;

namespace ActionChain
{
    class Program
    {
        static void Main(string[] args)
        {
            //Create a pdf document.
            PdfDocument doc = new PdfDocument();

            //Draw pages
            PdfPageBase lastPage = DrawPages(doc);

            //script
            String script
                = "app.alert({"
                + "    cMsg: \"I'll lead; you must follow me.\","
                + "    nIcon: 3,"
                + "    cTitle: \"JavaScript Action\""
                + "});";
            PdfJavaScriptAction action1 = new PdfJavaScriptAction(script);
            doc.AfterOpenAction = action1;

            //script
            script
                = "app.alert({"
                + "    cMsg: \"The firt page!\","
                + "    nIcon: 3,"
                + "    cTitle: \"JavaScript Action\""
                + "});";
            PdfJavaScriptAction action2 = new PdfJavaScriptAction(script);
            action1.NextAction = action2;

            PdfDestination dest = new PdfDestination(lastPage);
            dest.Zoom = 1;
            PdfGoToAction action3 = new PdfGoToAction(dest);
            action2.NextAction = action3;

            //script
            script
                = "app.alert({"
                + "    cMsg: \"Oh sorry, it's the last page. I'm missing!\","
                + "    nIcon: 3,"
                + "    cTitle: \"JavaScript Action\""
                + "});";
            PdfJavaScriptAction action4 = new PdfJavaScriptAction(script);
            action3.NextAction = action4;

            //Save pdf file.
            doc.SaveToFile("ActionChain.pdf");
            doc.Close();

            //Launching the Pdf file.
            System.Diagnostics.Process.Start("ActionChain.pdf");
        }

        private static PdfPageBase DrawPages(PdfDocument doc)
        {
            //margin
            PdfUnitConvertor unitCvtr = new PdfUnitConvertor();
            PdfMargins margin = new PdfMargins();
            margin.Top = unitCvtr.ConvertUnits(2.54f, PdfGraphicsUnit.Centimeter, PdfGraphicsUnit.Point);
            margin.Bottom = margin.Top;
            margin.Left = unitCvtr.ConvertUnits(3.17f, PdfGraphicsUnit.Centimeter, PdfGraphicsUnit.Point);
            margin.Right = margin.Left;

            // Create one page
            PdfPageBase page = doc.Pages.Add(PdfPageSize.A4, margin);

            float y = 10;

            //title
            PdfBrush brush1 = PdfBrushes.Black;
            PdfTrueTypeFont font1 = new PdfTrueTypeFont(new Font("Arial", 16f, FontStyle.Bold));
            PdfStringFormat format1 = new PdfStringFormat(PdfTextAlignment.Center);
            page.Canvas.DrawString("Part List", font1, brush1, page.Canvas.ClientSize.Width / 2, y, format1);
            y = y + font1.MeasureString("Part List", format1).Height;
            y = y + 5;

            //create data table
            PdfTable table = new PdfTable();
            table.Style.CellPadding = 2;
            table.Style.BorderPen = new PdfPen(brush1, 0.75f);
            table.Style.DefaultStyle.BackgroundBrush = PdfBrushes.SkyBlue;
            table.Style.DefaultStyle.Font = new PdfTrueTypeFont(new Font("Arial", 10f));
            table.Style.AlternateStyle = new PdfCellStyle();
            table.Style.AlternateStyle.BackgroundBrush = PdfBrushes.LightYellow;
            table.Style.AlternateStyle.Font = new PdfTrueTypeFont(new Font("Arial", 10f));
            table.Style.HeaderSource = PdfHeaderSource.ColumnCaptions;
            table.Style.HeaderStyle.BackgroundBrush = PdfBrushes.CadetBlue;
            table.Style.HeaderStyle.Font = new PdfTrueTypeFont(new Font("Arial", 11f, FontStyle.Bold));
            table.Style.HeaderStyle.StringFormat = new PdfStringFormat(PdfTextAlignment.Center);
            table.Style.ShowHeader = true;

            using (OleDbConnection conn = new OleDbConnection())
            {
                conn.ConnectionString = @"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=..\..\..\..\..\..\Data\demo.mdb";
                OleDbCommand command = new OleDbCommand();
                command.CommandText
                    = " select Description, OnHand, OnOrder, Cost, ListPrice from parts ";
                command.Connection = conn;
                using (OleDbDataAdapter dataAdapter = new OleDbDataAdapter(command))
                {
                    DataTable dataTable = new DataTable();
                    dataAdapter.Fill(dataTable);
                    table.DataSourceType = PdfTableDataSourceType.TableDirect;
                    table.DataSource = dataTable;
                }
            }
            float width
                = page.Canvas.ClientSize.Width
                    - (table.Columns.Count + 1) * table.Style.BorderPen.Width;
            for (int i = 0; i < table.Columns.Count; i++)
            {
                if (i == 0)
                {
                    table.Columns[i].Width = width * 0.40f * width;
                    table.Columns[i].StringFormat
                        = new PdfStringFormat(PdfTextAlignment.Left, PdfVerticalAlignment.Middle);
                }
                else
                {
                    table.Columns[i].Width = width * 0.15f * width;
                    table.Columns[i].StringFormat
                        = new PdfStringFormat(PdfTextAlignment.Right, PdfVerticalAlignment.Middle);
                }
            }

            PdfTableLayoutFormat tableLayout = new PdfTableLayoutFormat();
            tableLayout.Break = PdfLayoutBreakType.FitElement;
            tableLayout.Layout = PdfLayoutType.Paginate;

            PdfLayoutResult result = table.Draw(page, new PointF(0, y), tableLayout);
            y = result.Bounds.Bottom + 3;

            PdfBrush brush2 = PdfBrushes.Gray;
            PdfTrueTypeFont font2 = new PdfTrueTypeFont(new Font("Arial", 9f));
            result.Page.Canvas.DrawString(String.Format("* {0} parts in the list.", table.Rows.Count),
                font2, brush2, 5, y);

            return result.Page;
        }       
    }
}

Imports System.Data.OleDb
Imports System.Drawing
Imports Spire.Pdf
Imports Spire.Pdf.Graphics
Imports Spire.Pdf.Actions
Imports Spire.Pdf.General
Imports Spire.Pdf.Tables

Namespace ActionChain
    Friend Class Program
        Shared Sub Main(ByVal args() As String)
            'Create a pdf document.
            Dim doc As New PdfDocument()

            'Draw pages
            Dim lastPage As PdfPageBase = DrawPages(doc)

            'script
            Dim script As String _
                = "app.alert({" _
                & "    cMsg: ""I'll lead; you must follow me.""," _
                & "    nIcon: 3," _
                & "    cTitle: ""JavaScript Action""" _
                & "});"
            Dim action1 As New PdfJavaScriptAction(script)
            doc.AfterOpenAction = action1

            'script
            script _
                = "app.alert({" _
                & "    cMsg: ""The firt page!""," _
                & "    nIcon: 3," _
                & "    cTitle: ""JavaScript Action""" _
                & "});"
            Dim action2 As New PdfJavaScriptAction(script)
            action1.NextAction = action2

            Dim dest As New PdfDestination(lastPage)
            dest.Zoom = 1
            Dim action3 As New PdfGoToAction(dest)
            action2.NextAction = action3

            'script
            script _
                = "app.alert({" _
                & "    cMsg: ""Oh sorry, it's the last page. I'm missing!""," _
                & "    nIcon: 3," _
                & "    cTitle: ""JavaScript Action""" _
                & "});"
            Dim action4 As New PdfJavaScriptAction(script)
            action3.NextAction = action4

            'Save pdf file.
            doc.SaveToFile("ActionChain.pdf")
            doc.Close()

            'Launching the Pdf file.
            Process.Start("ActionChain.pdf")
        End Sub

        Private Shared Function DrawPages(ByVal doc As PdfDocument) As PdfPageBase
            'margin
            Dim unitCvtr As New PdfUnitConvertor()
            Dim margin As New PdfMargins()
            margin.Top = unitCvtr.ConvertUnits(2.54F, PdfGraphicsUnit.Centimeter, PdfGraphicsUnit.Point)
            margin.Bottom = margin.Top
            margin.Left = unitCvtr.ConvertUnits(3.17F, PdfGraphicsUnit.Centimeter, PdfGraphicsUnit.Point)
            margin.Right = margin.Left

            ' Create one page
            Dim page As PdfPageBase = doc.Pages.Add(PdfPageSize.A4, margin)

            Dim y As Single = 10

            'title
            Dim brush1 As PdfBrush = PdfBrushes.Black
            Dim font1 As New PdfTrueTypeFont(New Font("Arial", 16.0F, FontStyle.Bold))
            Dim format1 As New PdfStringFormat(PdfTextAlignment.Center)
            page.Canvas.DrawString("Part List", font1, brush1, page.Canvas.ClientSize.Width \ 2, y, format1)
            y = y + font1.MeasureString("Part List", format1).Height
            y = y + 5

            'create data table
            Dim table As New PdfTable()
            table.Style.CellPadding = 2
            table.Style.BorderPen = New PdfPen(brush1, 0.75F)
            table.Style.DefaultStyle.BackgroundBrush = PdfBrushes.SkyBlue
            table.Style.DefaultStyle.Font = New PdfTrueTypeFont(New Font("Arial", 10.0F))
            table.Style.AlternateStyle = New PdfCellStyle()
            table.Style.AlternateStyle.BackgroundBrush = PdfBrushes.LightYellow
            table.Style.AlternateStyle.Font = New PdfTrueTypeFont(New Font("Arial", 10.0F))
            table.Style.HeaderSource = PdfHeaderSource.ColumnCaptions
            table.Style.HeaderStyle.BackgroundBrush = PdfBrushes.CadetBlue
            table.Style.HeaderStyle.Font = New PdfTrueTypeFont(New Font("Arial", 11.0F, FontStyle.Bold))
            table.Style.HeaderStyle.StringFormat = New PdfStringFormat(PdfTextAlignment.Center)
            table.Style.ShowHeader = True

            Using conn As New OleDbConnection()
                conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=demo.mdb"
                Dim command As New OleDbCommand()
                command.CommandText = " select Description, OnHand, OnOrder, Cost, ListPrice from parts "
                command.Connection = conn
                Using dataAdapter As New OleDbDataAdapter(command)
                    Dim dataTable As New DataTable()
                    dataAdapter.Fill(dataTable)
                    table.DataSourceType = PdfTableDataSourceType.TableDirect
                    table.DataSource = dataTable
                End Using
            End Using
            Dim width As Single _
                = page.Canvas.ClientSize.Width - (table.Columns.Count + 1) * table.Style.BorderPen.Width
            For i As Integer = 0 To table.Columns.Count - 1
                If i = 0 Then
                    table.Columns(i).Width = width * 0.4F * width
                    table.Columns(i).StringFormat _
                        = New PdfStringFormat(PdfTextAlignment.Left, PdfVerticalAlignment.Middle)
                Else
                    table.Columns(i).Width = width * 0.15F * width
                    table.Columns(i).StringFormat _
                        = New PdfStringFormat(PdfTextAlignment.Right, PdfVerticalAlignment.Middle)
                End If
            Next i

            Dim tableLayout As New PdfTableLayoutFormat()
            tableLayout.Break = PdfLayoutBreakType.FitElement
            tableLayout.Layout = PdfLayoutType.Paginate

            Dim result As PdfLayoutResult = table.Draw(page, New PointF(0, y), tableLayout)
            y = result.Bounds.Bottom + 3

            Dim brush2 As PdfBrush = PdfBrushes.Gray
            Dim font2 As New PdfTrueTypeFont(New Font("Arial", 9.0F))
            result.Page.Canvas.DrawString(String.Format("* {0} parts in the list.", table.Rows.Count), _
                                          font2, brush2, 5, y)

            Return result.Page
        End Function
    End Class
End Namespace