none
criar pdf de um relatorio do crystal com conexão odbc base de dados postgre RRS feed

  • Pergunta

  • estou com dificuldade em gerar pdf de meus danfes (documento auxilidar da nota fiscal eletronica), atualmente direciono o a impresão do rpt para o pdf creator, onde ele salva automaticamente para uma pasta.

    criei uma dll em vb.net e importei em vb6, ja utilizo a dll para enviar emails e esta tudo certo, so adicionei mais uma função para criar o pdf, mas me retorna o seguinte erro.

    server has not yet been opened

    ja pesquisei em foruns mas não encontrei a solução, mudei varias vezes o tipo de conexao mas não consegui.

    segue o codigo que estou utilizando

     

    -->

        Public Function RptToPDF(ByVal LocalRPT As String, ByVal LocalPDF As String) As String
            Try
                Dim crpApp As New CRAXDRT.Application
                Dim crpRpt As CRAXDRT.Report
                crpRpt = crpApp.OpenReport(LocalRPT, 1)
                crpRpt.EnableParameterPrompting = False
                crpRpt.ExportOptions.DestinationType = CRAXDRT.CRExportDestinationType.crEDTDiskFile
                crpRpt.ExportOptions.FormatType = CRAXDRT.CRExportFormatType.crEFTPortableDocFormat
                crpRpt.ExportOptions.DiskFileName = LocalPDF
                crpRpt.Database.LogOnServer("pdsodbc.dll", "127.0.0.1", "Dados", "postgres", "teste")
                crpRpt.Export(False)
            Catch ex As Exception
                Return ex.Message
            End Try
            Return ""
        End Function

    -->

     

    terça-feira, 8 de fevereiro de 2011 12:08

Todas as Respostas