[yousef]

اريد تغير عنوان الصفحة عند الطباعة
حيث ان الايبل يحمل عنوان الصفحة (يتغير حسب اسم العميل)
و ان الصفحة تطبع الداتا جريد (تحتوي على بيانات عميل معين)و الايبل هو ام العميل
المشكلة ليست في طباعة الداتا جرد بل باللابل
قمت بطرح الموضوع للمرة الثانية وذلك لاضافة مرفق(اعتذر)

كود :

Public Class Form1
    Public dt As DataTable
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        dt = New DataTable
        dt.TableName = "grid"
        dt.Columns.Clear()
        add()
        Dim count As Integer = 0
        Dim dr As DataRow
        Dim i As Integer
        MsgBox(Me.Table1DataGridView.Rows.Count, MsgBoxStyle.Exclamation, "")
        For i = 0 To Me.Table1DataGridView.Rows.Count - 2

            dr = dt.Rows.Add
            dr.Item("num") = Me.Table1DataGridView.Item(0, i).Value.ToString
            dr.Item("name") = Me.Table1DataGridView.Item(1, i).Value.ToString
            dr.Item("phone") = Me.Table1DataGridView.Item(2, i).Value.ToString
            dr.Item("area") = Me.Table1DataGridView.Item(3, i).Value.ToString
            dr.Item("note") = Me.Table1DataGridView.Item(4, i).Value.ToString

        Next i
        Form2.print(dt)
        Form2.Show()
    End Sub
    Sub add()
        Dim num As DataColumn = New DataColumn("num")
        num.DataType = System.Type.GetType("System.String")
        dt.Columns.Add(num)
        Dim name As DataColumn = New DataColumn("name")
        name.DataType = System.Type.GetType("System.String")
        dt.Columns.Add(name)
        Dim phone As DataColumn = New DataColumn("phone")
        phone.DataType = System.Type.GetType("System.String")
        dt.Columns.Add(phone)
        Dim area As DataColumn = New DataColumn("area")
        area.DataType = System.Type.GetType("System.String")
        dt.Columns.Add(area)
        Dim note As DataColumn = New DataColumn("note")
        note.DataType = System.Type.GetType("System.String")
        dt.Columns.Add(note)
    End Sub
End Class

جزاكم الله خير