ActiveReports 18 .NET Edition
MESCIUS.ActiveReports.Export.Xml Assembly / GrapeCity.ActiveReports.Export.Xml.Section Namespace / TextExport Class
Members Example

In This Topic
    TextExport Class
    In This Topic
    Allows ActiveReports documents to be exported to plain text.
    Object Model
    TextExport Class
    Syntax
    'Declaration
     
    Public NotInheritable Class TextExport 
       Inherits System.ComponentModel.Component
       Implements GrapeCity.ActiveReports.Export.IDocumentExport 
    Remarks
    The default character encoding used for the TextExport is ASCII. If your reports may contain internationalized characters then consider using the Encoding property to specify the System.Text.UTF8Encoding or System.Text.UnicodeEncoding instead. The current Encoding’s preamble is written out according to the rules of System.IO.StreamWriter.
    Example
    This code sample assumes that you have a RichTextBox on the viewer's form.
    private void btnExport_Click(object sender, System.EventArgs e)
    {
        SectionReport1 rpt = new SectionReport1();
        GrapeCity.ActiveReports.Export.Xml.Section.TextExport t = new GrapeCity.ActiveReports.Export.Xml.Section.TextExport();
        System.IO.MemoryStream s = new System.IO.MemoryStream();
        rpt.Run();
        this.Viewer1.Document = rpt.Document;
        t.Encoding = System.Text.Encoding.Default;
        t.PageDelimiter = "\n" + "End of Page" + "\n" + "\n";
        t.SuppressEmptyLines = false;
        t.TextDelimiter = "        ";
        t.Export(rpt.Document, s,"1-2");
        s.Position = 0;
        this.rtbWinForm.LoadFile(s, RichTextBoxStreamType.PlainText);
    }
    Private Sub btnExport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExport.Click
        Dim rpt As New SectionReport1
        Dim t As New GrapeCity.ActiveReports.Export.Xml.Section.TextExport
        Dim s = New System.IO.MemoryStream
        rpt.Run()
        Me.Viewer1.Document = rpt.Document
        t.Encoding = System.Text.Encoding.Default
        t.PageDelimiter = vbCrLf & "End of Page" & vbCrLf & vbCrLf
        t.SuppressEmptyLines = False
        t.TextDelimiter = "     "
        t.Export(rpt.Document, s, "1-2")
        s.position = 0
        Me.rtbWinForm.LoadFile(s, RichTextBoxStreamType.PlainText)
    End Sub
    Inheritance Hierarchy

    System.Object
       System.MarshalByRefObject
          System.ComponentModel.Component
             GrapeCity.ActiveReports.Export.Xml.Section.TextExport

    See Also