FoxPro/Visual FoxPro - Como mandan, imprimir sus tarjetas de pago

Que tal amigos, tengo un programa en el que genero una venta, con un detalle del calendario de pagos, bueno yo la imprimo con una vista parametrizada y una requery pero no se si uds, tengan una mejor forma de hacerlo, ya que ultimamente he tenido algunos problemas... les pongo parte de mi codigo tuente.

IF Thisform.txtDe.Value = 0
MESSAGEBOX("Ingrese el folio a imprimir",64,"Falta Folio")
thisform.txtde.SetFocus
RETURN
ENDIF
IF Thisform.txtHasta.Value = 0
MESSAGEBOX("Ingrese el folio a imprimir",64,"Falta Folio")
thisform.txtHasta.SetFocus
RETURN
ENDIF

*// ver que los folios existan para el sistema
LOCAL de, hasta
STORE thisform.txtDe.Value TO de
STORE thisform.txtHasta.Value TO hasta
SELECT folio FROM venta WHERE folio => de AND folio <= hasta;
INTO CURSOR tarjetas_a_imprimir ORDER BY folio asc
LOCAL foliob, folio_imprime_tarjeta, folio_tarjeta_a
foliob = 0


SELECT tarjetas_a_imprimir
FOR b = 1 TO RECCOUNT()
SELECT tarjetas_a_imprimir
GO b
STORE tarjetas_a_imprimir.folio TO folio_imprime_tarjeta

*// imprime solo las copias deseadas
FOR a = 1 TO thisform.spinCopias.Value
IF Thisform.optiongroup2.Value = 1
*// cara a
DO case
CASE thisform.optiongroup1.Value = 1
STORE foliob TO folio_tarjeta_a
SELECT vista_cara_uno_rarverd
=REQUERY()
Report form 'C:\Maquila\report\tarjetacaraa' to print noeject noconsole
CASE thisform.optiongroup1.Value = 2
ENDCASE
ELSE
*// cara b
DO case
CASE thisform.optiongroup1.Value = 1
STORE foliob TO folio_imprime_tarjeta
SELECT view_carab
=REQUERY()
Report form 'C:\Maquila\report\tarjetacb_verde' to print noeject noconsole
CASE thisform.optiongroup1.Value = 2
ENDCASE
ENDIF
ENDFOR

ENDFOR