C#/VB.NET: создание таблиц в PDF

PM> Install-Package Spire.PDF

using System;
    using System.Data;
    using System.Drawing;
    using Spire.Pdf;
    using Spire.Pdf.Graphics;
    using Spire.Pdf.Tables;
    
    namespace CreateTable
    {
        class Program
        {
            static void Main(string[] args)
            {
                //Create a PdfDocument object
                PdfDocument doc = new PdfDocument();
    
                //Add a page
                PdfPageBase page = doc.Pages.Add(PdfPageSize.A4, new PdfMargins(40));
    
                //Create a PdfTable object
                PdfTable table = new PdfTable();
    
                //Set font for header and the rest cells
                table.Style.DefaultStyle.Font = new PdfTrueTypeFont(new Font("Times New Roman", 12f, FontStyle.Regular), true);
                table.Style.HeaderStyle.Font = new PdfTrueTypeFont(new Font("Times New Roman", 12f, FontStyle.Bold), true);
    
                //Crate a DataTable
                DataTable dataTable = new DataTable();
                dataTable.Columns.Add("ID");
                dataTable.Columns.Add("Name");
                dataTable.Columns.Add("Department");
                dataTable.Columns.Add("Position");
                dataTable.Columns.Add("Level");
                dataTable.Rows.Add(new string[] { "1", "David", "IT", "Manager", "1" });
                dataTable.Rows.Add(new string[] { "3", "Julia", "HR", "Manager", "1" });
                dataTable.Rows.Add(new string[] { "4", "Sophie", "Marketing", "Manager", "1" });
                dataTable.Rows.Add(new string[] { "7", "Wickey", "Marketing", "Sales Rep", "2" });
                dataTable.Rows.Add(new string[] { "9", "Wayne", "HR", "HR Supervisor", "2" });
                dataTable.Rows.Add(new string[] { "11", "Mia", "Dev", "Developer", "2" });
    
                //Set the datatable as the data source of table
                table.DataSource = dataTable;
    
                //Show header(the header is hidden by default)
                table.Style.ShowHeader = true;
    
                //Set font color and backgroud color of header row
                table.Style.HeaderStyle.BackgroundBrush = PdfBrushes.Gray;
                table.Style.HeaderStyle.TextBrush = PdfBrushes.White;
    
                //Set text alignment in header row
                table.Style.HeaderStyle.StringFormat = new PdfStringFormat(PdfTextAlignment.Center, PdfVerticalAlignment.Middle);
    
                //Set text alignment in other cells
                for (int i = 0; i < table.Columns.Count; i++)
                {
                    table.Columns[i].StringFormat = new PdfStringFormat(PdfTextAlignment.Center, PdfVerticalAlignment.Middle);
                }
    
                //Register with BeginRowLayout event
                table.BeginRowLayout += Table_BeginRowLayout;
    
                //Draw table on the page
                table.Draw(page, new PointF(0, 30));
    
                //Save the document to a PDF file
                doc.SaveToFile("PdfTable.pdf");
            }
    
            //Event handler
            private static void Table_BeginRowLayout(object sender, BeginRowLayoutEventArgs args)
            {
                //Set row height
                args.MinimalHeight = 20f;
    
                //Alternate row color
                if (args.RowIndex < 0)
                {
                    return;
                }
                if (args.RowIndex % 2 == 1)
                {
                    args.CellStyle.BackgroundBrush = PdfBrushes.LightGray;
                }
                else
                {
                    args.CellStyle.BackgroundBrush = PdfBrushes.White;
                }
            }
        }
    }

