محتاج لمثال لكيفية عمل تقرير عن طريق تصدير التقرير الى Pdf باستخدام الكريستال ريبورت

Imports CrystalDecisions.CrystalReports.Engine

Imports CrystalDecisions.Shared

--------------------------------------------------------

Protected Sub ASPxButton9_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ASPxButton9.Click

Dim rptdoc As ReportDocument = New ReportDocument

Dim mylogin As TableLogOnInfo

Dim mytable As Table

rptdoc.Load(Server.MapPath("~\reports\saraya\selectedleadershiptask.rpt"), OpenReportMethod.OpenReportByDefault)

For Each mytable In rptdoc.Database.Tables

mylogin = mytable.LogOnInfo

mylogin.ConnectionInfo.Password = "123456"

mylogin.ConnectionInfo.UserID = "username"

mytable.ApplyLogOnInfo(mylogin)

Next

rptdoc.Refresh()

Response.ClearContent()

Response.ClearHeaders()

Response.ContentType = "application/pdf"

rptdoc.ExportToHttpResponse(ExportFormatType.PortableDocFormat, Response, True, "ضع اسم التقرير")

Response.Flush()

Response.Close()

End Sub

====

Note : a text file is attatched !

====