The sample demonstrates how to work with form, text box, check box, radio button, list box, combo box, button and form action in PDF document.

Download FormField.pdf

using System;
using System.Drawing;
using System.IO;
using System.Xml.XPath;
using Spire.Pdf;
using Spire.Pdf.Actions;
using Spire.Pdf.AutomaticFields;
using Spire.Pdf.Fields;
using Spire.Pdf.Graphics;

namespace FormField
{
    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;

            SetDocumentTemplate(doc, PdfPageSize.A4, margin);

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

            float y = 0;

            //title
            y = DrawPageTitle(page, y);

            //load form config data
            using (Stream stream = File.OpenRead(@"Form.xml"))
            {
                XPathDocument xpathDoc = new XPathDocument(stream);
                XPathNodeIterator sectionNodes = xpathDoc.CreateNavigator().Select("/form/section");
                int fieldIndex = 0;
                foreach (XPathNavigator sectionNode in sectionNodes)
                {
                    //draw section label
                    String sectionLabel = sectionNode.GetAttribute("name", "");
                    y = DrawFormSection(sectionLabel, page, y);

                    XPathNodeIterator fieldNodes = sectionNode.Select("field");
                    foreach (XPathNavigator fieldNode in fieldNodes)
                    {
                        y = DrawFormField(fieldNode, doc.Form, page, y, fieldIndex++);
                    }
                }
            }

            //draw button
            y = y + 10;
            float buttonWidth = 80;
            float buttonX = (page.Canvas.ClientSize.Width - buttonWidth) / 2;
            RectangleF buttonBounds = new RectangleF(buttonX, y, buttonWidth, 16f);
            PdfButtonField button = new PdfButtonField(page, "submit");
            button.Text = "Submit";
            button.Bounds = buttonBounds;
            PdfSubmitAction submitAction = new PdfSubmitAction("http://www.e-iceblue.com");
            button.Actions.MouseUp = submitAction;
            doc.Form.Fields.Add(button);

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