Imports System
    Imports System.Data
    Imports System.Drawing
    Imports Spire.Pdf
    Imports Spire.Pdf.Graphics
    Imports Spire.Pdf.Tables
    
    Namespace CreateTable
        Class Program
            Shared  Sub Main(ByVal args() As String)
                'Create a PdfDocument object
                Dim doc As PdfDocument =  New PdfDocument()
    
                'Add a page
                Dim page As PdfPageBase =  doc.Pages.Add(PdfPageSize.A4,New PdfMargins(40))
    
                'Create a PdfTable object
                Dim table As PdfTable =  New PdfTable()
    
                'Set font for header and the rest cells
                table.Style.DefaultStyle.Font = New PdfTrueTypeFont(New Font("Times New Roman", 12f, FontStyle.Regular), True)
                table.Style.HeaderStyle.Font = New PdfTrueTypeFont(New Font("Times New Roman", 12f, FontStyle.Bold), True)
    
                'Crate a DataTable
                Dim dataTable As DataTable =  New DataTable()
                dataTable.Columns.Add("ID")
                dataTable.Columns.Add("Name")
                dataTable.Columns.Add("Department")
                dataTable.Columns.Add("Position")
                dataTable.Columns.Add("Level")
                Dim String() As dataTable.Rows.Add(New
                {
                     "1", "David", "IT", "Manager", "1"
                }
    )
                Dim String() As dataTable.Rows.Add(New
                {
                     "3", "Julia", "HR", "Manager", "1"
                }
    )
                Dim String() As dataTable.Rows.Add(New
                {
                     "4", "Sophie", "Marketing", "Manager", "1"
                }
    )
                Dim String() As dataTable.Rows.Add(New
                {
                     "7", "Wickey", "Marketing", "Sales Rep", "2"
                }
    )
                Dim String() As dataTable.Rows.Add(New
                {
                     "9", "Wayne", "HR", "HR Supervisor", "2"
                }
    )
                Dim String() As dataTable.Rows.Add(New
                {
                     "11", "Mia", "Dev", "Developer", "2"
                }
    )
    
                'Set the datatable as the data source of table
                table.DataSource = dataTable
    
                'Show header(the header is hidden by default)
                table.Style.ShowHeader = True
    
                'Set font color and backgroud color of header row
                table.Style.HeaderStyle.BackgroundBrush = PdfBrushes.Gray
                table.Style.HeaderStyle.TextBrush = PdfBrushes.White
    
                'Set text alignment in header row
                table.Style.HeaderStyle.StringFormat = New PdfStringFormat(PdfTextAlignment.Center, PdfVerticalAlignment.Middle)
    
                'Set text alignment in other cells
                Dim i As Integer
                For  i = 0 To  table.Columns.Count- 1  Step  i + 1
                    table.Columns(i).StringFormat = New PdfStringFormat(PdfTextAlignment.Center, PdfVerticalAlignment.Middle)
                Next
    
                'Register with BeginRowLayout event
                table.BeginRowLayout += Table_BeginRowLayout
    
                'Draw table on the page
                table.Draw(page,New PointF(0,30))
    
                'Save the document to a PDF file
                doc.SaveToFile("PdfTable.pdf")
            End Sub
    
            'Event handler
            Private Shared  Sub Table_BeginRowLayout(ByVal sender As Object, ByVal args As BeginRowLayoutEventArgs)
                'Set row height
                args.MinimalHeight = 20f
    
                'Alternate row color
                If args.RowIndex < 0 Then
                    Return
                End If
                If args.RowIndex % 2 = 1 Then
                    args.CellStyle.BackgroundBrush = PdfBrushes.LightGray
                Else
                    args.CellStyle.BackgroundBrush = PdfBrushes.White
                End If
            End Sub
        End Class
    End Namespace

using Spire.Pdf;
    using Spire.Pdf.Graphics;
    using Spire.Pdf.Grid;
    using System.Drawing;
    
    namespace CreateGrid
    {
        class Program
        {
            static void Main(string[] args)
            {
                //Create a PdfDocument object
                PdfDocument doc = new PdfDocument();
    
                //Add a page
                PdfPageBase page = doc.Pages.Add(PdfPageSize.A4,new PdfMargins(40));
    
                //Create a PdfGrid
                PdfGrid grid = new PdfGrid();
    
                //Set cell padding
                grid.Style.CellPadding = new PdfPaddings(1, 1, 1, 1);
    
                //Set font
                grid.Style.Font = new PdfTrueTypeFont(new Font("Times New Roman", 13f, FontStyle.Regular), true);
    
                //Add rows
                PdfGridRow row1 = grid.Rows.Add();
                PdfGridRow row2 = grid.Rows.Add();
                PdfGridRow row3 = grid.Rows.Add();
                PdfGridRow row4 = grid.Rows.Add();
                grid.Columns.Add(4);
    
                //Set column width
                foreach (PdfGridColumn col in grid.Columns)
                {
                    col.Width = 110f;
                }
    
                //Write data into specific cells
                row1.Cells[0].Value = "Order and Payment Status";
                row2.Cells[0].Value = "Order number";
                row2.Cells[1].Value = "Date";
                row2.Cells[2].Value = "Customer";
                row2.Cells[3].Value = "Paid or not";
                row3.Cells[0].Value = "00223";
                row3.Cells[1].Value = "2022/06/02";
                row3.Cells[2].Value = "Brick Lane Realty";
                row3.Cells[3].Value = "Yes";
                row4.Cells[0].Value = "00224";
                row4.Cells[1].Value = "2022/06/03";
                row4.Cells[3].Value = "No";
    
                //Span cell across columns
                row1.Cells[0].ColumnSpan = 4;
    
                //Span cell across rows
                row3.Cells[2].RowSpan = 2;
    
                //Set text alignment of specific cells
                row1.Cells[0].StringFormat = new PdfStringFormat(PdfTextAlignment.Center);
                row3.Cells[2].StringFormat = new PdfStringFormat(PdfTextAlignment.Left, PdfVerticalAlignment.Middle);
    
                //Set background color of specific cells
                row1.Cells[0].Style.BackgroundBrush = PdfBrushes.Orange;
                row4.Cells[3].Style.BackgroundBrush = PdfBrushes.LightGray;
    
                //Format cell border
                PdfBorders borders = new PdfBorders();
                borders.All = new PdfPen(Color.Orange, 0.8f);
                foreach (PdfGridRow pgr in grid.Rows)
                {
                    foreach (PdfGridCell pgc in pgr.Cells)
                    {
                        pgc.Style.Borders = borders;
                    }
                }
    
                //Draw table on the page
                grid.Draw(page, new PointF(0, 30));
    
                //Save the document to a PDF file
                doc.SaveToFile("PdfGrid.pdf");
            }
        }
    }

