Export

<< Clique para Mostrar o Sumário >>

 

Export

Export([ExportFilter], [ExportFileName])

Exporta um Relatório para o arquivo especificado no parâmetro ExportFileName de acordo com o filtro especificado no parâmetro ExportFilter. Este parâmetro indica o formato para a exportação. As opções disponíveis para o parâmetro ExportFilter são as seguintes:

PDF: Exporta os dados para o formato PDF (Portable Document Format)

Excel: Exporta os dados para o formato de uma planilha do Excel

HTML: Exporta os dados para o formato HTML (Hyper Text Markup Language)

TEXT: Exporta os dados para o formato Texto

RTF: Exporta os dados para o formato RTF (Rich Text Format)

TIFF: Exporta os dados para o formato TIFF (Tag Image File Format)

 

Ao informar o nome de um filtro e omitir o nome do arquivo, os dados são exportados utilizando-se as propriedades em comum de cada filtro para um arquivo nomeado de forma automática e salvo no diretório do Domínio, exceto para os filtros HTML, TEXT e RTF, onde o nome do arquivo de saída deve ser informado. Pode-se modificar as propriedades comuns de um filtro de exportação utilizando o método GetExportFilter antes de exportar os dados. O script a seguir contém um exemplo de uso deste método.

Sub Button1_Click()
  Set report = Application.LoadReport("[Relatório3]")
  Select case Application._
    SelectMenu("PDF|Excel|HTML|Texto|RTF|TIFF|Texto(CSV)")
    Case 1
      Report.Export "PDF", "c:\reports\report.pdf"
      MsgBox "Exportado para o formato PDF!"
    Case 2
      Report.Export "Excel", "c:\reports\report.xls"
      MsgBox "Exportado para o formato XLS!"
    Case 3
      Report.Export "HTML", "c:\reports\report.html"
      MsgBox "Exportado para o formato HTML!"
    Case 4
      Report.Export "Text", "c:\reports\report.txt"
      MsgBox "Exportado para o formato Texto!"
    Case 5
      Report.Export "RTF", "c:\reports\report.rtf"
      MsgBox "Exportado para o formato RTF!"
    Case 6
      Report.Export "TIFF", "c:\reports\report.tiff"
      MsgBox "Exportado para o formato TIFF!"
    Case 7
      Set reportFilter = report.GetExportFilter("TEXT")
      reportFilter.FileName = "c:\reports\report2.txt"
      reportFilter.TextDelimiter = ","
      report.Export reportFilter
      MsgBox "Exportado para of formato Texto usando um filtro!"
  End Select
End Sub

Esta página foi útil?