Visual Basic - ayuda a imprimir

un data grid q me muestra las busqueda, y me muestra todo los cuando busco por codigo por codigo y por movimiento tambien me muestra solo el movimiento seleccionado. hsta ahi todo bien pero despues cuando lo mando al data report, el de codigo me muestra todo los q sale en el data grid , pero cuando voy a imprimir lo q muestra por movimiento, me muestra 1 solo y a veces otras cosas , pero no me muestra lo q sale en el data grid alguien me puede ayudar

este es el codigo para imprimir

Private Sub Command1_Click()
On Error Resume Next
DataGrid1.Col = 1
re.coneccion2.Open
re.comando2 (CStr(DataGrid1.Text))
listado.Orientation = rptOrientLandscape

listado.Refresh
listado.Show
Unload Me
End Sub