Hi! If you are using Datagridview put this code on your print button.
Dim dt As New DataTable
With dt
.Columns.Add("id")
.Columns.Add("name")
.Columns.Add("address")
End With
For Each dr As DataGridViewRow In Me.dgv_list.Rows
dt.Rows.Add(dr.Cells("id").Value, dr.Cells("name").Value, dr.Cells("address").Value)
Next
Dim rptDoc As CrystalDecisions.CrystalReports.Engine.ReportDocument
rptDoc = New cr_logslist
rptDoc.SetDataSource(dt)
frm_report_viewer.CrystalReportViewer1.ReportSource = rptDoc
frm_report_viewer.ShowDialog()
frm_report_viewer.Refresh()
frm_report_viewer.Dispose()
Note: Change cr_loglist with the name of your Crystal Report file.
Hope it helps.