            //Launching the Pdf file.
            System.Diagnostics.Process.Start("FormField.pdf");
        }
        private static void SetDocumentTemplate(PdfDocument doc, SizeF pageSize, PdfMargins margin)
        {
            PdfPageTemplateElement leftSpace
                = new PdfPageTemplateElement(margin.Left, pageSize.Height);
            doc.Template.Left = leftSpace;

            PdfPageTemplateElement topSpace
                = new PdfPageTemplateElement(pageSize.Width, margin.Top);
            topSpace.Foreground = true;
            doc.Template.Top = topSpace;

            //draw header label
            PdfTrueTypeFont font = new PdfTrueTypeFont(new Font("Arial", 9f, FontStyle.Italic));
            PdfStringFormat format = new PdfStringFormat(PdfTextAlignment.Right);
            String label = "Demo of Spire.Pdf";
            SizeF size = font.MeasureString(label, format);
            float y = topSpace.Height - font.Height - 1;
            PdfPen pen = new PdfPen(Color.Black, 0.75f);
            topSpace.Graphics.SetTransparency(0.5f);
            topSpace.Graphics.DrawLine(pen, margin.Left, y, pageSize.Width - margin.Right, y);
            y = y - 1 - size.Height;
            topSpace.Graphics.DrawString(label, font, PdfBrushes.Black, pageSize.Width - margin.Right, y, format);

            PdfPageTemplateElement rightSpace
                = new PdfPageTemplateElement(margin.Right, pageSize.Height);
            doc.Template.Right = rightSpace;

            PdfPageTemplateElement bottomSpace
                = new PdfPageTemplateElement(pageSize.Width, margin.Bottom);
            bottomSpace.Foreground = true;
            doc.Template.Bottom = bottomSpace;

            //draw footer label
            y = font.Height + 1;
            bottomSpace.Graphics.SetTransparency(0.5f);
            bottomSpace.Graphics.DrawLine(pen, margin.Left, y, pageSize.Width - margin.Right, y);
            y = y + 1;
            PdfPageNumberField pageNumber = new PdfPageNumberField();
            PdfPageCountField pageCount = new PdfPageCountField();
            PdfCompositeField pageNumberLabel = new PdfCompositeField();
            pageNumberLabel.AutomaticFields
                = new PdfAutomaticField[] { pageNumber, pageCount };
            pageNumberLabel.Brush = PdfBrushes.Black;
            pageNumberLabel.Font = font;
            pageNumberLabel.StringFormat = format;
            pageNumberLabel.Text = "page {0} of {1}";
            pageNumberLabel.Draw(bottomSpace.Graphics, pageSize.Width - margin.Right, y);

            PdfImage headerImage
                = PdfImage.FromFile(@"Header.png");
            PointF pageLeftTop = new PointF(-margin.Left, -margin.Top);
            PdfPageTemplateElement header = new PdfPageTemplateElement(pageLeftTop, headerImage.PhysicalDimension);
            header.Foreground = false;
            header.Graphics.SetTransparency(0.5f);
            header.Graphics.DrawImage(headerImage, 0, 0);
            doc.Template.Stamps.Add(header);

            PdfImage footerImage
                = PdfImage.FromFile(@"Footer.png");
            y = pageSize.Height - footerImage.PhysicalDimension.Height;
            PointF footerLocation = new PointF(-margin.Left, y);
            PdfPageTemplateElement footer = new PdfPageTemplateElement(footerLocation, footerImage.PhysicalDimension);
            footer.Foreground = false;
            footer.Graphics.SetTransparency(0.5f);
            footer.Graphics.DrawImage(footerImage, 0, 0);
            doc.Template.Stamps.Add(footer);
        }

        private static float DrawPageTitle(PdfPageBase page, float y)
        {
            PdfBrush brush1 = PdfBrushes.MidnightBlue;
            PdfBrush brush2 = PdfBrushes.Red;
            PdfTrueTypeFont font1 = new PdfTrueTypeFont(new Font("Arial", 12f, FontStyle.Bold));
            String title = "Your Account Information(* = Required)";
            SizeF size = font1.MeasureString(title);
            float x = (page.Canvas.ClientSize.Width - size.Width) / 2;
            page.Canvas.DrawString("Your Account Information(", font1, brush1, x, y);
            size = font1.MeasureString("Your Account Information(");
            x = x + size.Width;
            page.Canvas.DrawString("* = Required", font1, brush2, x, y);
            size = font1.MeasureString("* = Required");
            x = x + size.Width;
            page.Canvas.DrawString(")", font1, brush1, x, y);
            y = y + size.Height;

            y = y + 3;
            PdfTrueTypeFont font2 = new PdfTrueTypeFont(new Font("Arial", 8f, FontStyle.Italic));
            String p = "Your information is not public, shared in anyway, or displayed on this site.";
            page.Canvas.DrawString(p, font2, brush1, 0, y);

            return y + font2.Height;
        }

        private static float DrawFormSection(String label, PdfPageBase page, float y)
        {
            PdfBrush brush1 = PdfBrushes.LightYellow;
            PdfBrush brush2 = PdfBrushes.DarkSlateGray;
            PdfTrueTypeFont font = new PdfTrueTypeFont(new Font("Arial", 9f, FontStyle.Bold));
            PdfStringFormat format = new PdfStringFormat();
            float height = font.MeasureString(label).Height;
            page.Canvas.DrawRectangle(brush2, 0, y, page.Canvas.ClientSize.Width, height + 2);
            page.Canvas.DrawString(label, font, brush1, 2, y + 1);
            y = y + height + 2;
            PdfPen pen = new PdfPen(PdfBrushes.LightSkyBlue, 0.75f);
            page.Canvas.DrawLine(pen, 0, y, page.Canvas.ClientSize.Width, y);
            return y + 0.75f;
        }

        private static float DrawFormField(XPathNavigator fieldNode, PdfForm form, PdfPageBase page, float y, int fieldIndex)
        {
            float width = page.Canvas.ClientSize.Width;
            float padding = 2;

            //measure field label
            String label = fieldNode.GetAttribute("label", "");
            PdfTrueTypeFont font1 = new PdfTrueTypeFont(new Font("Arial", 9f));
            PdfStringFormat format = new PdfStringFormat(PdfTextAlignment.Right, PdfVerticalAlignment.Middle);
            float labelMaxWidth = width * 0.4f - 2 * padding;
            SizeF labelSize = font1.MeasureString(label, labelMaxWidth, format);

            //measure field height
            float fieldHeight = MeasureFieldHeight(fieldNode);

            float height = labelSize.Height > fieldHeight ? labelSize.Height : fieldHeight;
            height = height + 2;

            //draw background
            PdfBrush brush = PdfBrushes.SteelBlue;
            if (fieldIndex % 2 == 1)
            {
                brush = PdfBrushes.LightGreen;
            }
            page.Canvas.DrawRectangle(brush, 0, y, width, height);

            //draw field label
            PdfBrush brush1 = PdfBrushes.LightYellow;
            RectangleF labelBounds = new RectangleF(padding, y, labelMaxWidth, height);
            page.Canvas.DrawString(label, font1, brush1, labelBounds, format);

            //daw field
            float fieldMaxWidth = width * 0.57f - 2 * padding;
            float fieldX = labelBounds.Right + 2 * padding;
            float fieldY = y + (height - fieldHeight) / 2;
            String fieldType = fieldNode.GetAttribute("type", "");
            String fieldId = fieldNode.GetAttribute("id", "");
            bool required = "true" == fieldNode.GetAttribute("required", "");
            switch (fieldType)
            {
                case "text":
                case "password":
                    PdfTextBoxField textField = new PdfTextBoxField(page, fieldId);
                    textField.Bounds = new RectangleF(fieldX, fieldY, fieldMaxWidth, fieldHeight);
                    textField.BorderWidth = 0.75f;
                    textField.BorderStyle = PdfBorderStyle.Solid;
                    textField.Required = required;
                    if ("password" == fieldType)
                    {
                        textField.Password = true;
                    }
                    if ("true" == fieldNode.GetAttribute("multiple", ""))
                    {
                        textField.Multiline = true;
                        textField.Scrollable = true;
                    }
                    form.Fields.Add(textField);
                    break;
                case "checkbox":
                    PdfCheckBoxField checkboxField = new PdfCheckBoxField(page, fieldId);
                    float checkboxWidth = fieldHeight - 2 * padding;
                    float checkboxHeight = checkboxWidth;
                    checkboxField.Bounds = new RectangleF(fieldX, fieldY + padding, checkboxWidth, checkboxHeight);
                    checkboxField.BorderWidth = 0.75f;
                    checkboxField.Style = PdfCheckBoxStyle.Cross;
                    checkboxField.Required = required;
                    form.Fields.Add(checkboxField);
                    break;

                case "list":
                    XPathNodeIterator itemNodes = fieldNode.Select("item");
                    if ("true" == fieldNode.GetAttribute("multiple", ""))
                    {
                        PdfListBoxField listBoxField = new PdfListBoxField(page, fieldId);
                        listBoxField.Bounds = new RectangleF(fieldX, fieldY, fieldMaxWidth, fieldHeight);
                        listBoxField.BorderWidth = 0.75f;
                        listBoxField.MultiSelect = true;
                        listBoxField.Font = new PdfFont(PdfFontFamily.Helvetica, 9f);
                        listBoxField.Required = required;
                        //add items into list box.
                        foreach (XPathNavigator itemNode in itemNodes)
                        {
                            String text = itemNode.SelectSingleNode("text()").Value;
                            listBoxField.Items.Add(new PdfListFieldItem(text, text));
                        }
                        listBoxField.SelectedIndex = 0;
                        form.Fields.Add(listBoxField);

                        break;
                    }
                    if (itemNodes != null && itemNodes.Count <= 3)
                    {
                        PdfRadioButtonListField radioButtonListFile
                            = new PdfRadioButtonListField(page, fieldId);
                        radioButtonListFile.Required = required;
                        //add items into radio button list.
                        float fieldItemHeight = fieldHeight / itemNodes.Count;
                        float radioButtonWidth = fieldItemHeight - 2 * padding;
                        float radioButtonHeight = radioButtonWidth;
                        foreach (XPathNavigator itemNode in itemNodes)
                        {
                            String text = itemNode.SelectSingleNode("text()").Value;
                            PdfRadioButtonListItem fieldItem = new PdfRadioButtonListItem(text);
                            fieldItem.BorderWidth = 0.75f;
                            fieldItem.Bounds = new RectangleF(fieldX, fieldY + padding, radioButtonWidth, radioButtonHeight);
                            radioButtonListFile.Items.Add(fieldItem);

                            float fieldItemLabelX = fieldX + radioButtonWidth + padding;
                            SizeF fieldItemLabelSize = font1.MeasureString(text);
                            float fieldItemLabelY = fieldY + (fieldItemHeight - fieldItemLabelSize.Height) / 2;
                            page.Canvas.DrawString(text, font1, brush1, fieldItemLabelX, fieldItemLabelY);

                            fieldY = fieldY + fieldItemHeight;
                        }
                        form.Fields.Add(radioButtonListFile);

                        break;
                    }

                    //combo box
                    PdfComboBoxField comboBoxField = new PdfComboBoxField(page, fieldId);
                    comboBoxField.Bounds = new RectangleF(fieldX, fieldY, fieldMaxWidth, fieldHeight);
                    comboBoxField.BorderWidth = 0.75f;
                    comboBoxField.Font = new PdfFont(PdfFontFamily.Helvetica, 9f);
                    comboBoxField.Required = required;
                    //add items into combo box.
                    foreach (XPathNavigator itemNode in itemNodes)
                    {
                        String text = itemNode.SelectSingleNode("text()").Value;
                        comboBoxField.Items.Add(new PdfListFieldItem(text, text));
                    }
                    form.Fields.Add(comboBoxField);
                    break;

            }

            if (required)
            {
                //draw *
                float flagX = width * 0.97f + padding;
                PdfTrueTypeFont font3 = new PdfTrueTypeFont(new Font("Arial", 10f, FontStyle.Bold));
                SizeF size = font3.MeasureString("*");
                float flagY = y + (height - size.Height) / 2;
                page.Canvas.DrawString("*", font3, PdfBrushes.Red, flagX, flagY);
            }

            return y + height;
        }

        private static float MeasureFieldHeight(XPathNavigator fieldNode)
        {
            String fieldType = fieldNode.GetAttribute("type", "");
            float defaultHeight = 16f;
            switch (fieldType)
            {
                case "text":
                case "password":
                    if ("true" == fieldNode.GetAttribute("multiple", ""))
                    {
                        return defaultHeight * 3;
                    }
                    return defaultHeight;

                case "checkbox":
                    return defaultHeight;

                case "list":
                    if ("true" == fieldNode.GetAttribute("multiple", ""))
                    {
                        return defaultHeight * 3;
                    }
                    XPathNodeIterator itemNodes = fieldNode.Select("item");
                    if (itemNodes != null && itemNodes.Count <= 3)
                    {
                        return defaultHeight * 3;
                    }
                    return defaultHeight;

            }
            String message = String.Format("Invalid field type: {0}", fieldType);
            throw new ArgumentException(message);
        }
    }
}

