RichEditControl.BeforeExport Event

public event BeforeExportEventHandler BeforeExport

event Public BeforeExport As BeforeExportEventHandler

private void RichEditControl_BeforeExport(object sender, BeforeExportEventArgs e)
{

    if (e.DocumentFormat == DocumentFormat.PlainText)

    {

        //Include document fields in the exported plain text: 

        PlainTextDocumentExporterOptions plainTextOptions = e.Options as PlainTextDocumentExporterOptions;

        plainTextOptions.ExportHiddenText = true;

        plainTextOptions.FieldCodeEndMarker = ">";

        plainTextOptions.FieldCodeStartMarker = "[<";

        plainTextOptions.FieldResultEndMarker = "]";

    }



    if (e.DocumentFormat == DocumentFormat.OpenXml)

    {

        //Specify what DOCX document properties to export: 

        OpenXmlDocumentExporterOptions docxOptions = e.Options as OpenXmlDocumentExporterOptions;

        docxOptions.ExportedDocumentProperties = DocumentPropertyNames.Title | DocumentPropertyNames.LastModifiedBy | DocumentPropertyNames.Modified;

    }



    if (e.DocumentFormat == DocumentFormat.Html)

    {

        //Specify HTML export options: 

        HtmlDocumentExporterOptions htmlOptions = e.Options as HtmlDocumentExporterOptions;

        htmlOptions.EmbedImages = true;

        htmlOptions.CssPropertiesExportType = CssPropertiesExportType.Style;

        htmlOptions.UseFontSubstitution = false;

    }

}

Private Sub RichEditControl_BeforeExport(ByVal sender As Object, ByVal e As BeforeExportEventArgs)



    If e.DocumentFormat = DocumentFormat.PlainText Then 

        'Include document fields in the exported plain text: 

        Dim plainTextOptions As PlainTextDocumentExporterOptions = TryCast(e.Options, PlainTextDocumentExporterOptions)

        plainTextOptions.ExportHiddenText = True 

        plainTextOptions.FieldCodeEndMarker = ">" 

        plainTextOptions.FieldCodeStartMarker = "[<" 

        plainTextOptions.FieldResultEndMarker = "]" 

    End If 



    If e.DocumentFormat = DocumentFormat.OpenXml Then 

        'Specify what DOCX document properties to export: 

        Dim docxOptions As OpenXmlDocumentExporterOptions = TryCast(e.Options, OpenXmlDocumentExporterOptions)

        docxOptions.ExportedDocumentProperties = DocumentPropertyNames.Title Or DocumentPropertyNames.LastModifiedBy Or DocumentPropertyNames.Modified

    End If 



    If e.DocumentFormat = DocumentFormat.Html Then 

        'Specify HTML export options: 

        Dim htmlOptions As HtmlDocumentExporterOptions = TryCast(e.Options, HtmlDocumentExporterOptions)

        htmlOptions.EmbedImages = True 

        htmlOptions.CssPropertiesExportType = CssPropertiesExportType.Style

        htmlOptions.UseFontSubstitution = False 

    End If 

End Sub