Import and Export

<dxre:RichEditControl  Name="richEditControl1" 
                       CommandBarStyle="Ribbon" 
                       DocumentSource="{DXBinding $local:SourceHelper.GetDocumentSource()'}">
</dxre:RichEditControl>

private void richEditControl1_BeforeImport(object sender, BeforeImportEventArgs e) {
    if(e.DocumentFormat == DocumentFormat.Html) {
        e.Options.SourceUri = "file:///" + Application.StartupPath + imgPath;
    }
}
private void richEditControl2_BeforeImport(object sender, BeforeImportEventArgs e) {
    if(e.DocumentFormat == DocumentFormat.PlainText) {
        ((PlainTextDocumentImporterOptions)e.Options).Encoding = cur_Encoding;
    }
}

Private Sub richEditControl1_BeforeImport(ByVal sender As Object, ByVal e As BeforeImportEventArgs) Handles richEditControl1.BeforeImport
    If e.DocumentFormat = DocumentFormat.Html Then 
        e.Options.SourceUri = "file:///" & Application.StartupPath & imgPath
    End If 
End Sub 
Private Sub richEditControl2_BeforeImport(ByVal sender As Object, ByVal e As BeforeImportEventArgs) Handles richEditControl2.BeforeImport
    If e.DocumentFormat = DocumentFormat.PlainText Then 
        CType(e.Options, PlainTextDocumentImporterOptions).Encoding = cur_Encoding
    End If 
End Sub 

public class CustomUriProvider : IUriProvider {
    string rootDirecory;
    public CustomUriProvider(string rootDirectory) {
        if (String.IsNullOrEmpty(rootDirectory))
            Exceptions.ThrowArgumentException("rootDirectory", rootDirectory);
        this.rootDirecory = rootDirectory;
    }

    public string CreateCssUri(string rootUri, string styleText, string relativeUri) {
        string cssDir = String.Format("{0}\\{1}", this.rootDirecory, rootUri.Trim('/'));
        if (!Directory.Exists(cssDir))
            Directory.CreateDirectory(cssDir);
        string cssFileName = String.Format("{0}\\style.css", cssDir);
        File.AppendAllText(cssFileName, styleText);
        return GetRelativePath(cssFileName);
    }
    public string CreateImageUri(string rootUri, DevExpress.Office.Utils.OfficeImage image, string relativeUri) {
        string imagesDir = String.Format("{0}\\{1}", this.rootDirecory, rootUri.Trim('/'));
        if (!Directory.Exists(imagesDir))
            Directory.CreateDirectory(imagesDir);
        string imageName = String.Format("{0}\\{1}.png", imagesDir, Guid.NewGuid());
        image.NativeImage.Save(imageName, ImageFormat.Png);
        return GetRelativePath(imageName);
    }
    string GetRelativePath(string path) {
        string substring = path.Substring(this.rootDirecory.Length);
        return substring.Replace("\\", "/").Trim('/');
    }
}

Public Class CustomUriProvider
        Implements IUriProvider
        Private rootDirecory As String 
        Public Sub New(ByVal rootDirectory As String)
            If String.IsNullOrEmpty(rootDirectory) Then 
                Exceptions.ThrowArgumentException("rootDirectory", rootDirectory)
            End If 
            Me.rootDirecory = rootDirectory
        End Sub 

        Public Function CreateCssUri(ByVal rootUri As String, ByVal styleText As String, ByVal relativeUri As String) As String _
Implements IUriProvider.CreateCssUri
            Dim cssDir As String = String.Format("{0}\{1}", Me.rootDirecory, rootUri.Trim("/"c))
            If (Not Directory.Exists(cssDir)) Then 
                Directory.CreateDirectory(cssDir)
            End If 
            Dim cssFileName As String = String.Format("{0}\style.css", cssDir)
            File.AppendAllText(cssFileName, styleText)
            Return GetRelativePath(cssFileName)
        End Function 
        Public Function CreateImageUri(ByVal rootUri As String, ByVal image As DevExpress.Office.Utils.OfficeImage, ByVal relativeUri As String) As String  _
