Crystal Report XI

[Guilhermemfa]

pessoal,

Estou trabalhando com o VB6, com MSSQL 7.0 e Crystal Report XI.

Tenho seguintes Referências e Componentes ativos no VB6 para o Crystal Report:

Referências

- Crystal ActiveX Report Viewer Export Library 11.5

- Crystal ActiveX Report Viewer Library 11.5

- Crystal ActiveX Report Viewer Web Report Source Library 11.5

- Crystal Report ActiveX Designer Run Time Library 11.5

- Crystal Report ActiveX Designer Design and Runtime Library 11.5

Componetes

Na Guia - Controls

- Crystal ActiveX Report Viewer Library 11.5

Na Guia - Designers

- Crystal Report 11.5

Os relatórios que eu criei no VB6 estão na extensão DSR.

Agora as dúvidas:

No canto superior esquerdo dos relatórios tem a opção "Exportar Relatório".

Ao seleciona-lo aparece uma tela para eu selecionar o formato e o local de destino

Via código como eu faço para:

1) Deixar apenas o formato PDF;

2) Pré-definir o nome do meu arquivo PDF;

3) Pré-definir o local onde irá ser salvo meu arquivo PDF;

4) como fazer para não aparecer a mensagem abaixo :

"Não cliente de e-mail padrão ou o cliente de e-mail atual não pode atender à solicitação de mensagem. Execute o Microsoft Office Outlook e defina-o como o cliente de email padrão."

Grato

Edited August 16, 2010 by Jonathan Queiroz
Remover caixa alta do título conforme regra 3.7 (Jonathan)

[Guilhermemfa]

Pessoal consegui fazer. Acho que pode ser util para alguém.

Dim Report As New CrystalReport1

Dim Report1 As CRAXDRT.Report

Set Report1 = Report

With Report1

.ExportOptions.DestinationType = crEDTDiskFile

.ExportOptions.FormatType = crEFTPortableDocFormat

.ExportOptions.DiskFileName = CaminhoArquivo & NomeArquivo

.Export False

End With

Se tiverem algum comentário a fazer em relação ao código postem ai