 |
| |
สอบถามวิธีการเรียกใช้งาน CrystalReport1.rpt และสั่งปริ้น Report บน Web Services หน่อยครับ |
| |
 |
|
|
 |
 |
|
Public Function Exc_Report(strName As String) As String
แต่ทำไม
Return True ละครับ
|
 |
 |
 |
 |
| Date :
2015-11-25 08:57:50 |
By :
lamaka.tor |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
ต้องการจะทำอะไรครับ ให้เปิด Crystal Report ในฝั่งของ Web Services หรือเปล่าครับ
|
| |
|
|
| |
| Date :
2015-11-25 09:27:31 |
By :
mr.win |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ทำได้ครับ ประมาณนี้
Code (VB.NET)
Dim cryRpt AS New ReportDocument()
cryRpt.Load("Path\CrystalReport1.rpt")
Dim crtableLogoninfos As New TableLogOnInfos()
Dim crtableLogoninfo As New TableLogOnInfo()
Dim crConnectionInfo As New ConnectionInfo()
Dim CrTables As Tables
crConnectionInfo.ServerName = "YOUR SERVERNAME"
crConnectionInfo.DatabaseName = "DATABASE NAME"
crConnectionInfo.UserID = "USERID"
crConnectionInfo.Password = "PASSWORD"
CrTables = cryRpt.Database.Tables
For Each CrTable As CrystalDecisions.CrystalReports.Engine.Table In CrTables
crtableLogoninfo = CrTable.LogOnInfo
crtableLogoninfo.ConnectionInfo = crConnectionInfo
CrTable.ApplyLogOnInfo(crtableLogoninfo)
Next
cryRpt.Refresh()
cryRpt.PrintToPrinter(2, True, 1, 2)
|
| |
|
|
| |
| Date :
2015-11-25 10:15:04 |
By :
mr.win |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
 ตอบความคิดเห็นที่ : 5 เขียนโดย : mr.win เมื่อวันที่ 2015-11-25 10:15:04
รายละเอียดของการตอบ ::
Code
<WebMethod()> _
Public Function Exc_Report(strName As String) As String
rpt.Load(Server.MapPath("CrystalReport1.rpt"))
Dim crtableLogoninfos As New TableLogOnInfos()
Dim crtableLogoninfo As New TableLogOnInfo()
Dim crConnectionInfo As New ConnectionInfo()
Dim CrTables As Tables
' crConnectionInfo.ServerName = "RMWTEST" --> '' ServerName ไม่ใช้ได้มั้ยครับ ผมใช้ Oracle ครับ
crConnectionInfo.DatabaseName = "RMWTEST"
crConnectionInfo.UserID = "rmwsys"
crConnectionInfo.Password = "rmwsys"
CrTables = rpt.Database.Tables
For Each CrTable As CrystalDecisions.CrystalReports.Engine.Table In CrTables
crtableLogoninfo = CrTable.LogOnInfo
crtableLogoninfo.ConnectionInfo = crConnectionInfo
CrTable.ApplyLogOnInfo(crtableLogoninfo)
Next
rpt.Refresh()
rpt.PrintToPrinter(2, True, 1, 2) --->>vb:line 67 บรรทัดนี้ ครับ
End Function
-------- Error ------------
System.ComponentModel.Win32Exception: The specified printer has been deleted
at System.Drawing.Printing.StandardPrintController.OnStartPrint(PrintDocument document, PrintEventArgs e)
at System.Drawing.Printing.PrintController.Print(PrintDocument document)
at System.Drawing.Printing.PrintDocument.Print()
at CrystalDecisions.CrystalReports.Engine.FormatEngine.PrintToPrinter(Int32 nCopies, Boolean collated, Int32 startPageN, Int32 endPageN)
at CrystalDecisions.CrystalReports.Engine.ReportDocument.PrintToPrinter(Int32 nCopies, Boolean collated, Int32 startPageN, Int32 endPageN)
at WebService1.Service1.Exc_Report(String strName) in C:\onedrive\Server\WebService1\Service1.asmx.vb:line 67
|
| |
|
|
| |
| Date :
2015-11-25 11:41:13 |
By :
weerachai.va |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
Load balance : Server 05
