このコードは、ビューワのフォーム上にRichTextBoxコントロールが配置されていると仮定しています。
rivate void btnExport_Click(object sender, System.EventArgs e)
{
rptGrapeCity rpt = new rptGrapeCity();
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.arv.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