Hola Maxi.Net,
Aqui te dejo un código de ejemplo para ello, extraido de la página del Guille. Te dejo la liga por si quieres hecharle un vistazo:
Código:
Private Sub Imprimir()
Try
'Código para mostrar el reporte
'Lo primero que hacemos es declarar una instancia
'del data set dsRepCatClientes
Dim mi_dsRepCatclientes As New dsRepCatClientes()
'Lo llenamos con el contenido de la tabla CAT_CLIENTES
daCatClientes.Fill(mi_dsRepCatclientes, "CAT_CLIENTES")
'Declaramos una instancia del Reporte
Dim mi_rptCatClientes As New rptCatClientes()
'Le indicamos al reporte que tome los datos
'del DataSet
mi_rptCatClientes.SetDataSource(mi_dsRepCatclientes)
'Delcaramos una instancia del formulario frmReprotes
Dim miForma As New frmReportes()
'Le indicamos que debe mostrar mi_rptCatClientes
miForma.crvReportes.ReportSource = mi_rptCatClientes
'que muestre el titulo "Reporte de Clientes"
miForma.Text = "Reporte de Clientes"
'Mostramos el formulario (el cual contiene el reporte)
miForma.Show()
Catch ex As Exception
MessageBox.Show(ex.Message, "Imprimir", _
MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Saludos.