مشکل در پرینت گرفتن اطلاعات گرید ویو

[mohsen gh]

سلام دوستان این کدی که نوشتم فقط 1 سطر از گریدویو رو چاپ میکنه به نظر شما مشکلش چیه ؟؟؟؟:افسرده:


Dim dt4report As New DataTable
Dim c1 As New DataColumn("id")
Dim c2 As New DataColumn("Namebook")
Dim c3 As New DataColumn("isbn")
Dim c4 As New DataColumn("num1")
Dim c5 As New DataColumn("num2")
dt4report.Columns.Add(c1)
dt4report.Columns.Add(c2)
dt4report.Columns.Add(c3)
dt4report.Columns.Add(c4)
dt4report.Columns.Add(c5)
For i As Integer = 0 To Me.dgv.RowCount - 2
Dim dr As DataRow = dt4report.NewRow()

dr(1) = Me.dgv.Rows(i).Cells(1).Value.ToString()
dr(2) = Me.dgv.Rows(i).Cells(4).Value.ToString()
dr(3) = Me.dgv.Rows(i).Cells(5).Value.ToString()
dr(4) = Me.dgv.Rows(i).Cells(6).Value.ToString()
dt4report.Rows.Add(dr)
Next


Dim cr As New CrystalReport2
cr.SetDataSource(dt4report)
Frm_print.CrystalReportViewer1.ReportSource = cr



Frm_print.ShowDialog()

[ak1_2004]

http://www.setha.info/ict-vb2008/41-ict-vb2008-0009.html