The example creates a new ExportFormat object and inserts it into the ExportFormats collection.
Dim exfSpecial As New ExportFormat
With exfSpecial
.FileFormatString = "Special Report (*.txt)"
.FileFilter = "*.txt"
.FormatType = rptFmtText
.Key = "Special"
.Template = "Special Report" & vbCrLf & rptTagBody
End With
With DataReport1
.ExportFormats.Insert exfSpecial
.ExportReport "Special"
End With