السلام عليكم
انا استخدم ريبورت فيو لعرض التقرير
المشكلة عند الطباعة انني اضطر لإظهار التقرير اولا ثم الضغط على زر الطابعة اعلى التقرير ثم تظهر رسالة اختيار طابعة ثم الضغط على زر print
هل من كود يقوم بطباعة التقرير مباشرة فور ظهور التقرير
شكرا
شكرا جزيلا اخي الكريم هذا الكود عندي ... يعمل لكن الطابعة تطبع صفحة فارغة
كود :
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