Imports System.Drawing
Imports System.IO
Imports System.Xml.XPath
Imports Spire.Pdf
Imports Spire.Pdf.Actions
Imports Spire.Pdf.AutomaticFields
Imports Spire.Pdf.Fields
Imports Spire.Pdf.Graphics

Namespace FormField
    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

            SetDocumentTemplate(doc, PdfPageSize.A4, margin)

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

            Dim y As Single = 0

            'title
            y = DrawPageTitle(page, y)

            'load form config data
            Using stream As Stream = File.OpenRead("Form.xml")
                Dim xpathDoc As New XPathDocument(stream)
                Dim sectionNodes As XPathNodeIterator = xpathDoc.CreateNavigator().Select("/form/section")
                Dim fieldIndex As Integer = 0
                For Each sectionNode As XPathNavigator In sectionNodes
                    'draw section label
                    Dim sectionLabel As String = sectionNode.GetAttribute("name", "")
                    y = DrawFormSection(sectionLabel, page, y)

                    Dim fieldNodes As XPathNodeIterator = sectionNode.Select("field")
                    For Each fieldNode As XPathNavigator In fieldNodes
                        y = DrawFormField(fieldNode, doc.Form, page, y, fieldIndex)
                        fieldIndex += 1
                    Next fieldNode
                Next sectionNode
            End Using

            'draw button
            y = y + 10
            Dim buttonWidth As Single = 80
            Dim buttonX As Single = (page.Canvas.ClientSize.Width - buttonWidth) / 2
            Dim buttonBounds As New RectangleF(buttonX, y, buttonWidth, 16.0F)
            Dim button As New PdfButtonField(page, "submit")
            button.Text = "Submit"
            button.Bounds = buttonBounds
            Dim submitAction As New PdfSubmitAction("http://www.e-iceblue.com")
            button.Actions.MouseUp = submitAction
            doc.Form.Fields.Add(button)

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

            'Launching the Pdf file.
            Process.Start("FormField.pdf")
        End Sub
        Private Shared Sub SetDocumentTemplate(ByVal doc As PdfDocument, ByVal pageSize As SizeF, _
                                               ByVal margin As PdfMargins)
            Dim leftSpace As New PdfPageTemplateElement(margin.Left, pageSize.Height)
            doc.Template.Left = leftSpace

            Dim topSpace As New PdfPageTemplateElement(pageSize.Width, margin.Top)
            topSpace.Foreground = True
            doc.Template.Top = topSpace

            'draw header label
            Dim font As New PdfTrueTypeFont(New Font("Arial", 9.0F, FontStyle.Italic))
            Dim format As New PdfStringFormat(PdfTextAlignment.Right)
            Dim label As String = "Demo of Spire.Pdf"
            Dim size As SizeF = font.MeasureString(label, format)
            Dim y As Single = topSpace.Height - font.Height - 1
            Dim pen As New PdfPen(Color.Black, 0.75F)
            topSpace.Graphics.SetTransparency(0.5F)
            topSpace.Graphics.DrawLine(pen, margin.Left, y, pageSize.Width - margin.Right, y)
            y = y - 1 - size.Height
            topSpace.Graphics.DrawString(label, font, PdfBrushes.Black, pageSize.Width - margin.Right, y, format)

            Dim rightSpace As New PdfPageTemplateElement(margin.Right, pageSize.Height)
            doc.Template.Right = rightSpace

            Dim bottomSpace As New PdfPageTemplateElement(pageSize.Width, margin.Bottom)
            bottomSpace.Foreground = True
            doc.Template.Bottom = bottomSpace

            'draw footer label
            y = font.Height + 1
            bottomSpace.Graphics.SetTransparency(0.5F)
            bottomSpace.Graphics.DrawLine(pen, margin.Left, y, pageSize.Width - margin.Right, y)
            y = y + 1
            Dim pageNumber As New PdfPageNumberField()
            Dim pageCount As New PdfPageCountField()
            Dim pageNumberLabel As New PdfCompositeField()
            pageNumberLabel.AutomaticFields = New PdfAutomaticField() {pageNumber, pageCount}
            pageNumberLabel.Brush = PdfBrushes.Black
            pageNumberLabel.Font = font
            pageNumberLabel.StringFormat = format
            pageNumberLabel.Text = "page {0} of {1}"
            pageNumberLabel.Draw(bottomSpace.Graphics, pageSize.Width - margin.Right, y)

            Dim headerImage As PdfImage = PdfImage.FromFile("Header.png")
            Dim pageLeftTop As New PointF(-margin.Left, -margin.Top)
            Dim header As New PdfPageTemplateElement(pageLeftTop, headerImage.PhysicalDimension)
            header.Foreground = False
            header.Graphics.SetTransparency(0.5F)
            header.Graphics.DrawImage(headerImage, 0, 0)
            doc.Template.Stamps.Add(header)

            Dim footerImage As PdfImage = PdfImage.FromFile("Footer.png")
            y = pageSize.Height - footerImage.PhysicalDimension.Height
            Dim footerLocation As New PointF(-margin.Left, y)
            Dim footer As New PdfPageTemplateElement(footerLocation, footerImage.PhysicalDimension)
            footer.Foreground = False
            footer.Graphics.SetTransparency(0.5F)
            footer.Graphics.DrawImage(footerImage, 0, 0)
            doc.Template.Stamps.Add(footer)
        End Sub

        Private Shared Function DrawPageTitle(ByVal page As PdfPageBase, ByVal y As Single) As Single
            Dim brush1 As PdfBrush = PdfBrushes.MidnightBlue
            Dim brush2 As PdfBrush = PdfBrushes.Red
            Dim font1 As New PdfTrueTypeFont(New Font("Arial", 12.0F, FontStyle.Bold))
            Dim title As String = "Your Account Information(* = Required)"
            Dim size As SizeF = font1.MeasureString(title)
            Dim x As Single = (page.Canvas.ClientSize.Width - size.Width) / 2
            page.Canvas.DrawString("Your Account Information(", font1, brush1, x, y)
            size = font1.MeasureString("Your Account Information(")
            x = x + size.Width
            page.Canvas.DrawString("* = Required", font1, brush2, x, y)
            size = font1.MeasureString("* = Required")
            x = x + size.Width
            page.Canvas.DrawString(")", font1, brush1, x, y)
            y = y + size.Height

            y = y + 3
            Dim font2 As New PdfTrueTypeFont(New Font("Arial", 8.0F, FontStyle.Italic))
            Dim p As String = "Your information is not public, shared in anyway, or displayed on this site."
            page.Canvas.DrawString(p, font2, brush1, 0, y)

            Return y + font2.Height
        End Function

        Private Shared Function DrawFormSection(ByVal label As String, ByVal page As PdfPageBase, _
                                                ByVal y As Single) As Single
            Dim brush1 As PdfBrush = PdfBrushes.LightYellow
            Dim brush2 As PdfBrush = PdfBrushes.DarkSlateGray
            Dim font As New PdfTrueTypeFont(New Font("Arial", 9.0F, FontStyle.Bold))
            Dim format As New PdfStringFormat()
            Dim height As Single = font.MeasureString(label).Height
            page.Canvas.DrawRectangle(brush2, 0, y, page.Canvas.ClientSize.Width, height + 2)
            page.Canvas.DrawString(label, font, brush1, 2, y + 1)
            y = y + height + 2
            Dim pen As New PdfPen(PdfBrushes.LightSkyBlue, 0.75F)
            page.Canvas.DrawLine(pen, 0, y, page.Canvas.ClientSize.Width, y)
            Return y + 0.75F
        End Function

        Private Shared Function DrawFormField(ByVal fieldNode As XPathNavigator, ByVal form As PdfForm, _
                    ByVal page As PdfPageBase, ByVal y As Single, ByVal fieldIndex As Integer) As Single
            Dim width As Single = page.Canvas.ClientSize.Width
            Dim padding As Single = 2

            'measure field label
            Dim label As String = fieldNode.GetAttribute("label", "")
            Dim font1 As New PdfTrueTypeFont(New Font("Arial", 9.0F))
            Dim format As New PdfStringFormat(PdfTextAlignment.Right, PdfVerticalAlignment.Middle)
            Dim labelMaxWidth As Single = width * 0.4F - 2 * padding
            Dim labelSize As SizeF = font1.MeasureString(label, labelMaxWidth, format)

            'measure field height
            Dim fieldHeight As Single = MeasureFieldHeight(fieldNode)

            Dim height As Single = If(labelSize.Height > fieldHeight, labelSize.Height, fieldHeight)
            height = height + 2

            'draw background
            Dim brush As PdfBrush = PdfBrushes.SteelBlue
            If fieldIndex Mod 2 = 1 Then
                brush = PdfBrushes.LightGreen
            End If
            page.Canvas.DrawRectangle(brush, 0, y, width, height)

            'draw field label
            Dim brush1 As PdfBrush = PdfBrushes.LightYellow
            Dim labelBounds As New RectangleF(padding, y, labelMaxWidth, height)
            page.Canvas.DrawString(label, font1, brush1, labelBounds, format)

            'daw field
            Dim fieldMaxWidth As Single = width * 0.57F - 2 * padding
            Dim fieldX As Single = labelBounds.Right + 2 * padding
            Dim fieldY As Single = y + (height - fieldHeight) / 2
            Dim fieldType As String = fieldNode.GetAttribute("type", "")
            Dim fieldId As String = fieldNode.GetAttribute("id", "")
            Dim required As Boolean = "true" = fieldNode.GetAttribute("required", "")
            Select Case fieldType
                Case "text", "password"
                    Dim textField As New PdfTextBoxField(page, fieldId)
                    textField.Bounds = New RectangleF(fieldX, fieldY, fieldMaxWidth, fieldHeight)
                    textField.BorderWidth = 0.75F
                    textField.BorderStyle = PdfBorderStyle.Solid
                    textField.Required = required
                    If "password" = fieldType Then
                        textField.Password = True
                    End If
                    If "true" = fieldNode.GetAttribute("multiple", "") Then
                        textField.Multiline = True
                        textField.Scrollable = True
                    End If
                    form.Fields.Add(textField)
                Case "checkbox"
                    Dim checkboxField As New PdfCheckBoxField(page, fieldId)
                    Dim checkboxWidth As Single = fieldHeight - 2 * padding
                    Dim checkboxHeight As Single = checkboxWidth
                    checkboxField.Bounds = New RectangleF(fieldX, fieldY + padding, checkboxWidth, checkboxHeight)
                    checkboxField.BorderWidth = 0.75F
                    checkboxField.Style = PdfCheckBoxStyle.Cross
                    checkboxField.Required = required
                    form.Fields.Add(checkboxField)

                Case "list"
                    Dim itemNodes As XPathNodeIterator = fieldNode.Select("item")
                    If "true" = fieldNode.GetAttribute("multiple", "") Then
                        Dim listBoxField As New PdfListBoxField(page, fieldId)
                        listBoxField.Bounds = New RectangleF(fieldX, fieldY, fieldMaxWidth, fieldHeight)
                        listBoxField.BorderWidth = 0.75F
                        listBoxField.MultiSelect = True
                        listBoxField.Font = New PdfFont(PdfFontFamily.Helvetica, 9.0F)
                        listBoxField.Required = required
                        'add items into list box.
                        For Each itemNode As XPathNavigator In itemNodes
                            Dim text As String = itemNode.SelectSingleNode("text()").Value
                            listBoxField.Items.Add(New PdfListFieldItem(text, text))
                        Next itemNode
                        listBoxField.SelectedIndex = 0
                        form.Fields.Add(listBoxField)

                        Exit Select
                    End If
                    If itemNodes IsNot Nothing AndAlso itemNodes.Count <= 3 Then
                        Dim radioButtonListFile As New PdfRadioButtonListField(page, fieldId)
                        radioButtonListFile.Required = required
                        'add items into radio button list.
                        Dim fieldItemHeight As Single = fieldHeight / itemNodes.Count
                        Dim radioButtonWidth As Single = fieldItemHeight - 2 * padding
                        Dim radioButtonHeight As Single = radioButtonWidth
                        For Each itemNode As XPathNavigator In itemNodes
                            Dim text As String = itemNode.SelectSingleNode("text()").Value
                            Dim fieldItem As New PdfRadioButtonListItem(text)
                            fieldItem.BorderWidth = 0.75F
                            fieldItem.Bounds = New RectangleF(fieldX, fieldY + padding, radioButtonWidth, radioButtonHeight)
                            radioButtonListFile.Items.Add(fieldItem)

                            Dim fieldItemLabelX As Single = fieldX + radioButtonWidth + padding
                            Dim fieldItemLabelSize As SizeF = font1.MeasureString(text)
                            Dim fieldItemLabelY As Single = fieldY + (fieldItemHeight - fieldItemLabelSize.Height) / 2
                            page.Canvas.DrawString(text, font1, brush1, fieldItemLabelX, fieldItemLabelY)

                            fieldY = fieldY + fieldItemHeight
                        Next itemNode
                        form.Fields.Add(radioButtonListFile)

                        Exit Select
                    End If

                    'combo box
                    Dim comboBoxField As New PdfComboBoxField(page, fieldId)
                    comboBoxField.Bounds = New RectangleF(fieldX, fieldY, fieldMaxWidth, fieldHeight)
                    comboBoxField.BorderWidth = 0.75F
                    comboBoxField.Font = New PdfFont(PdfFontFamily.Helvetica, 9.0F)
                    comboBoxField.Required = required
                    'add items into combo box.
                    For Each itemNode As XPathNavigator In itemNodes
                        Dim text As String = itemNode.SelectSingleNode("text()").Value
                        comboBoxField.Items.Add(New PdfListFieldItem(text, text))
                    Next itemNode
                    form.Fields.Add(comboBoxField)

            End Select

            If required Then
                'draw *
                Dim flagX As Single = width * 0.97F + padding
                Dim font3 As New PdfTrueTypeFont(New Font("Arial", 10.0F, FontStyle.Bold))
                Dim size As SizeF = font3.MeasureString("*")
                Dim flagY As Single = y + (height - size.Height) / 2
                page.Canvas.DrawString("*", font3, PdfBrushes.Red, flagX, flagY)
            End If

            Return y + height
        End Function

        Private Shared Function MeasureFieldHeight(ByVal fieldNode As XPathNavigator) As Single
            Dim fieldType As String = fieldNode.GetAttribute("type", "")
            Dim defaultHeight As Single = 16.0F
            Select Case fieldType
                Case "text", "password"
                    If "true" = fieldNode.GetAttribute("multiple", "") Then
                        Return defaultHeight * 3
                    End If
                    Return defaultHeight

                Case "checkbox"
                    Return defaultHeight

                Case "list"
                    If "true" = fieldNode.GetAttribute("multiple", "") Then
                        Return defaultHeight * 3
                    End If
                    Dim itemNodes As XPathNodeIterator = fieldNode.Select("item")
                    If itemNodes IsNot Nothing AndAlso itemNodes.Count <= 3 Then
                        Return defaultHeight * 3
                    End If
                    Return defaultHeight

            End Select
            Dim message As String = String.Format("Invalid field type: {0}", fieldType)
            Throw New ArgumentException(message)
        End Function
    End Class
