[sniperjawadino]

السلام عليكم
مرحبا إخواني

لقد ساعدني الأخ الوادي بكود جميل لإرسال تقرير إلى طابعتين

حاولت أن أعمل تعديل لإرسال تقريرين مختلفين
تقرير 1 إلى طابعة 1
تقرير 2 إلى طابعة 2

لكني لم أفلح

أتمنى لو أجد تعديل من طرفكم على الكود
جزاكم الله كل خير على مساعداتكم

   

كود :

Private Sub ReportViewer1_RenderingComplete(ByVal sender As Object, ByVal e As Microsoft.Reporting.WinForms.RenderingCompleteEventArgs) Handles ReportViewer1.RenderingComplete


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

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

       ps.PrinterName = "Fax"
       Me.ReportViewer1.PrintDialog(ps)




       ReportViewer1.LocalReport.ReportEmbeddedResource = "WindowsApplication2.Report2.rdlc"

       Dim ps2 As Printing.PrinterSettings = Me.ReportViewer1.PrinterSettings

       ps2.PrinterName = "Microsoft XPS Document Writer"

       Me.ReportViewer1.PrintDialog(ps2)


   End Sub