ASP.NET - Exportar informe Reporting Service

Hola a todos. Necesito imprimir una serie de informes en mi aplicacion asp.net 2.0, Para ello estoy utillizando Reporting services, mediante un reportviewee. Este tiene una opción para exportar a pdf, pero yo necesito algo más inmediato, generar el pdf por código sin necesidad de mostrar el visor.
A ver si alguien tiene alguna información a respecto,
Un saludo

Hola, yo lo hago generando directamente un pdf y cargándolo en un array de bytes, luego este array lo puedes guardar en un fichero temporal e imprimirlo, o bien cargarlo en un frame y abrir el cuadro de diálogo de impresion de acrobat. Por si te vale asi, te pego un cacho de codigo :

************** generar el pdf

Dim UrlReporting As String = "http://localhost/ReportServer/ReportService.asmx"
Dim RepUser As String="user"
Dim RepPass As String="pass"
Dim _rs As New ReportService.ReportingService
Dim myCred As New System.Net.CredentialCache
myCred.Add(New Uri(UrlReporting), "Basic", _
New System.Net.NetworkCredential(RepUser, RepPass))
_rs.Credentials = myCred
_rs.Url = UrlReporting

Dim Items() As ReportService.CatalogItem
Items = _rs.ListChildren("/Informes", True)
Dim Item As ReportService.CatalogItem
For Each Item In Items
If Item.Type = ReportService.ItemTypeEnum.Report And Item.Name = "Rep1" Then
Dim parameters() As ReportService.ReportParameter
parameters = _rs.GetReportParameters(Item.Path, Nothing, False, Nothing, Nothing)
Dim parameter As ReportService.ReportParameter
Dim NumPars As Integer = -1
blnExist = True
Dim RepParameters() As ReportService.ParameterValue
For Each parameter In parameters
If UCase(parameter.Name) = "ID" Then
NumPars = NumPars + 1
ReDim Preserve RepParameters(NumPars)
RepParameters(NumPars) = New ReportService.ParameterValue
RepParameters(NumPars).Name = parameter.Name
RepParameters(NumPars).Value = session("id")
End If
Next parameter
Dim Encoding As String
Dim mimeType As String
Dim parametersUsed() As ReportService.ParameterValue
Dim warnings() As ReportService.Warning
Dim streamIds() As String
Dim Data() As Byte = _rs.Render(Item.Path, "PDF", Nothing, Nothing, RepParameters, _
Nothing, Nothing, Encoding, mimeType, parametersUsed, warnings, streamIds)
End If
Next







****************