+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] إرسال تقريرين مختلفين إلى طابعتين ReportViewer (/showthread.php?tid=16578)
إرسال تقريرين مختلفين إلى طابعتين ReportViewer - sniperjawadino - 25-07-16
السلام عليكم
مرحبا إخواني
لقد ساعدني الأخ الوادي بكود جميل لإرسال تقرير إلى طابعتين
حاولت أن أعمل تعديل لإرسال تقريرين مختلفين
تقرير 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