Torna al Thread
rptdocument = New ReportDocument()
Dim reportPath As String = Application.StartupPath & "\" & "Report\stampacliente.rpt"
Dim myConnectionInfo As ConnectionInfo = New ConnectionInfo()
Dim mySelectFormula As String = ""
rptdocument.Load(reportPath)
rptdocument.SetDatabaseLogon(UserID, Password, Server, Database)
myConnectionInfo.ServerName = Server
myConnectionInfo.DatabaseName = Database
myConnectionInfo.UserID = UserID
myConnectionInfo.Password = Password
SetDBLogonForReport(myConnectionInfo, rptdocument) *
mySelectFormula = "{OrdiniTesta.NrOrdine} = '" & v_nrordine & "'"
rptdocument.RecordSelectionFormula = mySelectFormula
rptdocument.PrintToPrinter(1, False, 1, 1)
* Private Sub SetDBLogonForReport(ByVal myConnectionInfo As ConnectionInfo, ByVal myReportDocument As ReportDocument)
Dim myTables As Tables = myReportDocument.Database.Tables
For Each myTable As CrystalDecisions.CrystalReports.Engine.Table In myTables
Dim myTableLogonInfo As TableLogOnInfo = myTable.LogOnInfo
myTableLogonInfo.ConnectionInfo = myConnectionInfo
myTable.ApplyLogOnInfo(myTableLogonInfo)
Next
End Sub