[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