none
EXPORTAR PARA PDF NO CRYSTAL NO VB RRS feed

  • Pergunta

  • Preciso gerar um relatório no crystal e exportar para PDF sem ter interação de alguma pessoa no vb. Alguém sabe como posso fazer ?
    quinta-feira, 16 de agosto de 2012 21:57

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."

    segunda-feira, 20 de agosto de 2012 12:07

Todas as Respostas

  • no proprio crystal tem a opção para vc exportar

    Junior

    sexta-feira, 17 de agosto de 2012 11:18
  • Que tem a opção eu sei, quero saber qual. Preciso gerar o relatório direto para um arquivo pdf sem ter que mostrar antes na tela.
    segunda-feira, 20 de agosto de 2012 11:27
  • 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."

    segunda-feira, 20 de agosto de 2012 12:07
  • 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.

    sexta-feira, 27 de dezembro de 2013 23:36