WinForms Data Grid - Show progress text along with a progress bar in the exported document

C#
using DevExpress.XtraEditors;
using DevExpress.XtraEditors.Drawing;
using DevExpress.XtraEditors.Registrator;
using DevExpress.XtraEditors.Repository;
using DevExpress.XtraEditors.ViewInfo;
using DevExpress.XtraPrinting;
using System;
using System.Drawing;
using System.Drawing.Drawing2D;

namespace WindowsApplication1
{
    public class MyProgressBarControl : ProgressBarControl
    {
        static MyProgressBarControl()
        {
            RepositoryItemMyProgressBarControl.RegisterMyProgressBarControl();
        }

        public MyProgressBarControl()
            : base()
        {
        }

        public override string EditorTypeName {
            get {
                return RepositoryItemMyProgressBarControl.MyProgressBarControlName;
            }
        }

        public new RepositoryItemMyProgressBarControl Properties {
            get {
                return (RepositoryItemMyProgressBarControl)base.Properties;
            }
        }

        [UserRepositoryItem("RegisterMyProgressBarControl")]
        public class RepositoryItemMyProgressBarControl : RepositoryItemProgressBar
        {
            public const string MyProgressBarControlName = "MyProgressBarControl";

            static RepositoryItemMyProgressBarControl()
            {
                RegisterMyProgressBarControl();
            }
            public RepositoryItemMyProgressBarControl()
                : base()
            {
            }

            public override VisualBrick GetBrick(PrintCellHelperInfo info)
            {
                Bitmap bmp = new Bitmap(info.Rectangle.Width, info.Rectangle.Height);
                Graphics gr = Graphics.FromImage(bmp);

                gr.FillRectangle(new SolidBrush(Color.White), info.Rectangle);
                ImageBrick brick = new ImageBrick(BorderSide.None, 0, Color.Transparent, Color.Transparent);
                int width = Convert.ToInt32(info.Rectangle.Width * Convert.ToDouble(info.EditValue) / ((double)100));
                if(width > 0)
                {
                    gr.FillRectangle(new LinearGradientBrush(new Rectangle(0, 0, width, info.Rectangle.Height), Color.LightBlue, Color.White, 90, true), new Rectangle(0, 0, width, info.Rectangle.Height));
                    brick.Image = bmp;
                }
                gr.DrawString(info.DisplayText, info.Appearace.Font, new SolidBrush(Color.Black), new PointF(0, 0));
                brick.Rect = info.Rectangle;
                return brick;
            }

            public static void RegisterMyProgressBarControl()
            {
                EditorRegistrationInfo.Default.Editors.Add(new EditorClassInfo(MyProgressBarControlName, typeof(MyProgressBarControl), typeof(RepositoryItemMyProgressBarControl), typeof(MyProgressBarViewInfo), new ProgressBarPainter(), true));
            }

            public override string EditorTypeName {
                get {
                    return MyProgressBarControlName;
                }
            }
        }

        public class MyProgressBarViewInfo : ProgressBarViewInfo
        {
            public MyProgressBarViewInfo(RepositoryItem item)
                : base(item)
            {
            }
        }
    }
}

Visual Basic
Imports DevExpress.XtraEditors
Imports DevExpress.XtraEditors.Drawing
Imports DevExpress.XtraEditors.Registrator
Imports DevExpress.XtraEditors.Repository
Imports DevExpress.XtraEditors.ViewInfo
Imports DevExpress.XtraPrinting
Imports System
Imports System.Drawing
Imports System.Drawing.Drawing2D

