CRYSTAL REPORT - SALVAR COMO
Pessoal,
ao vizualizar meu relatorio tem um Ãcone no canto superior esquerdo para exportar relatório.
Qdo clico nele e seleciono:
Formato: Adobe Acrobat (PDF)
Destino: Arquivo de disco
Após clicar em ok, aparece outra tela que vem:
Nome do arquivo: Sem TÃtulo
e para eu escolher um local para salvar
Como eu faço para alterar o Nome do arquivo via código?
Grato
ao vizualizar meu relatorio tem um Ãcone no canto superior esquerdo para exportar relatório.
Qdo clico nele e seleciono:
Formato: Adobe Acrobat (PDF)
Destino: Arquivo de disco
Após clicar em ok, aparece outra tela que vem:
Nome do arquivo: Sem TÃtulo
e para eu escolher um local para salvar
Como eu faço para alterar o Nome do arquivo via código?
Grato
Já tentou usar a propriedade DiskFileName?
Olha, não sei se tem outra forma de usar essa propriedade que faça o que eu estou precisando.
Em minha rotina uso essa propriedade, mas para outra coisa.
O que ela faz?
Ao visualizar meu relatório ela já salva no CaminhoArquivo e com o NomeArquivo automaticamente, sem perguntar nada.
Soh que meu cliente precisa escolher a pasta que vai ser salvo o arquivo. E ele quer que o nome do arquivo já venha pré-definido, de acordo com o numero do contrato que ele estiver trabalhando. Soh que mesmo usando essa propriedade, aparece no [Ô]Nome do arquivo: Sem tÃtulo[Ô]
Segue abaixo minha rotina:
Dim Report1 As New CrystalReport1
Dim CRXReport As New CRAXDDRT.Report
Set CRXReport = Report1
CaminhoArquivo = [Ô]camininhodoarquivo[Ô]
NomeArquivo = [Ô]nomedoarquivo[Ô]
With CRXReport
.ExportOptions.DestinationType = crEDTDiskFile
.ExportOptions.FormatType = crEFTPortableDocFormat
.ExportOptions.DiskFileName = CaminhoArquivo & NomeArquivo
.Export False
End With
Em minha rotina uso essa propriedade, mas para outra coisa.
O que ela faz?
Ao visualizar meu relatório ela já salva no CaminhoArquivo e com o NomeArquivo automaticamente, sem perguntar nada.
Soh que meu cliente precisa escolher a pasta que vai ser salvo o arquivo. E ele quer que o nome do arquivo já venha pré-definido, de acordo com o numero do contrato que ele estiver trabalhando. Soh que mesmo usando essa propriedade, aparece no [Ô]Nome do arquivo: Sem tÃtulo[Ô]
Segue abaixo minha rotina:
Dim Report1 As New CrystalReport1
Dim CRXReport As New CRAXDDRT.Report
Set CRXReport = Report1
CaminhoArquivo = [Ô]camininhodoarquivo[Ô]
NomeArquivo = [Ô]nomedoarquivo[Ô]
With CRXReport
.ExportOptions.DestinationType = crEDTDiskFile
.ExportOptions.FormatType = crEFTPortableDocFormat
.ExportOptions.DiskFileName = CaminhoArquivo & NomeArquivo
.Export False
End With
Alguem?
Isso não resolve?
Report.Export TrueEntão Faz o seguinte:
Insere um CommonDialog no form e faz um código semenhante a este:
CDialog= nome do CommonDialog
CDialog.Filter = [Ô]Arquivo Pdf (*.pdf)|*.pdf[Ô]
CDialog.FileName = [Ô]Meu Arquivo Teste.pdf[Ô]
CDialog.ShowSave
With CRXReport
.ExportOptions.DestinationType = crEDTDiskFile
.ExportOptions.FormatType = crEFTPortableDocFormat
.ExportOptions.DiskFileName = CDialog.FileName
.Export False
End With
Report.Export False
Tópico encerrado , respostas não são mais permitidas