ASP.NET

 Protected Sub btnPrint_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPrint.Click
        Try
            Dim rptViewer As ReportViewer           

            rptViewer = New ReportViewer
            With rptViewer.LocalReport
                .DataSources.Clear()
                .ReportPath = Server.MapPath("rptCert.rdlc") '(IM USING RDLC INSTEAD OF CR)
                .DataSources.Add(dataSource)
                .Refresh()
            End With

            myRPT= New CustPrint
            With myRPT
                .Export(rptViewer.LocalReport)
                .m_currentPageIndex = 0
                .Print()
            End With
        Catch ex As Exception
            log.Debug(ex.ToString)
        End Try
End Sub
----CLASS-----

Public Class CustPrint
    '  Implements IDisposable

    Public m_currentPageIndex As Integer
    Public m_streams As IList(Of Stream)
    Public stName As String
    'create steam
    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:\" + name + "." + fileNameExtension, FileMode.Create)
        m_streams.Add(stream)
        Return stream

    End Function
    'Export
    Public Sub Export(ByVal report As LocalReport)

        Try
            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

        Catch ex As Exception
            Dim inner As Exception = ex.InnerException
            While Not (inner Is Nothing)
                'MsgBox(inner.Message)
                inner = inner.InnerException
            End While
        End Try

    End Sub
    'metafile
    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
   'print
    Public Sub Print()
        Dim printerName As String = DefaultPrinterName()
        If m_streams Is Nothing Or 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()

        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
----FUNCTION ------
   Public Function DefaultPrinterName() As String
        Dim oPS As New System.Drawing.Printing.PrinterSettings

        Try
            DefaultPrinterName = oPS.PrinterName
        Catch ex As System.Exception
            DefaultPrinterName = ""
        Finally
            oPS = Nothing
        End Try
    End Function