CRYSTAL REPORT - SAVALVAR COMO .DOC

MHDSERAFS 16/07/2012 17:31:41
#406201
AMIGOS, BOA TARDE

ESTOU USANDO O CODIGO ABAIXO PARA SALVAR EM PDF
MAS GOSTARIA DE SALVAR EM .DOC

ALGUEM POODE ME AJUDAR

JA ATé TENTEI MUDAR A EXTENSÃO, MAS NÃO DA CERTO

novonome = EMPRESAComboBox.Text + [Ô] [Ô] + ComboBox3.Text + [Ô] [Ô] + ComboBox4.Text + [Ô] [Ô] + SexoComboBox.Text + [Ô].PDF[Ô]
novonome1 = EMPRESAComboBox.Text + [Ô] [Ô] + ComboBox3.Text + [Ô] [Ô] + ComboBox4.Text + [Ô] [Ô] + SexoComboBox.Text + [Ô].XML[Ô]
[ô]SALVAR EM .DOC
Try
Dim CrExportOptions As ExportOptions
Dim CrDiskFileDestinationOptions As New _
DiskFileDestinationOptions()
Dim CrFormatTypeOptions As New PdfRtfWordFormatOptions()
CrDiskFileDestinationOptions.DiskFileName = caminho2 & novonome1
CrExportOptions = CR.ExportOptions
With CrExportOptions
.ExportDestinationType = ExportDestinationType.DiskFile
.ExportFormatType = ExportFormatType.PortableDocFormat
.DestinationOptions = CrDiskFileDestinationOptions
.FormatOptions = CrFormatTypeOptions
End With
CR.Export()
Catch ex As Exception
MsgBox(ex.ToString)
End Try

[ô]SALVAR EM .PDF
Try
Dim CrExportOptions As ExportOptions
Dim CrDiskFileDestinationOptions As New _
DiskFileDestinationOptions()
Dim CrFormatTypeOptions As New PdfRtfWordFormatOptions()
CrDiskFileDestinationOptions.DiskFileName = caminho2 & novonome
CrExportOptions = CR.ExportOptions
With CrExportOptions
.ExportDestinationType = ExportDestinationType.DiskFile
.ExportFormatType = ExportFormatType.PortableDocFormat
.DestinationOptions = CrDiskFileDestinationOptions
.FormatOptions = CrFormatTypeOptions
End With
CR.Export()
Catch ex As Exception
MsgBox(ex.ToString)
End Try
ALTAIR148 16/07/2012 18:55:41
#406209 Resposta escolhida
Apresenta algum erro?
MHDSERAFS 16/07/2012 19:16:11
#406213
ele chega a gerar o arquivo.doc, mas como o relatorio possui graficos , ele gera um arquivo e pede para selecionar a linguagem do texto
e aparece varias linhas com codigo
OCELOT 16/07/2012 20:07:14
#406216
Repare na linha

.ExportFormatType = ExportFormatType.PortableDocFormat

Isso dai está dizendo que o formato é Portable Document, ou como é mais conhecido PDF

Verifique as outras opções que ele te da ali, segundo a documentação no msdn tem uma que é WordForWindows, talvez seja o que você quer.
Tópico encerrado , respostas não são mais permitidas
Voltar