Impresion directa con crystal reports

[jetzona]

gracias mabarcau pero aun tengo una duda he creadoun reporte se llama CrystalReport1.rpt ok en el Field explorer he creado un New Parameter Fields
le he puesto el nombre de "serv" de tipo string.
y este es mi codigo en el load de mi form1:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim rpt As New CrystalReport1
Dim var As String
rpt.Load()
var = "Semi-Cama"
rpt.SetParameterValue("serv", var)
End Sub

y me da el siguiente error: me aparece ua ventana Enter Parameter Values
un caja de texto que dice discrete values ingreso el valor o lo que sea y recien lo pone en el reporte
¿que sucede, algo esta mal hecho?

Gracias por lo de la impresion de veras me ayudo mucho