เราจะเขียน asp เพื่อทำการ convert crystal report ให้เป็น file pdf ยังงัยคะ ค้นหา script ตั้งนานแล้วแต่ยังหาไม่เจอเลยค่ะ
Tag : - - - -
Date :
15 ม.ค. 2550 15:06:38
By :
itim
View :
3312
Reply :
2
No. 1
Guest
อยากรู้ อยากรู้ รอดูด้วยคนครับ
Date :
10 ก.ย. 2551 15:49:32
By :
thailand_15
No. 2
Guest
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'Dim path As String = Server.MapPath("~\Reports\CrystalReport1.rpt") 'ไฟล์รายงาน
Dim path As String = Server.MapPath("../print/Crystal_mat.rpt") 'ไฟล์รายงาน
crReportDocument.Load(path)
crExportOptions = crReportDocument.ExportOptions
With crExportOptions
.ExportFormatType = ExportFormatType.PortableDocFormat 'ไฟล์ที่จะ export
End With
With crReportDocument
.SetDatabaseLogon("username", "password", "127.0.0.1", "databse") 'Logon Database
' .SetParameterValue("doc_no", ValueofParameter1) 'ส่งค่าพารามิเตอร์
' .SetParameterValue(ชื่อพารามิเตอร์, ค่าที่จะส่งเข้าไป)
.SetParameterValue("doc_no", Request("doc_no")) 'ส่งค่าพารามิเตอร์
.SetParameterValue("barcode", "2008090001")
.PrintOptions.PaperSize = PaperSize.PaperA4 'กำหนดขนาดกระดาษ
.PrintOptions.PaperOrientation = PaperOrientation.Portrait 'กำหนดรูปแบบกระดาษ
.Export()
End With
'==OutPutStream
Dim oStream As MemoryStream
oStream = CType(crReportDocument.ExportToStream(CrystalDecisions.Shared.ExportFormatType.PortableDocFormat), MemoryStream)
'Response.Clear()
Response.Buffer = True
Response.ContentType = "application/pdf"
Response.BinaryWrite(oStream.ToArray())
Response.End()
Load balance : Server 02
