in ấn trong Vb

[battle2]

Em coi mấy cái Code viết về In ấn trong Vb , chẳng hạn trong 1 bài tìm kiếm , khi tìm được các dữ liệu rồi muốn in ra thì thấy Code như sau nhưng không hiểu mọi ngừoi chỉ giáo :
Private Sub Cmdin-click()
If OPtms.valua= true then
If dataenvironment.rscommand.state=adstateopen then
dataenvironment.rscommand.close
end if
dataenvironment.rscommand.open
dataenvironment.rscommand.filter="ma-sach like ' % " & txt.text & " % "
DataReport.show,me