Hola Chicharos:
Mira no te preocupes, es algo muy sencillo lo que tienes que hacer
Si ya logras tener en pantalla una factura y esa es la que tienes que imprimir. Yo te sugeriria que pongas ademas de eso una opción de consultar factura por si mas adelante la quieres facturar, no tenga que ser exactemente la misma, o imaginate que pasa si tienes en pantalla la factura y se te va la energía electrica como la imprimes despyes?. pero bueno eso ya será tu desición.
Solo tienes que poner unas cuantas lineas de codigo para decirle que imprima unicamente esa factura:
Dim strfolio As String
Dim formu As String
Dim folio As Long
folio = CLng(lblfolio.Caption) 'suponiendo que aqui esta el numero de factura
strfolio = "{MOVIMIENTOS VENTAS.MOVCODIGO}= " & folio
' gblubicacion es la ruta o path donde esta tu base de datos
' tambien podria quedar: CReport1.DataFiles(0) = "C:\BASE\la base.mdb"
CReport1.DataFiles(0) = gblubicacionbase
CReport1.Connect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & gblubicacionbase & ";Persist Security Info=False "
CReport1.ReportSource = crptReport
formu = "(" & strfolio & ")"
CReport1.SelectionFormula = formu
CReport1.ReportFileName = App.Path & "\reportes\FACTURA.rpt"
CReport1.Action = 1
Con este codigo Crystal te selecciona los registros a imprimir
Espero te sirva Saludos.
Juan Carlos