Implements IUriProvider.CreateImageUri
            Dim imagesDir As String = String.Format("{0}\{1}", Me.rootDirecory, rootUri.Trim("/"c))
            If (Not Directory.Exists(imagesDir)) Then 
                Directory.CreateDirectory(imagesDir)
            End If 
            Dim imageName As String = String.Format("{0}\{1}.png", imagesDir, Guid.NewGuid())
            image.NativeImage.Save(imageName, ImageFormat.Png)
            Return GetRelativePath(imageName)
        End Function 
        Private Function GetRelativePath(ByVal path As String) As String 
            Dim substring As String = path.Substring(Me.rootDirecory.Length)
            Return substring.Replace("\", "/").Trim("/"c)
        End Function 
    End Class 

private void richEditControl1_BeforeExport(object sender, BeforeExportEventArgs e) {
    HtmlDocumentExporterOptions options = e.Options as HtmlDocumentExporterOptions;
    if (options != null) {
        options.CssPropertiesExportType = CssPropertiesExportType.Link;
        options.HtmlNumberingListExportFormat = HtmlNumberingListExportFormat.HtmlFormat;
        options.TargetUri = System.IO.Path.GetFileNameWithoutExtension(this.fileName);
    }
}

Private Sub richEditControl1_BeforeExport(ByVal sender As Object, ByVal e As BeforeExportEventArgs)
    Dim options As HtmlDocumentExporterOptions = TryCast(e.Options, HtmlDocumentExporterOptions)
    If options IsNot Nothing Then 
        options.CssPropertiesExportType = CssPropertiesExportType.Link
        options.HtmlNumberingListExportFormat = HtmlNumberingListExportFormat.HtmlFormat
        options.TargetUri = System.IO.Path.GetFileNameWithoutExtension(Me.fileName)
    End If 
End Sub 

<dxre:RichEditControl.ExportOptions>
   <dxre:DXRichEditDocumentExportOptions>
      <dxre:DXRichEditDocumentExportOptions.PlainTextOptions>
    <dxre:DXRichEditPlainTextDocumentExporterOptions ExportHiddenText="True" 
                                                     FieldCodeEndMarker="|" 
                                                     FieldResultEndMarker="}" 
                                                     FieldCodeStartMarker="{}"/>
      </dxre:DXRichEditDocumentExportOptions.PlainTextOptions>
   </dxre:DXRichEditDocumentExportOptions>
</dxre:RichEditControl.ExportOptions>

public class CustomUriProvider : DevExpress.Office.Services.IUriProvider {
    string rootDirecory;
    public CustomUriProvider(string rootDirectory) {
        if (String.IsNullOrEmpty(rootDirectory))
            DevExpress.Office.Utils.Exceptions.ThrowArgumentException("rootDirectory", rootDirectory);
        this.rootDirecory = rootDirectory;
    }

    public string CreateCssUri(string rootUri, string styleText, string relativeUri) {
        string cssDir = String.Format("{0}\\{1}", this.rootDirecory, rootUri.Trim('/'));
        if (!Directory.Exists(cssDir))
            Directory.CreateDirectory(cssDir);
        string cssFileName = String.Format("{0}\\style.css", cssDir);
        File.AppendAllText(cssFileName, styleText);
        return GetRelativePath(cssFileName);
    }
        public string CreateImageUri(string rootUri, DevExpress.Office.Utils.OfficeImage image, string relativeUri) {
        string imagesDir = String.Format("{0}\\{1}", this.rootDirecory, rootUri.Trim('/'));
        if (!Directory.Exists(imagesDir))
            Directory.CreateDirectory(imagesDir);
        string imageName = String.Format("{0}\\{1}.png", imagesDir, Guid.NewGuid());
        image.NativeImage.Save(imageName, ImageFormat.Png);
        return GetRelativePath(imageName);
    }
    string GetRelativePath(string path) {
        string substring = path.Substring(this.rootDirecory.Length);
        return substring.Replace("\\", "/").Trim('/');
    }
}

Public Class CustomUriProvider
    Implements DevExpress.Office.Services.IUriProvider

    Private rootDirecory As String 
    Public Sub New(ByVal rootDirectory As String)
        If String.IsNullOrEmpty(rootDirectory) Then 
            DevExpress.Office.Utils.Exceptions.ThrowArgumentException("rootDirectory", rootDirectory)
        End If 
        Me.rootDirecory = rootDirectory
    End Sub 

    Public Function CreateCssUri(ByVal rootUri As String, ByVal styleText As String, ByVal relativeUri As String) As String Implements DevExpress.Office.Services.IUriProvider.CreateCssUri
        Dim cssDir As String = String.Format("{0}\{1}", Me.rootDirecory, rootUri.Trim("/"c))
        If Not Directory.Exists(cssDir) Then 
            Directory.CreateDirectory(cssDir)
        End If 
        Dim cssFileName As String = String.Format("{0}\style.css", cssDir)
        File.AppendAllText(cssFileName, styleText)
        Return GetRelativePath(cssFileName)
    End Function 


    Public Function CreateImageUri(ByVal rootUri As String, ByVal image As DevExpress.Office.Utils.OfficeImage, ByVal relativeUri As String) As String Implements DevExpress.Office.Services.IUriProvider.CreateImageUri
        Dim imagesDir As String = String.Format("{0}\{1}", Me.rootDirecory, rootUri.Trim("/"c))
        If Not Directory.Exists(imagesDir) Then 
            Directory.CreateDirectory(imagesDir)
        End If 
        Dim imageName As String = String.Format("{0}\{1}.png", imagesDir, Guid.NewGuid())
        image.NativeImage.Save(imageName, ImageFormat.Png)
        Return GetRelativePath(imageName)
    End Function 
    Private Function GetRelativePath(ByVal path As String) As String 
        Dim substring As String = path.Substring(Me.rootDirecory.Length)
        Return substring.Replace("\", "/").Trim("/"c)
    End Function 
End Class 

//Set the required export options: 
PdfExportOptions options = new PdfExportOptions();
options.DocumentOptions.Author = "Mark Jones";           
options.Compressed = false;
options.ImageQuality = PdfJpegImageQuality.High;
//Export the document to the file: 
richEditControl.ExportToPdf("Document.pdf",options);

'Set the required export options: 
Dim options As New PdfExportOptions()
options.DocumentOptions.Author = "Mark Jones" 
options.Compressed = False 
options.ImageQuality = PdfJpegImageQuality.High
'Export the document to the file: 
richEditControl.ExportToPdf("Document.pdf", options)