You can generate a model report or a multimodel report as RTF using the following method on BaseModelReport: GenerateRTF(ByVal FileName As String) As Boolean
Example
set m = ActiveModel
For each Report in m.Reports
Filename = Report.name & ".rtf"
Report.GenerateRTF (filename)
Next