Te paso el ejem. mas completo.
Código:
Viewer as CRViewer9
Private Sub Form_Load()
Viewer.ReportSource = InfCtaCte
end sub
'Esto en cualquier lado, un boton o lo que sea
InfCtaCte.PaperSize = crPaperA4
consulta1 = "SELECT FacturasCompra.NFactura, Comprobantes.Descripcion, FacturasCompra.Fecha, DetalleOrden.Importe, FacturasCompra.Concepto, FacturasCompra_1.IdFactura" & _
" FROM Comprobantes RIGHT JOIN ((FacturasCompra RIGHT JOIN DetalleOrden ON FacturasCompra.IdFactura = DetalleOrden.IdFactura) LEFT JOIN FacturasCompra AS FacturasCompra_1 ON DetalleOrden.IdOrden = FacturasCompra_1.IdFactura) ON Comprobantes.IdComprobante = FacturasCompra.Tipo" & _
" WHERE (((FacturasCompra_1.IdFactura)= " & idOrden & "));"
FacturasProveedor.Open consulta1, DECompras.Base
InfCtaCte.Database.SetDataSource FacturasProveedor
InfCtaCte.ParameterFields(1).AddCurrentValue (CStr(efectivo))
InfCtaCte.ParameterFields(2).AddCurrentValue (CStr(transferencia))
InfCtaCte.ParameterFields(3).AddCurrentValue (banco)
InfCtaCte.ParameterFields(4).AddCurrentValue (txtCuit.Text)
Viewer.ViewReport
Viewer.Zoom (1)
Viewer es el objeto para ver informes, en el load le asocio el CRreport (creado antes desde menu proyecto - agregar crystal report 9 )
Luego creo la consulta y se la paso porque de ahi toma unos datos.
Despues le paso los parametros uno por uno.
las 2 ultimas lineas son para mostrar el viewer, ya que en mi form lo tengo oculto.
Espero que esto te sirva, salu2.