Reporting Service WebService呼叫語法

Dim rs As New ReportService.ReportingService
rs.Credentials = System.Net.CredentialCache.DefaultCredentials
Dim paras(4) As ReportService.ParameterValue
paras(0) = New ReportService.ParameterValue
paras(0).Name = "CenterID"
paras(0).Value = Me.ddlCenterID.SelectedValue
paras(1) = New ReportService.ParameterValue
paras(1).Name = "ReceiveNO"
paras(1).Value = Me.txtReceiveNO.Text.Trim
paras(2) = New ReportService.ParameterValue
paras(2).Name = "BatchNO"
paras(2).Value = Me.txtBatchNO.Text.Trim
paras(3) = New ReportService.ParameterValue
paras(3).Name = "StartDate"
paras(3).Value = Me.HRS_UclDates1.GetDate1
paras(4) = New ReportService.ParameterValue
paras(4).Name = "EndDate"
paras(4).Value = Me.HRS_UclDates1.GetDate2
Dim result() As Byte
Dim deviceinfo As New StringBuilder
Dim path As String = "/DIS_Reort1/QIS_PForeignInspectionDocument"
deviceinfo.Append("")
deviceinfo.Append("" & 1.2 + Val(Me.txtMarginTop.Text) & "cm")
deviceinfo.Append("" & 2.6 + Val(Me.txtMarginTop.Text) * -1 & "cm")
deviceinfo.Append("" & 1.1 + Val(Me.txtMarginLeft.Text) & "cm")
deviceinfo.Append("" & 0.3 + Val(Me.txtMarginLeft.Text) * -1 & "cm")
deviceinfo.Append("20.3cm")
deviceinfo.Append("30.7cm")
deviceinfo.Append("")
result = rs.Render(path, "PDF", Nothing, deviceinfo.ToString, paras, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)
Me.Response.Clear()
Me.Response.ContentType = "application/pdf"
Dim filename As String = path.Substring(path.LastIndexOf("/") + 1) & ".pdf"
Me.Response.AddHeader("Content-Disposition", "attachment;filename=" & filename)
Me.Response.BinaryWrite(result)