How do I … directly printing a project report.rdlc in VB.Net without previewing first

Also see next blog entry

Steps

1. Imports System
   Imports System.IO
   Imports System.Data
   Imports System.Text
   Imports System.Drawing
   Imports System.Drawing.Imaging
   Imports System.Drawing.Printing
   Imports System.Collections.Generic
   Imports System.Windows.Forms
   Imports Microsoft.Reporting.WinForms
2. Load data as usual
3. Dim report as New LocalReport
   report.ReportPath = “<ReportName>.rdlc”
   or
   report.ReportPath = “Reports\<ReportName>.rdlc
   report.DataSources.Add(New ReportDataSource(“dtRouteCardWO”, CType(Me.DsRouteCard1.RouteCardWO, DataTable)))
   Export(report)
   Print()
4.     Private Sub Export(ByVal report As LocalReport)
           ‘MsgBox(“Start of Export”)   ‘Reaches this line on EBC Rise TS
           ‘then before “End of Export” get “Error occurred during local report processing”        Dim deviceInfo = “<DeviceInfo>” & _
               “<OutputFormat>EMF</OutputFormat>” & _
               “<PageWidth>8.3in</PageWidth>” & _
               “<PageHeight>11.7in</PageHeight>” & _
               “<MarginTop>0.25in</MarginTop>” & _
               “<MarginLeft>0.25in</MarginLeft>” & _
               “<MarginRight>0.25in</MarginRight>” & _
               “<MarginBottom>0.25in</MarginBottom>” & _
               “</DeviceInfo>”
           Dim warnings As Warning() = Nothing
           m_streams = New List(Of Stream)()

           ‘See my blog. For this to work the Build Action must be changed from Embedded Resource to Content and a Copy policy chosen
           ‘For this to work from a different project. Add this file as a link in that project and then do above on linked file.
           report.Render(“Image”, deviceInfo, AddressOf CreateStream, warnings)
           For Each stream As Stream In m_streams
               stream.Position = 0
           Next

           ‘MsgBox(“End of Export”)
       End Sub

5.     Private Function CreateStream(ByVal name As String, ByVal fileNameExtension As String, ByVal encoding As System.Text.Encoding, ByVal mimeType As String, ByVal willSeek As Boolean) As Stream
           Dim stream As Stream = New MemoryStream()
           m_streams.Add(stream)
           Return stream
       End Function
6.     Private m_currentPageIndex As Integer
       Private m_streams As IList(Of Stream)
7.     ‘ Handler for PrintPageEvents
       Private Sub PrintPage(ByVal sender As Object, ByVal ev As PrintPageEventArgs)
           Dim pageImage As New Metafile(m_streams(m_currentPageIndex))        ‘ Adjust rectangular area with printer margins.
           Dim adjustedRect As New Rectangle(ev.PageBounds.Left – CInt(ev.PageSettings.HardMarginX), _
                                             ev.PageBounds.Top – CInt(ev.PageSettings.HardMarginY), _
                                             ev.PageBounds.Width, _
                                             ev.PageBounds.Height)

           ‘ Draw a white background for the report
           ev.Graphics.FillRectangle(Brushes.White, adjustedRect)

           ‘ Draw the report content
           ev.Graphics.DrawImage(pageImage, adjustedRect)

           ‘ Prepare for the next page. Make sure we haven’t hit the end.
           m_currentPageIndex += 1
           ev.HasMorePages = (m_currentPageIndex < m_streams.Count)
           ev.HasMorePages = False ‘#1074 srs fudge. Routecard was on 2 pages, should always be 1
       End Sub

       Private Sub Print()
           ‘MsgBox(“Start of Print”)
           If m_streams Is Nothing OrElse m_streams.Count = 0 Then
               Throw New Exception(“Error: no stream to print.”)
           End If
           Dim printDoc As New PrintDocument()
           If Not printDoc.PrinterSettings.IsValid Then
               Throw New Exception(“Error: cannot find the default printer.”)
           Else
               AddHandler printDoc.PrintPage, AddressOf PrintPage
               m_currentPageIndex = 0
               printDoc.Print()
           End If
           ‘MsgBox(“End of Print”)
       End Sub

8.     Public Shadows Sub Dispose() Implements IDisposable.Dispose
           If m_streams IsNot Nothing Then
               For Each stream As Stream In m_streams
                   stream.Close()
               Next
               m_streams = Nothing
           End If
       End Sub

Troubleshooting

1. An error occurred during local report processing copy
   The report definition for report ‘..\some_path_to_report\<reportname>.rdlc’ has not been specified
   Could not find file ‘C:\inetpub\wwwroot\some_path_to_report\tse.rdlc’.
2. Could not find file ‘C:\inetpub\wwwroot\some_path_to_report\tse.rdlc’.

VB.Net or SSRS code for Ordinal Numbers

Easily found on web. See example in SRS.ReportingServices.Functions and also in my invoice report.
With acknowledgement to:
http://www.jigsawboys.com/2010/03/04/ordinal-number-in-reporting-services/

Public Function FormatOrdinal(day as Integer) As String
  SELECT CASE (day Mod 100)
    CASE 11,12
    CASE 13
      Return day.ToString() + “th”
  END SELECT

  SELECT CASE day Mod 10
    Case 1
      Return day.ToString() + “st”
    Case 2
      Return day.ToString() + “nd”
    Case 3
      Return day.ToString() + “rd”
    Case Else
      Return day.ToString() + “th”
  END SELECT
End Function

Good luck!

SSRS Adding Code and also custom assemblies to reports

How to add Code to SSRS reports

1. Right click on report > Code > Type code as Visual Basic function
2. In expressions within a data region use Code.<functionname> e.g. =Code.OrdinalFunction(4)

Code for Ordinal Number readily avialable on web. Example use in SRS.ReportingServices.Functions and also in my invoice report

How to add custom assemblies to SSRS reports

1. Create a class library project in Visual Studio VB.Net or C#
2. Use a meaningful assembly name e.g. <initials>.ReportingServices.Functions
3. Add a class and methods to this class. Make the methods shared
4. Compile to create a dll
5. Copy the dll to the equivalent location of:
   C:\Program Files (x86)\Microsoft Visual Studio 9.0\Common7\IDE\PrivateAssemblies
   You may not need the (x86) and you may be on a lower or higher version than 9.0
6. In VS BIDS report right click > report properties > References > Add the reference
7. In expressions in a report use full Namespace.ClassName.FunctionName(variables)

Next deploying the assembly to the report server

1. Copy your DLL to the following location or equivalent:
   C:\Program Files\Microsoft SQL Server\MSRS10_50.MSSQLSERVER\Reporting Services\ReportServer\bin

Good luck. Acknowledgments to:

http://www.devx.com/codemag/Article/33656/0/page/3