25-07-16, 12:38 PM
السلام عليكم
مرحبا إخواني
لقد ساعدني الأخ الوادي بكود جميل لإرسال تقرير إلى طابعتين
حاولت أن أعمل تعديل لإرسال تقريرين مختلفين
تقرير 1 إلى طابعة 1
تقرير 2 إلى طابعة 2
لكني لم أفلح
أتمنى لو أجد تعديل من طرفكم على الكود
جزاكم الله كل خير على مساعداتكم
مرحبا إخواني
لقد ساعدني الأخ الوادي بكود جميل لإرسال تقرير إلى طابعتين
حاولت أن أعمل تعديل لإرسال تقريرين مختلفين
تقرير 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