Imports Spire.Pdf
    Imports Spire.Pdf.Graphics
    Imports Spire.Pdf.Grid
    Imports System.Drawing
    
    Namespace CreateGrid
        Class Program
            Shared  Sub Main(ByVal args() As String)
                'Create a PdfDocument object
                Dim doc As PdfDocument =  New PdfDocument()
    
                'Add a page
                Dim page As PdfPageBase =  doc.Pages.Add(PdfPageSize.A4,New PdfMargins(40))
    
                'Create a PdfGrid
                Dim grid As PdfGrid =  New PdfGrid()
    
                'Set cell padding
                grid.Style.CellPadding = New PdfPaddings(1, 1, 1, 1)
    
                'Set font
                grid.Style.Font = New PdfTrueTypeFont(New Font("Times New Roman", 13f, FontStyle.Regular), True)
    
                'Add rows
                Dim row1 As PdfGridRow =  grid.Rows.Add()
                Dim row2 As PdfGridRow =  grid.Rows.Add()
                Dim row3 As PdfGridRow =  grid.Rows.Add()
                Dim row4 As PdfGridRow =  grid.Rows.Add()
                grid.Columns.Add(4)
    
                'Set column width
                Dim col As PdfGridColumn
                For Each col In grid.Columns
                    col.Width = 110f
                Next
    
                'Write data into specific cells
                row1.Cells(0).Value = "Order and Payment Status"
                row2.Cells(0).Value = "Order number"
                row2.Cells(1).Value = "Date"
                row2.Cells(2).Value = "Customer"
                row2.Cells(3).Value = "Paid or not"
                row3.Cells(0).Value = "00223"
                row3.Cells(1).Value = "2022/06/02"
                row3.Cells(2).Value = "Brick Lane Realty"
                row3.Cells(3).Value = "Yes"
                row4.Cells(0).Value = "00224"
                row4.Cells(1).Value = "2022/06/03"
                row4.Cells(3).Value = "No"
    
                'Span cell across columns
                row1.Cells(0).ColumnSpan = 4
    
                'Span cell across rows
                row3.Cells(2).RowSpan = 2
    
                'Set text alignment of specific cells
                row1.Cells(0).StringFormat = New PdfStringFormat(PdfTextAlignment.Center)
                row3.Cells(2).StringFormat = New PdfStringFormat(PdfTextAlignment.Left, PdfVerticalAlignment.Middle)
    
                'Set background color of specific cells
                row1.Cells(0).Style.BackgroundBrush = PdfBrushes.Orange
                row4.Cells(3).Style.BackgroundBrush = PdfBrushes.LightGray
    
                'Format cell border
                Dim borders As PdfBorders =  New PdfBorders()
                borders.All = New PdfPen(Color.Orange, 0.8f)
                Dim pgr As PdfGridRow
                For Each pgr In grid.Rows
                    Dim pgc As PdfGridCell
                    For Each pgc In pgr.Cells
                        pgc.Style.Borders = borders
                    Next
                Next
    
                'Draw table on the page
                grid.Draw(page,New PointF(0,30))
    
                'Save the document to a PDF file
                doc.SaveToFile("PdfGrid.pdf")
            End Sub
        End Class
    End Namespace