End Namespace

The sample demonstrates how to add link to PDF document.

Download Link.pdf

using System;
using System.Drawing;
using Spire.Pdf;
using Spire.Pdf.Actions;
using Spire.Pdf.Annotations;
using Spire.Pdf.Graphics;

namespace Link
{
    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 one page
            PdfPageBase page = doc.Pages.Add(PdfPageSize.A4, margin);

            float y = 10;
            float x = 0;
            PdfTrueTypeFont font = new PdfTrueTypeFont(new Font("Arial", 12));
            String label = "Simple Link: ";
            PdfStringFormat format = new PdfStringFormat();
            format.MeasureTrailingSpaces = true;
            page.Canvas.DrawString(label, font, PdfBrushes.OrangeRed, 0, y, format);
            x = font.MeasureString(label, format).Width;
            PdfTrueTypeFont font1 = new PdfTrueTypeFont(new Font("Arial", 12, FontStyle.Underline));
            String url1 = "http://www.e-iceblue.com";
            page.Canvas.DrawString(url1, font1, PdfBrushes.Blue, x, y);
            y = y + font1.MeasureString(url1).Height;

            label = "Web Link: ";
            page.Canvas.DrawString(label, font, PdfBrushes.OrangeRed, 0, y, format);
            x = font.MeasureString(label, format).Width;
            String text = "e-iceblue";
            PdfTextWebLink link2 = new PdfTextWebLink();
            link2.Text = text;
            link2.Url = url1;
            link2.Font = font1;
            link2.Brush = PdfBrushes.Blue;
            link2.DrawTextWebLink(page.Canvas, new PointF(x, y));
            y = y + font1.MeasureString(text).Height;

