اگر با شیء پرینتر می توانید پرینت بگیرید سورس زیر را تست کنید و نتیجه را اعلام بفرمایید
ref. msdn
PrintReport Method Example
The first example displays the Print dialog box, allowing the user to specify the file name and page range. The second example prints the report without displaying the dialog box.
Private Sub DisplayPrintDialog()
DataReport1.PrintReport True
End Sub
Private Sub PrintWithoutDialog()
' Prints all pages in the report.
DataReport1.PrintReport False, rptRangeAllPages
End Sub