28-07-13, 03:52 AM
اريد تغير عنوان الصفحة عند الطباعة
حيث ان الايبل يحمل عنوان الصفحة (يتغير حسب اسم العميل)
و ان الصفحة تطبع الداتا جريد (تحتوي على بيانات عميل معين)و الايبل هو ام العميل
المشكلة ليست في طباعة الداتا جرد بل باللابل
قمت بطرح الموضوع للمرة الثانية وذلك لاضافة مرفق(اعتذر)
جزاكم الله خير
حيث ان الايبل يحمل عنوان الصفحة (يتغير حسب اسم العميل)
و ان الصفحة تطبع الداتا جريد (تحتوي على بيانات عميل معين)و الايبل هو ام العميل
المشكلة ليست في طباعة الداتا جرد بل باللابل
قمت بطرح الموضوع للمرة الثانية وذلك لاضافة مرفق(اعتذر)
كود :
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
جزاكم الله خير