[mh66]

السلام عليكم

انا استخدم ريبورت فيو لعرض التقرير 
المشكلة عند الطباعة انني اضطر لإظهار التقرير اولا ثم الضغط على زر الطابعة اعلى التقرير ثم تظهر رسالة اختيار طابعة ثم الضغط على زر print

هل من كود يقوم بطباعة التقرير مباشرة فور ظهور التقرير

شكرا

[mh66]

شكرا جزيلا اخي الكريم هذا الكود عندي ... يعمل لكن الطابعة تطبع صفحة فارغة

كود :

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