السلام عليكم
استخدم هذا الكود لطباعة الداتا جرد الموجودة في الفورم
كود :
Imports CrystalDecisions.CrystalReports.Engine
Public dt As DataTable
private sub print
dt = New DataTable
dt.TableName = "grid"
dt.Columns.Clear()
If Label1.Text = "1" Then
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 TS As DataColumn = New DataColumn("T-S")
TS.DataType = System.Type.GetType("System.String")
dt.Columns.Add(TS)
Dim TF As DataColumn = New DataColumn("T-F")
TF.DataType = System.Type.GetType("System.String")
dt.Columns.Add(TF)
Dim TM As DataColumn = New DataColumn("T-M")
TM.DataType = System.Type.GetType("System.String")
dt.Columns.Add(TM)
Dim Note As DataColumn = New DataColumn("Note")
Note.DataType = System.Type.GetType("System.String")
dt.Columns.Add(Note)
Dim by As DataColumn = New DataColumn("by")
by.DataType = System.Type.GetType("System.String")
dt.Columns.Add(by)
End If
Dim count As Integer = 0
Dim dr As DataRow
Dim i As Integer
For i = 0 To Studant2DataGridView.Rows.Count - 1
dr = dt.Rows.Add
If Label1.Text = "1" Then
dr.Item("NUM") = Me.Studant2DataGridView.Item(0, i).Value.ToString
dr.Item("Name") = Me.Studant2DataGridView.Item(1, i).Value.ToString
dr.Item("T-S") = Me.Studant2DataGridView.Item(7, i).Value.ToString
dr.Item("T-F") = Me.Studant2DataGridView.Item(8, i).Value.ToString
dr.Item("T-M") = Me.Studant2DataGridView.Item(9, i).Value.ToString
dr.Item("Note") = Me.Studant2DataGridView.Item(23, i).Value.ToString
dr.Item("by") = Me.Studant2DataGridView.Item(25, i).Value.ToString
printphone.print(dt)
printphone.Show()
end sub
* ثم قم بانشاء Form جديد واضف اليه crystall report Veiwer من ال Tools
* من ال properties الخاصة بال crystall report veiwer قم باضافة كريستال ريبورت وختر Blank report
* افتح الcrystall report ثم اذهب الfiled explore ثم "right click " على Data base filed اختر Data base expert
*أضف ال جدول الموجود بال Data set او ال database ثم اختر ok
*اذهب مرة اخرى الى ال filed explore ثم database "+" ثم اسحب الحقول الى ال Detail Section
*الان تستطيع التحكم بالحقول "مثل الword"
*انظر الصور المرفقة للتوضيح
*الان اضف كود الطباعة في الفورم الجديد
كود :
Imports CrystalDecisions.CrystalReports.Engine
Public Class printinfo
Public Function print(ByVal dt As DataTable)
Dim e1 As New CrystalReportinfo
e1.SetDataSource(dt)
CrystalReportViewer1.ReportSource = e1
Me.CrystalReportViewer1.RefreshReport()
Return Nothing
End Function