[سؤال] اريد طباعة تقرير ريبورت فيو مباشرة فور عرض التقرير

كود :
Me.WindowState = FormWindowState.Maximized       'تكبير الفورم بالكود

        ReportViewer1.Reset()

        ReportViewer1.Dock = DockStyle.Fill      'جعل الريبورت فيور بكامل الفورم



        If Ed21 = False Then

            ReportViewer1.LocalReport.ReportEmbeddedResource = "Waset_Net.Report1.rdlc"

        End If

        If Ed21 = True Then

            ReportViewer1.LocalReport.ReportEmbeddedResource = "Waset_Net.Report5.rdlc"

        End If



        ''\\\'''DataSet1 dataset in report     Default Name

        Dim DataSource As New ReportDataSource("DataSet1", MYDataTable1BindingSource)



        ReportViewer1.LocalReport.DataSources.Clear()

        ReportViewer1.LocalReport.DataSources.Add(DataSource)





        ReportViewer1.SetDisplayMode(DisplayMode.PrintLayout)

        ReportViewer1.ZoomMode = ZoomMode.PageWidth





        ReportViewer1.RefreshReport()





        'Dim ps As Printing.PrinterSettings = ReportViewer1.PrinterSettings

        'ps.PrinterName = "Fax"

        'ReportViewer1.PrintDialog(ps)



        'Dim ps As Printing.PrinterSettings = Me.ReportViewer1.PrinterSettings

        'ps.PrinterName = "Fax"

        'Me.ReportViewer1.PrintDialog(ps)

        



       

        If Ed52 = True Then



            On Error Resume Next

            Dim m_PrintDocument = New Printing.PrintDocument

            m_PrintDocument.DocumentName = Me.ReportViewer1.LocalReport.ReportEmbeddedResource = "Waset_Net.Report1.rdlc"

            'm_PrintDocument.PrinterSettings.PrinterName = "<your default printer name>"

            'm_PrintDocument.DocumentName = "Waset_Net.Report1.rdlc"

            Dim printControl = New Printing.StandardPrintController

            m_PrintDocument.PrintController = printControl

            m_PrintDocument.Print()

            Me.Close()



        End If