[Resolvido]Exportar o relatório exibido para um formato editável

Bom dia

Preciso de uma rotina que exporte o relatório aberto para um formato editável, e o salve na pasta definida pelo operador.
Preferencialmente num formato que mantenha linhas e bordas.
A versão do Access é 2003, então pensei em executar o código através de um botão numa barra de ferramentas.

Obrigado.

Merito,

Use o seguinte comando:

DoCmd.OutputTo acOutputReport, "NomeDoRelatório", acFormatXLS, "Caminho", True

acOutputReport: Assim você está dizendo que quer exportar um objeto do tipo relatório
NomeDoRelatório: É o nome do objeto relatório que você criou e quer exportar
acFormatXLS: É o formato para o qual você está exportando e convertendo.
Caminho: Deixe esta parte em branco se deseja que o sistema lhe peça o caminho e o nome para salvar o arquivo.
True: Se deixar como True (verdadeiro ou -1), assim que você salvar o relatório, ele irá abrir automaticamente no novo formato

Abraços.

Obrigado, Julio

Esses relatórios abrem a partir de formulários, que fornecem os devidos parâmetros.
Então preciso de uma função que possa ser executada pelo botão "Exportar" da barra de ferramentas que é exibida junto com o relatório, de forma que possa usar com qualquer relatório que esteja sendo exibido.
Atualmente uso uma macro cujo nome é definido na caixa "Na ação" nas propriedades do botão. Funciona bem, mas quero substituir essa macro por uma função.

Resolvi com essa função:

Public Function ExportReport()

Dim strNomeRelatorio As String
Dim TituloRelatorio As String
Dim NomeRelatorio As Report
Set NomeRelatorio = Screen.ActiveReport
strNomeRelatorio = NomeRelatorio.Name
TituloRelatorio = NomeRelatorio.Caption
DoCmd.SetWarnings False
DoCmd.OutputTo acReport, strNomeRelatorio, "RichTextFormat(*.rtf)", "C:\NomeDaPasta\" & TituloRelatorio & ".rtf", True, ""
DoCmd.SetWarnings True

End Function