Usuário com melhor resposta
EXPORTAR PARA PDF NO CRYSTAL NO VB

Pergunta
-
Respostas
-
Olá Alexandre
Veja se te ajuda
Private Sub Button2_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button2.Click Try Dim CrExportOptions As ExportOptions Dim CrDiskFileDestinationOptions As New _ DiskFileDestinationOptions() Dim CrFormatTypeOptions As New PdfRtfWordFormatOptions() CrDiskFileDestinationOptions.DiskFileName = _ "c:\crystalExport.pdf" CrExportOptions = cryRpt.ExportOptions With CrExportOptions .ExportDestinationType = ExportDestinationType.DiskFile .ExportFormatType = ExportFormatType.PortableDocFormat .DestinationOptions = CrDiskFileDestinationOptions .FormatOptions = CrFormatTypeOptions End With cryRpt.Export() Catch ex As Exception MsgBox(ex.ToString) End Try End Sub
Att.,
Jeimes Ribeiro
"Caso a resposta seja útil, marque-a como certa."
- Marcado como Resposta Harley AraujoModerator segunda-feira, 20 de agosto de 2012 12:47
Todas as Respostas
-
-
-
Olá Alexandre
Veja se te ajuda
Private Sub Button2_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button2.Click Try Dim CrExportOptions As ExportOptions Dim CrDiskFileDestinationOptions As New _ DiskFileDestinationOptions() Dim CrFormatTypeOptions As New PdfRtfWordFormatOptions() CrDiskFileDestinationOptions.DiskFileName = _ "c:\crystalExport.pdf" CrExportOptions = cryRpt.ExportOptions With CrExportOptions .ExportDestinationType = ExportDestinationType.DiskFile .ExportFormatType = ExportFormatType.PortableDocFormat .DestinationOptions = CrDiskFileDestinationOptions .FormatOptions = CrFormatTypeOptions End With cryRpt.Export() Catch ex As Exception MsgBox(ex.ToString) End Try End Sub
Att.,
Jeimes Ribeiro
"Caso a resposta seja útil, marque-a como certa."
- Marcado como Resposta Harley AraujoModerator segunda-feira, 20 de agosto de 2012 12:47
-
Jeimes
Estava tentando utilizar a sua rotina, só que ela está dando mensagem de (Valores de parâmetro ausentes), pois o meu relatorio utiliza parametro de store procedure, a rotina seria a mesma, ou devo fazer algum ajuste, estou utilizando o Visual Studio 2010 com vb.net.