This is a simple article explaining how to run reports off SQL server through WebServices.
Please take a look at the example and Ask questions if necessary. It is truly a simple process.
Imports System.IO Imports WEBWMS.ReportExecutionService Public Class ReportingServices Dim rsExec As New WEBWMS.ReportExecutionService.ReportExecutionService Public Sub GenReport(ByVal FolderName As String, ByVal ReportName As String, ByVal ReportParameters As ParameterValue()) ' setup report connection Dim deviceInfo As String = Nothing Dim extension As String = [String].Empty Dim mimeType As String = [String].Empty Dim encoding As String = [String].Empty Dim warnings As Warning() = Nothing Dim streamIDs As String() = Nothing Dim historyId As String = Nothing Dim ExecHeader As New ExecutionHeader Dim TrustUserHeader As New TrustedUserHeader Dim Results As [Byte]() = Nothing Dim ExecInfo As ExecutionInfo = New ExecutionInfo Dim ServInfo As ServerInfoHeader = New ServerInfoHeader My.User.InitializeWithWindowsUser() rsExec.ExecutionHeaderValue = ExecHeader rsExec.Credentials = System.Net.CredentialCache.DefaultCredentials rsExec.Url = "http://Wedge/reportserver/reportexecution2005.asmx" ' pass parameters rsExec.LoadReport("/" & FolderName & "/" & ReportName, historyId) If ReportParameters.Count = 0 Then Else rsExec.SetExecutionParameters(ReportParameters, "en-us") End If ' get pdf of report Results = rsExec.Render("PDF", deviceInfo, extension, mimeType, encoding, warnings, streamIDs) PrintReport(Results) End Sub Private Sub PrintReport(ByVal Data As Byte()) Dim Path As String = "C:\Temp\Reference" & Date.Now.Millisecond.ToString & ".PDF" Dim LabelFile As FileStream = New FileStream(Path, FileMode.Create) LabelFile.Write(Data, 0, Data.Length) LabelFile.Close() RawPrinterHelper.SendFileToPrinter(My.Settings.UserLaserPrinter, Path) End Sub End Class
