I have some code that exports one of my reports to RTF. The problem I
have is that it does not append the RTF on to the exported file. If I do
this after the fact, it works fine. Help appreciated. Here is some of
the code I have been working with:
<code>
Dim ExportPath As String
ExportPath = Request.PhysicalApplicationPath + "Exported\"
If Directory.Exists(ExportPath) = False Then
Directory.CreateDirectory(Request.PhysicalApplicat ionPath +
"Exported\")
'Other Crystal Specific code in here....
Select Case DropDownList1.SelectedItem.Text 'this contains the value of
the selected export format.
Case "Rich Text (RTF)"
'------------------------------------------
'Export to RTF.
'append a filename to the export path and set this file
as the filename property for
'the DestinationOptions class
crDiskFileDestinationOptions.DiskFileName = ExportPath +
Session.SessionID.ToString + ".rtf"
'set the required report ExportOptions properties
With crReportDocument.ExportOptions
.ExportDestinationType =
ExportDestinationType.DiskFile
.ExportFormatType = ExportFormatType.RichText
.DestinationOptions = crDiskFileDestinationOptions
End With
crReportDocument.Export()
DisplayDownloadDialogRTF()
'----------------------------------------------------------
Sub DisplayDownloadDialogRTF()
Dim objFileName As String
Dim MyFileInfo As FileInfo
Dim StartPos, FileSize As Long
objFileName = "c:\Web Applications\exported\" +
Session.SessionID.ToString + ".RTF"
MyFileInfo = New FileInfo(objFileName)
FileSize = MyFileInfo.Length
Response.Clear()
Response.ContentType = "application/RTF"
Response.AddHeader("Content-Disposition", "attachment;filename="
& objFileName)
Response.WriteFile(objFileName, StartPos, FileSize)
End Sub
'----------------------------------------------------------
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
ExportReport()
End Sub
</code>
*** Sent via Developersdex http://www.developersdex.com ***
