تقارير مايكروسوفت RDLC - نسخة قابلة للطباعة

كود :
Imports System.Data

Imports System.Data.SqlClient

Imports Microsoft.Reporting

Imports Microsoft.ReportingServices

Imports Microsoft.Reporting.WinForms

Imports StocksSystem.DBStocksDataSet

Imports StocksSystem.DBStocksDataSetTableAdapters





Private Sub FrmRepPreview_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load





       '=================================================================================================================

       Dim rptDataSource As Microsoft.Reporting.WinForms.ReportDataSource = New Microsoft.Reporting.WinForms.ReportDataSource()

       'Dim rptDataSource As ReportDataSource

       '"RepDataPersonal" '"RepInvDetials"

       Dim ds As New DataSet

       Dim da As New SqlClient.SqlDataAdapter



       Try

           With Me.ReportViewer1.LocalReport

               ' .ReportPath = "Reports\" & strReport & ".rdlc"

               .ReportEmbeddedResource = "StocksSystem." & strReport & ".rdlc"

               .DataSources.Clear()

               ReportViewer1.ProcessingMode = WinForms.ProcessingMode.Local

           End With



           Select Case strReport



               Case "Repport_Salary"

                   Dim parms(1) As Microsoft.Reporting.WinForms.ReportParameter

                   ' parms(0) = New Microsoft.Reporting.WinForms.ReportParameter("monthdate", FrmAdd_action.DateTime.Value.Month.ToString)

                   'parms(1) = New Microsoft.Reporting.WinForms.ReportParameter("yeardate", FrmAdd_action.DateTime.Value.Year.ToString)

                   ReportViewer1.LocalReport.SetParameters(parms)



           End Select

           If SqlRep <> Nothing Then

               ds = MyClss.GetRecordsByDataSet(SqlRep, "")

               rptDataSource = New ReportDataSource("DBStocksDataSet", ds.Tables(0))

               Me.ReportViewer1.LocalReport.DataSources.Add(rptDataSource)

               Me.ReportViewer1.Dock = System.Windows.Forms.DockStyle.Fill

               Me.ReportViewer1.SetDisplayMode(Microsoft.Reporting.WinForms.DisplayMode.PrintLayout)

               Me.ReportViewer1.ZoomMode = ZoomMode.Percent

               Me.ReportViewer1.ZoomPercent = 100

               ReportViewer1.LocalReport.Refresh()

               Me.ReportViewer1.RefreshReport()

           Else

               MessageBox.Show("اسف !!! هناك خطاء اثناء الاستعلام عن التقرير الرجاء التحقق من البيانات بشكل صحيح", "حطاء في الاستعلام", MessageBoxButtons.OK, MessageBoxIcon.Stop)

               Exit Sub

           End If





       Catch ex As Exception

           MessageBox.Show(ex.Message, My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Error)

       End Try

   End Sub