Visual Studio .NET - ReportViewer does not show Print option.

'Dim myRPTForm As New RdlGenerator ' This would be your rdlc report for your labels

report.LoadReportDefinition(m_rdl2)

da5.Fill(m_dataSet4)

myPRT.Export(report)

myPRT.m_currentPageIndex = 0

myPRT.Print()

End Sub

AFTER That Create one class file like   "Reporting.vb"

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("D:\" + name + "." + fileNameExtension, FileMode.Create)

Return stream

End Function

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

Next

Catch ex As Exception

End Try

End Sub

Public Sub PrintPage(ByVal sender As Object, ByVal ev As PrintPageEventArgs)

Dim pageImage As New Metafile(m_streams(m_currentPageIndex))

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)

Return

End If

AddHandler printDoc.PrintPage, AddressOf PrintPage

End Sub

Public Overloads Sub Dispose() Implements IDisposable.Dispose

If Not (m_streams Is Nothing) Then

Dim stream As Stream

For Each stream In m_streams

Next

m_streams = Nothing

End If

End Sub

End Class

        Compile and Check it..

Regards,

K. Raja

raja_online@hotmail.com