Reporting for WinForms - How to Change Formatting in the XRRichText Control

C#
using System;
using System.Windows.Forms;
using DevExpress.XtraReports.UI;

namespace ReportingXRRichTextFormatSample {
    public partial class Form1 : Form {
        private XtraReport1 report = new XtraReport1();
        
        public Form1() {
            InitializeComponent();
        }

        private void button1_Click(object sender, EventArgs e) {
            report.OverrideRtfFormatting = checkBox1.Checked;
            report.CreateDocument();
            report.ShowPreviewDialog();
        }
    }
}

Visual Basic
Imports System
Imports System.Windows.Forms
Imports DevExpress.XtraReports.UI

Namespace ReportingXRRichTextFormatSample
    Partial Public Class Form1
        Inherits Form

        Private report As New XtraReport1()

        Public Sub New()
            InitializeComponent()
        End Sub

        Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles button1.Click
            report.OverrideRtfFormatting = checkBox1.Checked
            report.CreateDocument()
            report.ShowPreviewDialog()
        End Sub
    End Class
End Namespace

C#
using System.Drawing;
using DevExpress.XtraReports.UI;
using DevExpress.XtraRichEdit;
using DevExpress.XtraRichEdit.API.Native;

namespace ReportingXRRichTextFormatSample {
    public partial class XtraReport1 : DevExpress.XtraReports.UI.XtraReport {
        private RichEditDocumentServer richEditDocumentServer;
        public bool OverrideRtfFormatting { get; set; }

        public XtraReport1() {
            InitializeComponent();
        }

       private void XtraReport1_BeforePrint(object sender, System.ComponentModel.CancelEventArgs e) {
            xrRichText1.ExpressionBindings.Clear();

            if (OverrideRtfFormatting) {
                if (richEditDocumentServer == null)
                    richEditDocumentServer = new RichEditDocumentServer();
            }
            else
                xrRichText1.ExpressionBindings.Add(new ExpressionBinding()
                {
                    PropertyName = "Rtf",
                    Expression = "[RtfContent]",
                    EventName = "BeforePrint"
                });
        }

        private void xrRichText1_BeforePrint(object sender, System.ComponentModel.CancelEventArgs e) {
           if (!OverrideRtfFormatting)
               return;
            
            richEditDocumentServer.RtfText = GetCurrentColumnValue("RtfContent").ToString();
            ApplyRTFModification(richEditDocumentServer);
            xrRichText1.Rtf = richEditDocumentServer.RtfText;
        }

        private void ApplyRTFModification(RichEditDocumentServer server) {
            // Apply default formatting
            server.Document.DefaultCharacterProperties.FontName = "Arial";
            server.Document.DefaultCharacterProperties.FontSize = 9;
            server.Document.DefaultCharacterProperties.ForeColor = Color.FromArgb(120, 120, 120);
            server.Document.DefaultParagraphProperties.Alignment = ParagraphAlignment.Center;

            // Remove whitespaces from the end of RTF content
            DocumentRange[] dots = server.Document.FindAll(".", SearchOptions.None);
            DocumentPosition lastDot = dots[dots.Length - 1].End;
            server.Document.Delete(server.Document.CreateRange(lastDot, server.Document.Range.End.ToInt() - lastDot.ToInt()));
            
            // Append formatted word
            DocumentRange range = server.Document.InsertText(server.Document.Range.End, " [Approved]");
            CharacterProperties cp = server.Document.BeginUpdateCharacters(range);
            cp.FontName = "Courier New";
            cp.FontSize = 10;
            cp.ForeColor = Color.Red;
            cp.Underline = UnderlineType.Single;
            cp.UnderlineColor = Color.Red;
            server.Document.EndUpdateCharacters(cp);
        }
    }
}

Visual Basic
Imports System.Drawing
Imports DevExpress.XtraReports.UI
Imports DevExpress.XtraRichEdit
Imports DevExpress.XtraRichEdit.API.Native

Namespace ReportingXRRichTextFormatSample
    Partial Public Class XtraReport1
        Inherits DevExpress.XtraReports.UI.XtraReport

        Private richEditDocumentServer As RichEditDocumentServer
        Public Property OverrideRtfFormatting() As Boolean

        Public Sub New()
            InitializeComponent()
        End Sub

        Private Sub XtraReport1_BeforePrint(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles Me.BeforePrint
            xrRichText1.ExpressionBindings.Clear()

            If OverrideRtfFormatting Then
                If richEditDocumentServer Is Nothing Then
                    richEditDocumentServer = New RichEditDocumentServer()
                End If
            Else
                xrRichText1.ExpressionBindings.Add(New ExpressionBinding() With {
                    .PropertyName = "Rtf",
                    .Expression = "[RtfContent]",
                    .EventName = "BeforePrint"
                })
            End If

        End Sub

        Private Sub xrRichText1_BeforePrint(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles xrRichText1.BeforePrint
           If Not OverrideRtfFormatting Then
               Return
           End If

            richEditDocumentServer.RtfText = GetCurrentColumnValue("RtfContent").ToString()
            ApplyRTFModification(richEditDocumentServer)
            xrRichText1.Rtf = richEditDocumentServer.RtfText
        End Sub

        Private Sub ApplyRTFModification(ByVal server As RichEditDocumentServer)
            ' Apply default formatting
            server.Document.DefaultCharacterProperties.FontName = "Arial"
            server.Document.DefaultCharacterProperties.FontSize = 9
            server.Document.DefaultCharacterProperties.ForeColor = Color.FromArgb(120, 120, 120)
            server.Document.DefaultParagraphProperties.Alignment = ParagraphAlignment.Center

            ' Remove whitespaces from the end of RTF content
            Dim dots() As DocumentRange = server.Document.FindAll(".", SearchOptions.None)
            Dim lastDot As DocumentPosition = dots(dots.Length - 1).End
            server.Document.Delete(server.Document.CreateRange(lastDot, server.Document.Range.End.ToInt() - lastDot.ToInt()))

            ' Append formatted word
            Dim range As DocumentRange = server.Document.InsertText(server.Document.Range.End, " [Approved]")
            Dim cp As CharacterProperties = server.Document.BeginUpdateCharacters(range)
            cp.FontName = "Courier New"
            cp.FontSize = 10
            cp.ForeColor = Color.Red
            cp.Underline = UnderlineType.Single
            cp.UnderlineColor = Color.Red
            server.Document.EndUpdateCharacters(cp)
        End Sub
    End Class
End Namespace