[VB.NET] تعديل بسيط في الطباعة المباشرة فقط ReportViewer

كود :

Imports System

Imports System.IO

Imports System.Data

Imports System.Text

Imports System.Drawing

Imports System.Drawing.Imaging

Imports System.Drawing.Printing

Imports System.Collections.Generic

Imports System.Windows.Forms

Imports Microsoft.Reporting.WinForms



Module Demo



    Public Class Demo

        Implements IDisposable

        Private m_currentPageIndex As Integer

        Private m_streams As IList(Of Stream)



        Private Function CreateStream(ByVal name As String, ByVal fileNameExtension As String, ByVal encoding As Encoding, ByVal mimeType As String, ByVal willSeek As Boolean) As Stream

            Dim stream As Stream = New MemoryStream()

            m_streams.Add(stream)

            Return stream

        End Function



        Private Sub Export(ByVal report As LocalReport)

            Dim deviceInfo As String = "<DeviceInfo>" &

                "<OutputFormat>EMF</OutputFormat>" &

                "<PageWidth>8.5in</PageWidth>" &

                "<PageHeight>11in</PageHeight>" &

                "<MarginTop>0.25in</MarginTop>" &

                "<MarginLeft>0.25in</MarginLeft>" &

                "<MarginRight>0.25in</MarginRight>" &

                "<MarginBottom>0.25in</MarginBottom>" &

                "</DeviceInfo>"

            Dim warnings As Warning()

            m_streams = New List(Of Stream)()

            report.Render("Image", deviceInfo, AddressOf CreateStream, warnings)

            For Each stream As Stream In m_streams

                stream.Position = 0

            Next

        End Sub



        Private Sub PrintPage(ByVal sender As Object, ByVal ev As PrintPageEventArgs)

            Dim pageImage As New Metafile(m_streams(m_currentPageIndex))



            Dim adjustedRect As New Rectangle(ev.PageBounds.Left - CInt(ev.PageSettings.HardMarginX),

                                              ev.PageBounds.Top - CInt(ev.PageSettings.HardMarginY),

                                              ev.PageBounds.Width,

                                              ev.PageBounds.Height)



            ev.Graphics.FillRectangle(Brushes.White, adjustedRect)



            ev.Graphics.DrawImage(pageImage, adjustedRect)



            m_currentPageIndex += 1

            ev.HasMorePages = (m_currentPageIndex < m_streams.Count)

        End Sub



        Private Sub Print()

            If m_streams Is Nothing OrElse m_streams.Count = 0 Then

                Throw New Exception("انتبه: لايوجد بيانات لطباعتها.")

            End If

            Dim printDoc As New PrintDocument()

            printDoc.PrinterSettings.PrinterName = My.Settings.PrinterDefultName

            If Not printDoc.PrinterSettings.IsValid Then

                Throw New Exception("خطأ: لم يتم التعرف على طابعة افتراضية.")

            Else

                AddHandler printDoc.PrintPage, AddressOf PrintPage

                m_currentPageIndex = 0

                printDoc.Print()

            End If

        End Sub



        Public Sub Run(ByVal report2 As LocalReport, ByVal pathstr As String, ByVal source_table As DataTable)

            Dim report As New LocalReport()

            report = report2

            report.ReportPath = pathstr

            report.DataSources.Add(New ReportDataSource("Ds1", source_table))

            Export(report)

            Print()

        End Sub



        Public Sub Dispose() Implements IDisposable.Dispose

            If m_streams IsNot Nothing Then

                For Each stream As Stream In m_streams

                    stream.Close()

                Next

                m_streams = Nothing

            End If

        End Sub



    End Class

End Module

كود :

Imports System.Drawing.Printing

Imports Microsoft.Reporting.WinForms

Imports System.Data.OleDb



Public Class Form1

    Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|Db1.mdb"

    Dim Ds As New Ds1

    Dim Tb1 As New DataTable("Tb1")

    Dim con As New OleDbConnection(ConStr)

    Dim _DataAdapter As OleDbDataAdapter

    Dim _Select As String = ""







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

        _Select = "Select id, namee, phone FROM  Tb1"

        _DataAdapter = New OleDbDataAdapter(_Select, con)

        _DataAdapter.Fill(Ds.Tab1)



        DataGridView1.DataSource = Ds.Tab1



        'اضافة الطابعات الى كومبو الطابعات

        Dim Print_name As String

        For i As Integer = 0 To PrinterSettings.InstalledPrinters.Count - 1

            Print_name = PrinterSettings.InstalledPrinters.Item(i)

            Ts_AllPrinters.Items.Add(Print_name)

        Next

        If My.Settings.PrinterDefultName <> "" Then

            Ts_AllPrinters.Text = My.Settings.PrinterDefultName

        End If





    End Sub





    Private Sub btnPrint_Click(sender As Object, e As EventArgs) Handles btnPrint.Click

        ReportPath()



        'الغاء الاجراء في حال لم يكن هناك مسار للتقرير

        If My.Settings.CashReportAppTh = "" Or IsNothing(My.Settings.CashReportAppTh) Then

            MessageBox.Show("حدد مسار التقرير بشكل صحيح", "طباعة الدفعة بشكل مباشر", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)

            Exit Sub

        End If



        Try

            Dim report As New LocalReport()

            Dim _Path As String = My.Settings.CashReportAppTh

            Dim _Print As New Demo.Demo

            _Print.Run(report, _Path, Ds.Tab1)



        Catch ex As Exception

            MessageBox.Show(ex.Message, "طباعة الدفعة بشكل مباشر", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)



        End Try





    End Sub







    Private Sub ReportPath()

        Try

            If My.Settings.CashReportAppTh = "" Then

                'فتح مسار ملف التقرير

                Dim OpenFd As New OpenFileDialog

                Dim Report1 As String = Nothing 'مسار التقرير

                Dim ReportName As String = Nothing 'اسم التقرير

                '-------------------------------------------------------------

                OpenFd.Filter = "Microsoft Reports Files (*.rdlc)|*.rdlc"

                OpenFd.FilterIndex = 1

                OpenFd.RestoreDirectory = True

                '-------------------------------------------------------------

                If OpenFd.ShowDialog = Windows.Forms.DialogResult.OK Then

                    Report1 = OpenFd.FileName 'مسار التقرير

                    ReportName = OpenFd.SafeFileName 'اسم التقرير

                End If



                'تخزين مسار التقرير في اعدادت البرنامج

                If Not IsNothing(Report1) Or Report1 = "" Then



                    'اذا كان مسار التقرير صحيحا يتم تخزين المسار في الاعدادت

                    If ReportName = "Report1.rdlc" Then

                        My.Settings.CashReportAppTh = Report1

                        My.Settings.Save()

                    Else

                        MessageBox.Show("التقرير المحدد ليس صحيحا حدد التقرير التالي " & vbCrLf & " Report1.rdlc ", " تحديد التقرير ", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)

                        Exit Sub



                    End If





                End If



            End If



        Catch ex As Exception



        End Try



    End Sub



    'تحديث الطابعة الافتراضية بتغيرها

    Private Sub Ts_AllPrinters_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles Ts_AllPrinters.SelectedIndexChanged

        Try

            My.Settings.PrinterDefultName = Ts_AllPrinters.Text

            My.Settings.Save()

        Catch ex As Exception

            MessageBox.Show(ex.Message, "تحديث الطابعة", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)



        End Try



    End Sub

End Class