<< Clique para Mostrar o Sumário >>
Exportar |
Para que o usuário selecione o nome e o diretório do arquivo que vai ser gerado, vamos abrir uma caixa de diálogo.
1.Na TelaAlarmes, insira um Botão de Comando e altere a propriedade Caption para "Exportar".
2.Crie o script a seguir.
'Exportar
If Application.ShowFilePicker(False, NomeArquivo,"pdf", _
128, "Arquivos PDF|*.pdf|Todos os arquivos|*.*") Then
Set Report = Application.LoadReport("RelatorioAlarmes")
Report.Export "PDF", NomeArquivo
End If
3.Com o auxílio do AppBrowser, selecione o método ShowFilePicker do Viewer.
Application.ShowFilePicker(Open, FileName, Extension, Flags, Filter)
4.Como desejamos salvar um arquivo, substitua o parâmetro Open por "False".
5.O parâmetro FileName deve ser uma variável interna de script, que armazena o nome do arquivo. Substitua-o por "NomeArquivo".
6.Caso não seja informada a extensão do arquivo, considera-se como padrão o que for informado no parâmetro Extension. Digite "pdf".
7.Para que uma mensagem de confirmação apareça para o usuário caso o arquivo já exista, altere o parâmetro Flags para "128".
8.As caixas de diálogo de arquivos permitem filtros para facilitar a busca por tipos de arquivos.
Filtro de arquivos
9.O filtro é sempre um par de Strings separadas por uma barra vertical (o caractere "|"), em que o primeiro item é o nome que aparece para o usuário e o segundo é uma identificação para o sistema operacional.
10.Substitua o parâmetro Filter pela expressão "Arquivos PDF|*pdf|Todos os arquivos|*.*".
11.O arquivo só pode ser gerado se o usuário clicar em Salvar. Se o usuário cancelar a ação, nada deve acontecer. No início do comando ShowFilePicker, digite "If" e ao final digite "Then".
12.Para exportar o Relatório, selecione no AppBrowser o item Tarefas - Carregar relatório - RelatorioAlarmes e, à direita, o método Export.
Set Report = Application.LoadReport("RelatorioAlarmes")
Report.Export([ExportFilter], [ExportFileName])
13.Substitua o parâmetro ExportFilter por "PDF" e o parâmetro ExportFileName pela variável NomeArquivo, criada anteriormente.
14.Teste a nova funcionalidade da aplicação.