            label = "URI Annonationa: ";
            page.Canvas.DrawString(label, font, PdfBrushes.OrangeRed, 0, y, format);
            x = font.MeasureString(label, format).Width;
            text = "Google";
            PointF location = new PointF(x, y);
            SizeF size = font1.MeasureString(text);
            RectangleF linkBounds = new RectangleF(location, size);
            PdfUriAnnotation link3 = new PdfUriAnnotation(linkBounds);
            link3.Border = new PdfAnnotationBorder(0);
            link3.Uri = "http://www.google.com";
            (page as PdfNewPage).Annotations.Add(link3);
            page.Canvas.DrawString(text, font1, PdfBrushes.Blue, x, y);
            y = y + size.Height;

            label = "URI Annonationa Action: ";
            page.Canvas.DrawString(label, font, PdfBrushes.OrangeRed, 0, y, format);
            x = font.MeasureString(label, format).Width;
            text = "JavaScript Action (Click Me)";
            location = new PointF(x, y);
            size = font1.MeasureString(text);
            linkBounds = new RectangleF(location, size);
            PdfUriAnnotation link4 = new PdfUriAnnotation(linkBounds);
            link4.Border = new PdfAnnotationBorder(0.75f);
            link4.Color = Color.LightGray;
            //script
            String script
                = "app.alert({"
                + "    cMsg: \"Hello.\","
                + "    nIcon: 3,"
                + "    cTitle: \"JavaScript Action\""
                + "});";
            PdfJavaScriptAction action = new PdfJavaScriptAction(script);
            link4.Action = action;
            (page as PdfNewPage).Annotations.Add(link4);
            page.Canvas.DrawString(text, font1, PdfBrushes.Blue, x, y);
            y = y + size.Height;

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

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

Imports System.Drawing
Imports Spire.Pdf
Imports Spire.Pdf.Actions
Imports Spire.Pdf.Annotations
Imports Spire.Pdf.Graphics

Namespace Link
    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 one page
            Dim page As PdfPageBase = doc.Pages.Add(PdfPageSize.A4, margin)

