ReportViewer Print without Viewing (Need Help Got Start FromAnother Post)

Imports System.IO
Imports System.Data
Imports System.Text
Imports System.Drawing.Imaging
Imports System.Drawing.Printing
Imports System.Collections.Generic
Imports Microsoft.Reporting.WinForms
Public Class Reporting
    Implements IDisposable
 
    Public m_currentPageIndex As Integer
    Public m_streams As IList(Of Stream)
 
    Public Function CreateStream(ByVal name As String, _
       ByVal fileNameExtension As String, _
       ByVal encoding As Encoding, ByVal mimeType As String, _
       ByVal willSeek As Boolean) As Stream
        Dim stream As Stream = _
            New FileStream("C:\CSB" + name + "." + fileNameExtension, FileMode.Create)
        m_streams.Add(stream)
        Return stream
    End Function
 
    Public Sub Export(ByVal report As LocalReport)
        Dim deviceInfo As String = _
          "<DeviceInfo>" + _
          "  <OutputFormat>EMF</OutputFormat>" + _
          "  <PageWidth>8.5in</PageWidth>" + _
          "  <PageHeight>11in</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)()
        report.Render("Image", deviceInfo, AddressOf CreateStream, warnings)
 
        Dim stream As Stream
        For Each stream In m_streams
            stream.Position = 0
        Next
    End Sub
 
    Public Sub PrintPage(ByVal sender As Object, ByVal ev As PrintPageEventArgs)
 
        Dim pageImage As New Metafile(m_streams(m_currentPageIndex))
 
        ev.Graphics.DrawImage(pageImage, ev.PageBounds)
        m_currentPageIndex += 1
        ev.HasMorePages = (m_currentPageIndex < m_streams.Count)
 
    End Sub
 
    Public Sub Print()
 
        Const printerName As String = "Microsoft Office Document Image Writer"
 
        If m_streams Is Nothing OrElse m_streams.Count = 0 Then
            Return
        End If
 
        Dim printDoc As New PrintDocument()
 
        printDoc.PrinterSettings.PrinterName = printerName
 
        If Not printDoc.PrinterSettings.IsValid Then
            Dim msg As String = String.Format( _
                "Can't find printer ""{0}"".", printerName)
            Console.WriteLine(msg)
            Return
        End If
 
        AddHandler printDoc.PrintPage, AddressOf PrintPage
        printDoc.Print()
 
    End Sub
 
    Public Overloads Sub Dispose()
 
        If Not (m_streams Is Nothing) Then
            Dim stream As Stream
            For Each stream In m_streams
                stream.Close()
            Next
            m_streams = Nothing
        End If
 
    End Sub
 
    Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click
        Dim report As Microsoft.Reporting.WinForms.LocalReport = New Microsoft.Reporting.WinForms.LocalReport()
 
        Dim myPRT As New Reporting
 
 
        ' Set the physical path to your report rdlc file.      
        report.ReportPath = "C:\Documents and Settings\Kevin\Desktop\CSB Windows\CSB\CSB\Report1.rdlc"
        report.DataSources.Add(New ReportDataSource(Me.ASSIGNTableAdapter.Fill(Me.CSBOLDSQLDataSet.ASSIGN)))
 
        ' This next code prepares the rdlc file for printing and calls the print function from the Reporting class file
        myPRT.Export(report)
        myPRT.m_currentPageIndex = 0
        myPRT.Print()
    End Sub
End Class