ASP.NET - how to export pdf to a Unicode text file with Crystal reports in asp.net

Asked By The Hunk on 06-Mar-13 01:41 AM

Hi,

I wanted some help on crystal reports...I have not worked on it before.....

I have a requirement in a .net application where I need to download PDF's  in different languages.

I am trying to implement the same using crystal reports. I am using the components of crystal decisions that comes along with dotnet installations.

Does anybody knows whether crystal reports support all the languages in the world(unicode support)?

i am export data into pdf using this code for your info:

Protected Sub Button2_Click(sender As Object, e As System.EventArgs) Handles Button2.Click
      Export_Report(1)
    End Sub

Private Sub Export_Report(ByVal oexptype As Integer)
      Try
        Dim DT As New System.Data.DataTable
        Dim conn As New SqlConnection("Data Source=PRASAD-PC\SQLEXPRESS;initial catalog=Practice_Db;persist Security info =true;user id=sa;password=sa123")
        Dim da As New SqlDataAdapter("select * from Userdaycounts", conn)
        da.Fill(DT)
        If DT.Rows.Count > 0 Then
          Dim reportDocument As New CrystalDecisions.CrystalReports.Engine.ReportDocument
          reportDocument.Load(Server.MapPath("~/Userwisecounts.rpt"))
       
          Dim rptby As String = ""
          Dim GrandTotal As String = ""


          Try

            rptby = "Jan 30th  ,  2013 - User wise counts"
            GrandTotal = "Grand Total"

          Catch ex As Exception

          End Try
          reportDocument.SetDataSource(DT)
          reportDocument.SetParameterValue("rptby", rptby)
          reportDocument.SetParameterValue("GrandTotal", GrandTotal)
          Dim oselectedtype As ExportFormatType
          If oexptype = 1 Then
            oselectedtype = ExportFormatType.Excel
          ElseIf oexptype = 2 Then
            oselectedtype = ExportFormatType.PortableDocFormat
          End If
         reportDocument.ExportToHttpResponse(oselectedtype, Response, True, "MTReportbyMessages")
        Else
        End If
      Catch ex As Exception
        Label1.Text = ex.Message
      End Try
    End Sub