FoxPro/Visual FoxPro - Imprimir Reportes

He diseñado un sistema el cual contiene formularios de ventas, compras, ordenes y reportes económicos ya terminado. He creado los reportes en el diseñador de Foxpro. Pero como sabrán, todos esos formularios deben generar facturas (que ya están diseñadas) que se deben imprimir, y pues mi inconveniente es que a la hora que se genere una venta o compra, debe imprimir una factura en la que aparecerán solamente los detalles de esa compra o venta. Cabe decir que tengo un campo indice llamado Num_Orden que prácticamente controlaría la impresión de esa factura. Espero de su ayuda, de antemano gracias.

No se que exactamente queres saber.
como manejar el salto de página ?
como definir qué fuente utilizar ?

y supongo que te referis a impresoras matriciales.

Sabes que cuando se diseñan los formularios te aparecen todos los datos existentes en la tabla con la que se está trabajando. Pero yo necesito saber como hacer para que cuando yo genere la compra o venta, el reporte que he diseñado muestre solo los datos de esa venta realizada. Creo que si está relacionado con el salto de página.

te envio esto que te va a guiar, lo que tenes que hacer es filtrar los datos para que solo muestren los datos de ese comprobante..En este emplo elige la factura por puesto de ventas, ya que uno realiza la factura electronica, este paso se realiza una vez que ya hallas grabado la factura, que es el paso anterior que no agregue para que el ejemplo no sea tan largo.

***** fin numeracion

SELECT tipocuit
SET ORDER TO IVAIND && NUMERO
SEEK V_iva
nomiva1=tipoiva
SELECT tablaclientes
SET ORDER TO INDCODCLI && C_COD
SEEK v_clicod
SELECT factdatos
SET ORDER TO COMPRONUM && COMPRONUM
SEEK V_NuComp
SELECT factdetalle

SET ORDER TO COMDETA && COMPRONUM
SET FILTER TO compronum=V_NuComp

IF LLEVAPV=1
SET PRINTER TO
SET DATE FRENCH
SET PRINTER TO NAME \\MARIANA\EPSONLPT1
REPORT FORM "C:\Administ BG\Ventas\factura.frx" TO PRINTER NOCONSOLE
SET PRINTER TO
SET DATE FRENCH
IF formfactura.combo1.Value ='FACT A' OR formfactura.combo1.Value ='FACT B'
SET PRINTER TO NAME \\MARIANA\EPSONLPT2
REPORT FORM "C:\Administ BG\Ventas\remito.frx" TO PRINTER NOCONSOLE
ENDIF
SET PRINTER TO
ENDIF

IF LLEVAPV=2
IF !EMPTY(cae_pasa)
thisform.release
SELECT tipocuit
SET ORDER TO IVAIND && NUMERO
SEEK V_iva
nomiva1=tipoiva
SELECT tablaclientes
SET ORDER TO INDCODCLI && C_COD
SEEK c_cod
SELECT factdatos
SET ORDER TO COMPRONUM && COMPRONUM
SET FILTER TO puestovta=2 AND tipo_cbte=vtipo_cbte
SEEK V_NuComp
codigo_transp=transpcodi

DO codigobarra

SELECT factdetalle
SET ORDER TO COMDETA && COMPRONUM

set filter to compronum=V_NuComp AND puestovta=vpunto_vta AND tipo_cbte=vtipo_cbte
SET DATE FRENCH
*!* set printer to
*!* set device to print
*!* set default to "c:\program files\microsoft visual foxpro 9\foxypreviewer v299z29"
*!* do "c:\program files\microsoft visual foxpro 9\foxypreviewer v299z29\foxypreviewer.app"
*!* report form "c:\administ bg\ventas\clientes\facturaelectronica.frx" to printer prompt nodialog preview
*!* set device to screen

SET PRINTER TO
SET PRINTER TO NAME "\\MARIANA\HP LaserJet 1020"
IF vtipo_cbte=1 OR vtipo_cbte=2 or vtipo_cbte=3
REPORT FORM "C:\Administ BG\Ventas\Clientes\facturaelectronica.frx" TO PRINTER NOCONSOLE
ENDIF
IF vtipo_cbte=6 OR vtipo_cbte=7 or vtipo_cbte=8
REPORT FORM "C:\Administ BG\Ventas\Clientes\facturaelectronicaB.frx" TO PRINTER NOCONSOLE
ENDIF
SET PRINTER TO

IF vtipo_cbte=1 OR vtipo_cbte=6 && remitos para rosario
IF codigo_transp=0
SET PRINTER TO NAME "\\MARIANA\HP LaserJet 1020"
REPORT FORM "C:\Administ BG\Ventas\Clientes\remitoelectronica.frx" TO PRINTER NOCONSOLE
REPORT FORM "C:\Administ BG\Ventas\Clientes\remitoelectronica.frx" TO PRINTER NOCONSOLE
ELSE && remitos para transporte
SET PRINTER TO NAME "\\MARIANA\HP LaserJet 1020"
REPORT FORM "C:\Administ BG\Ventas\Clientes\remitoelectronica.frx" TO PRINTER NOCONSOLE
REPORT FORM "C:\Administ BG\Ventas\Clientes\remitoelectronica.frx" TO PRINTER NOCONSOLE
REPORT FORM "C:\Administ BG\Ventas\Clientes\remitoelectronica.frx" TO PRINTER NOCONSOLE
ENDIF
set device to screen
ENDIF
SET PRINTER TO
ENDIF
ENDIF