el código que tengo para esto es: en un botón del formulario evento Click:
PUBLIC fecha,solicita,acepta,t1,t2 as string
PUBLIC obs as CHAR
PUBLIC regno as Integer = 0
Fecha = ThisForm.DTPicker.Object.Value
solicita= thisform.cbSolicita.Text
acepta= thisform.cbacepta.Text
t1= thisform.cbt1.Text
t2= thisform.cbt2.Text
obs = ALLTRIM(thisform.EBobs.Text)
IF EMPTY(SOLICITA) OR EMPTY(ACEPTA) OR EMPTY(T1) OR EMPTY(T2) THEN
MESSAGEBOX("Existen campos en blanco...!!!",0,"Solicitud Negada")
ELSE
APPEND BLANK IN movimientos
replace movimientos.fecha WITH ThisForm.DTPicker.Object.Value
replace movimientos.solicita WITH solicita
replace movimientos.t1 WITH t1
replace movimientos.acepta WITH acepta
replace movimientos.t2 WITH t2
replace movimientos.depto WITH deptox
replace movimientos.obs WITH obs
regno = movimientos.idmov
MESSAGEBOX(regno)
IF MESSAGEBOX("¿Desea imprimir solicitud?",4,"Imprimir Solicitud")=6 then
SELECT * FROM movimientos WHERE movimientos.idmov = regno INTO CURSOR resultado
SELECT resultado
REPORT FORM cambio_turno.frx TO PRINTER PROMPT PREVIEW
endif
ENDIF
thisform.cbArea.value=""
thisform.cbSolicita.value=""
thisform.cbacepta.value=""
thisform.cbt1.Value=""
thisform.cbt2.Value=""
thisform.ebobs.Value=""
solo quiero imprimir el registro que estoy ingresando pero no me funciona...!!!!