[حريف برمجة]

(29-03-20, 02:46 AM)mohamedgadain61 كتب : في احد يساعدنا بألية كود الطباعة تلقائيا من ال Report Viwer عجزت احصل كود

مرحبا اخي ،،

1 - اتبع ونفذ الموجود في الصور ،، ملف الطباعة التلقائية موجود في المرفقات :

   

2 - احذف الفورم 2 .

3 - كود بوتن الطباعة الموجود في الفورم 1 كالتالي :

كود :

Imports Microsoft.Reporting.WinForms

Public Class Form1

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim myRPTForm As New ReportViewer
       Dim report As LocalReport = New LocalReport()
       Dim myPRT As New Reporting
       '''''''''''''''''''''''''''''''''''''''''''''

       report.ReportPath = Application.StartupPath & "\Report1.rdlc"
       '''''''''''''''''''''''''''''''''''''''''''''

       'امر الطباعة المباشرة بدون عرض التقرير
       myPRT.Export(report)
       myPRT.m_currentPageIndex = 0
       myPRT.Print()
   End Sub
End Class

وبالتوفيق للجميع .