            Dim y As Single = 10
            Dim x As Single = 0
            Dim font As New PdfTrueTypeFont(New Font("Arial", 12))
            Dim label As String = "Simple Link: "
            Dim format As New PdfStringFormat()
            format.MeasureTrailingSpaces = True
            page.Canvas.DrawString(label, font, PdfBrushes.OrangeRed, 0, y, format)
            x = font.MeasureString(label, format).Width
            Dim font1 As New PdfTrueTypeFont(New Font("Arial", 12, FontStyle.Underline))
            Dim url1 As String = "http://www.e-iceblue.com"
            page.Canvas.DrawString(url1, font1, PdfBrushes.Blue, x, y)
            y = y + font1.MeasureString(url1).Height

            label = "Web Link: "
            page.Canvas.DrawString(label, font, PdfBrushes.OrangeRed, 0, y, format)
            x = font.MeasureString(label, format).Width
            Dim text As String = "e-iceblue"
            Dim link2 As New PdfTextWebLink()
            link2.Text = text
            link2.Url = url1
            link2.Font = font1
            link2.Brush = PdfBrushes.Blue
            link2.DrawTextWebLink(page.Canvas, New PointF(x, y))
            y = y + font1.MeasureString(text).Height

            label = "URI Annonationa: "
            page.Canvas.DrawString(label, font, PdfBrushes.OrangeRed, 0, y, format)
            x = font.MeasureString(label, format).Width
            text = "Google"
            Dim location As New PointF(x, y)
            Dim size As SizeF = font1.MeasureString(text)
            Dim linkBounds As New RectangleF(location, size)
            Dim link3 As New PdfUriAnnotation(linkBounds)
            link3.Border = New PdfAnnotationBorder(0)
            link3.Uri = "http://www.google.com"
            TryCast(page, PdfNewPage).Annotations.Add(link3)
            page.Canvas.DrawString(text, font1, PdfBrushes.Blue, x, y)
            y = y + size.Height

            label = "URI Annonationa Action: "
            page.Canvas.DrawString(label, font, PdfBrushes.OrangeRed, 0, y, format)
            x = font.MeasureString(label, format).Width
            text = "JavaScript Action (Click Me)"
            location = New PointF(x, y)
            size = font1.MeasureString(text)
            linkBounds = New RectangleF(location, size)
            Dim link4 As New PdfUriAnnotation(linkBounds)
            link4.Border = New PdfAnnotationBorder(0.75F)
            link4.Color = Color.LightGray
            'script
            Dim script As String _
                = "app.alert({" _
                & "    cMsg: ""Hello.""," _
                & "    nIcon: 3," _
                & "    cTitle: ""JavaScript Action""" _
                & "});"
            Dim action As New PdfJavaScriptAction(script)
            link4.Action = action
            TryCast(page, PdfNewPage).Annotations.Add(link4)
            page.Canvas.DrawString(text, font1, PdfBrushes.Blue, x, y)
            y = y + size.Height

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

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

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