RE:Necesito alguna aclaración por favor.
Mira qué fácil es hacer, por ejemplo una factura de las muchas que tengas:
Haz el Repor seleccionando los campos de la tabla o consulta que desees y los colocas en su sitio.
Una vez tengas Facturas hechas, cuando quieras imprimir desde el Formulario oportuno, incluye en ese Formulario el Control Crystal y llámalo (por ejemplo) Repor, márcale las propiedades oportunas y en un Botón llamado cmdImprimir sitúa este código, cambiando lo oportuno de nombres, path, etc.:
En este caso también debes tener hecha una Función llamada AddPath, para que funcione, si no, márcale tu el camino correcto.
Private Sub cmdImprimir_Click()
On Error GoTo miError
Screen.MousePointer = vbHourglass
Repor.Destination = 0
Repor.DataFiles(0) = DataNombre$
Repor.ReportFileName = AddPath(DataPath$, "Reporta.rpt")
Repor.SelectionFormula = "{ComoSeLlame.FACTURA} = ´" + txtFields(x).Text + "´"
Repor.Action = 1
GoTo fuera
miError:
Screen.MousePointer = vbDefault
MsgBox "No encuentro los datos. ¿Hay seleccionada una Factura?"
fuera:
Err = 0
On Error GoTo 0
Screen.MousePointer = vbDefault
End Sub
Esto imprime sólo la factura seleccionada.