Export

<< Click to Display Table of Contents >>

 

Export

Export([ExportFilter], [ExportFileName])

Exports a Report to the file specified in the ExportFileName parameter, according to the filter specified in the ExportFilter parameter. This parameter indicates a format for exporting. The available options for the ExportFilter parameter are the following:

PDF: Exports data to PDF (Portable Document Format) format

Excel: Exports data to Excel's spreadsheet format

HTML: Exports data to HTML (Hyper Text Markup Language) format

TEXT: Exports data to Text format

RTF: Exports data to RTF (Rich Text Format) format

TIFF: Exports data to TIFF (Tag Image File Format) format

 

When informing a filter name and omitting a file name, data is exported using all properties common to each filter to a file named automatically and saved on the Domain's directory, except for HTML, TEXT, and RTF filters, where a file name must be informed. Users can modify common properties of export filters by using the GetExportFilter method before exporting data. Example:

Sub Button1_Click()
  Set report = Application.LoadReport("[Report3]")
  Select case Application._
    SelectMenu("PDF|Excel|HTML|TEXT|RTF|TIFF|Text(CSV)")
    Case 1
      Report.Export "PDF", "c:\reports\report.pdf"
      MsgBox "Exported to PDF format!"
    Case 2
      Report.Export "Excel", "c:\reports\report.xls"
      MsgBox "Exported to XLS format!"
    Case 3
      Report.Export "HTML", "c:\reports\report.html"
      MsgBox "Exported to HTML format!"
    Case 4
      Report.Export "TEXT", "c:\reports\report.txt"
      MsgBox "Exported to Text format!"
    Case 5
      Report.Export "RTF", "c:\reports\report.rtf"
      MsgBox "Exported to RTF format!"
    Case 6
      Report.Export "TIFF", "c:\reports\report.tiff"
      MsgBox "Exported to TIFF format!"
    Case 7
      Set reportFilter = report.GetExportFilter("TEXT")
      reportFilter.FileName = "c:\reports\report2.txt"
      reportFilter.TextDelimiter = ","
      report.Export reportFilter
      MsgBox "Exported to Text format using a filter!"
  End Select
End Sub

Was this page useful?