اضافة كود لعرض الشيك لطباعته - نسخة قابلة للطباعة

PHP كود :
Public Class Form2

    Private Sub CheqsBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheqsBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.CheqsBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.____SHIC_be1DataSet)

    End Sub

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

        Me.CheqsTableAdapter.Fill(Me.____SHIC_be1DataSet.cheqs)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim res =
            From x In Me.____SHIC_be1DataSet.cheqs
            Where x.cheq_ID = TryCast(CheqsBindingSource.Current, DataRowView).Item("Cheq_ID")

        If IsDBNull(res(0).Item("Cheq_modf")) Then res(0).Item("Cheq_modf") = String.Empty

        Form1.ReportViewer1.LocalReport.DataSources(0).Value = res.ToList
        Form1.ReportViewer1.RefreshReport()

        Form1.Show()
        Me.Hide()

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        CheqsBindingSource.Filter = "name1 like '%" & TextBox1.Text.Trim & "%'"

    End Sub

End Class