EXPORTAR CRYSTAL PARA PASTA AUTOMATICAMENTE

ALMIRSAFADI 01/06/2011 09:19:24
#375529
Quando vou exportar um relatório, recebo a cx de dialogo que tipo de arquivo, depois outra caixa se todas as páginas ou uma específica e dpeois abre a pásta TEMP para salvar, é possível via código determinar uma pasta, mais ou menos assim, quando responder a segunda caixa, ao abrir o diretório, ir direto para a pasta que preciso salvar, obrigado
ROBIU 01/06/2011 09:57:25
#375536 Resposta escolhida
Eu estou usando o CR9 por dentro do VB6. Click no Butão export do CR9 e no evento [txt-color=#e80000]ExportButtonClicked[/txt-color] defina conforme o código abaixo

Private Sub CRViewer91_ExportButtonClicked(UseDefault As Boolean)
    UseDefault = False [ô] Desabilita a função padrão do butão
    Report.ExportOptions.FormatType = crEFTPortableDocFormat [ô] Define o tipo de arquivo a exportar como pdf
    Report.ExportOptions.DestinationType = crEDTDiskFile [ô]Define o Destino HD
    Report.ExportOptions.PDFExportAllPages = True [ô]Todas as páginas
    Report.ExportOptions.ExchangeFolderPath = App.Path & [Ô]\[Ô] [ô]A pasta onde o arquivo vai ser salvo
    Report.ExportOptions.DiskFileName = [Ô]teste.pdf[Ô] [ô]O nome do arquivo
    Report.Export False [ô] o False é para evitar a exibição das caixas de diálogo.
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar