Export Crystal Report To PDF Format RSS

• • Reply
  

  afastars

  Member

  52 Points

  221 Posts

  Re: Export Crystal Report To PDF Format

  Dec 02, 2012 01:00 AM|LINK

  hi santosh

  i already setup the report path but the problem still exist below is my full code for crystal report:

  i'm new in this techique.. need help

   

  Protected Sub Page_PreRender(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.PreRender
          Dim getSessionKategori As Object
          Dim getSessionSubKategori As Object
  
          getSessionKategori = Session("kategori")
          getSessionSubKategori = Session("subkes")
  
         
  
          Dim ds As New MaklumatPelajar
          Dim mySQLConnection = New SqlConnection()
          Dim dt As New DataTable
          dt.TableName = "Senarai Kesalahan"
  
          mySQLConnection.ConnectionString = ConfigurationManager.ConnectionStrings("default").ConnectionString
  
  
          Dim da As New SqlDataAdapter("SELECT MaklumatPelajar.Nama,MaklumatPelajar.NoIc,KesalahanDisiplin.KategoriKes,KesalahanDisiplin.SubKes,KesalahanDisiplin.TarikhKes,KesalahanDisiplin.AduanOleh,MaklumatPelajar.Kelas" & _
                                             " FROM MaklumatPelajar INNER JOIN KesalahanDisiplin ON MaklumatPelajar.IdPelajar = KesalahanDisiplin.IdPelajar" & _
                                             " WHERE KesalahanDisiplin.KategoriKes = '" & getSessionKategori & "' AND KesalahanDisiplin.SubKes = '" & getSessionSubKategori & "'", mySQLConnection)
  
  
  
          da.Fill(dt)
          ds.Tables(0).Merge(dt)
          rptDoc.Load(Server.MapPath("~/Report/ReportKesalahanPelajar.rpt"))
          rptDoc.SetDataSource(ds)
          CrystalReportViewer1.ReportSource = rptDoc
          CrystalReportViewer1.RefreshReport()
          
      End Sub

  Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
  
          cryRpt = New ReportDocument()
          CrystalReportViewer1.ReportSource = cryRpt
  
  
          Try
              Dim CrExportOptions As ExportOptions
              Dim CrDiskFileDestinationOptions As New DiskFileDestinationOptions()
              Dim CrFormatTypeOptions As New PdfRtfWordFormatOptions()
              CrDiskFileDestinationOptions.DiskFileName = "C:\exports\"
  
  
              CrExportOptions = cryRpt.ExportOptions
  
              If True Then
                  CrExportOptions.ExportDestinationType = ExportDestinationType.DiskFile
                  CrExportOptions.ExportFormatType = ExportFormatType.PortableDocFormat
                  CrExportOptions.DestinationOptions = CrDiskFileDestinationOptions
                  CrExportOptions.FormatOptions = CrFormatTypeOptions
              End If
              cryRpt.Export()
          Catch ex As Exception
              Label1.Text = ex.ToString()
          End Try
  
  
  
      End Sub

   

  • Edited by afastars on Dec 02, 2012 01:02 AM
  • Edited by afastars on Dec 02, 2012 01:03 AM
  • Edited by afastars on Dec 03, 2012 05:26 AM