Namespace WindowsApplication1
    Public Class MyProgressBarControl
        Inherits ProgressBarControl

        Shared Sub New()
            RepositoryItemMyProgressBarControl.RegisterMyProgressBarControl()
        End Sub

        Public Sub New()
            MyBase.New()
        End Sub

        Public Overrides ReadOnly Property EditorTypeName() As String
            Get
                Return RepositoryItemMyProgressBarControl.MyProgressBarControlName
            End Get
        End Property

        Public Shadows ReadOnly Property Properties() As RepositoryItemMyProgressBarControl
            Get
                Return CType(MyBase.Properties, RepositoryItemMyProgressBarControl)
            End Get
        End Property

        <UserRepositoryItem("RegisterMyProgressBarControl")>
        Public Class RepositoryItemMyProgressBarControl
            Inherits RepositoryItemProgressBar

            Public Const MyProgressBarControlName As String = "MyProgressBarControl"

            Shared Sub New()
                RegisterMyProgressBarControl()
            End Sub
            Public Sub New()
                MyBase.New()
            End Sub

            Public Overrides Function GetBrick(ByVal info As PrintCellHelperInfo) As VisualBrick
                Dim bmp As New Bitmap(info.Rectangle.Width, info.Rectangle.Height)
                Dim gr As Graphics = Graphics.FromImage(bmp)

                gr.FillRectangle(New SolidBrush(Color.White), info.Rectangle)
                Dim brick As New ImageBrick(BorderSide.None, 0, Color.Transparent, Color.Transparent)
                Dim width As Integer = Convert.ToInt32(info.Rectangle.Width * Convert.ToDouble(info.EditValue) / (CDbl(100)))
                If width > 0 Then
                    gr.FillRectangle(New LinearGradientBrush(New Rectangle(0, 0, width, info.Rectangle.Height), Color.LightBlue, Color.White, 90, True), New Rectangle(0, 0, width, info.Rectangle.Height))
                    brick.Image = bmp
                End If
                gr.DrawString(info.DisplayText, info.Appearace.Font, New SolidBrush(Color.Black), New PointF(0, 0))
                brick.Rect = info.Rectangle
                Return brick
            End Function

            Public Shared Sub RegisterMyProgressBarControl()
                EditorRegistrationInfo.Default.Editors.Add(New EditorClassInfo(MyProgressBarControlName, GetType(MyProgressBarControl), GetType(RepositoryItemMyProgressBarControl), GetType(MyProgressBarViewInfo), New ProgressBarPainter(), True))
            End Sub

            Public Overrides ReadOnly Property EditorTypeName() As String
                Get
                    Return MyProgressBarControlName
                End Get
            End Property
        End Class

        Public Class MyProgressBarViewInfo
            Inherits ProgressBarViewInfo

            Public Sub New(ByVal item As RepositoryItem)
                MyBase.New(item)
            End Sub
        End Class
    End Class
End Namespace

C#
using System;
using System.Data;
using System.Windows.Forms;

namespace WindowsApplication1
{
    public partial class Form1 : Form
    {
        Random random = new Random();

        public Form1()
        {
            InitializeComponent();
        }

        private void button1_Click(object sender, EventArgs e)
        {
            gridControl1.ShowPrintPreview();
        }

        private void Form1_Load(object sender, EventArgs e)
        {
            productsBindingSource.DataSource = GetProductsDataTable();
        }

        DataTable GetProductsDataTable()
        {
            DataTable table = new DataTable();
            table.TableName = "Products";
            table.Columns.Add(new DataColumn("ProductName", typeof(string)));
            table.Columns.Add(new DataColumn("UnitPrice", typeof(double)));
            table.Columns.Add(new DataColumn("UnitsOnOrder", typeof(int)));
            for(int i = 0; i < 20; i++)
            {
                int index = i + 1;
                table.Rows.Add("Product " + index, Math.Round(random.NextDouble() * 1000, 2), random.Next(0, 9) * 10);
            }
            return table;
        }
    }
}

Visual Basic
Imports System
Imports System.Data
Imports System.Windows.Forms

Namespace WindowsApplication1
    Partial Public Class Form1
        Inherits Form

        Private random As New Random()

        Public Sub New()
            InitializeComponent()
        End Sub

        Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles button1.Click
            gridControl1.ShowPrintPreview()
        End Sub

        Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
            productsBindingSource.DataSource = GetProductsDataTable()
        End Sub

        Private Function GetProductsDataTable() As DataTable
            Dim table As New DataTable()
            table.TableName = "Products"
            table.Columns.Add(New DataColumn("ProductName", GetType(String)))
            table.Columns.Add(New DataColumn("UnitPrice", GetType(Double)))
            table.Columns.Add(New DataColumn("UnitsOnOrder", GetType(Integer)))
            For i As Integer = 0 To 19
                Dim index As Integer = i + 1
                table.Rows.Add("Product " & index, Math.Round(random.NextDouble() * 1000, 2), random.Next(0, 9) * 10)
            Next i
            Return table
        End Function
    End Class
End Namespace