Set Delete On
userno="7"
mdatadrv = "c:\vfp7\data\001\"
Store Trim(mdatadrv-'RPT'-(muserno))-'.prg' To spool
If File (spool)
    Delete File (spool)
Endif

Set Console Off

the_path=Sys(5)+Sys(2003)

If .Not. Empty(Thisform.the_db)
    Select (Thisform.the_db)
Endif

Report Form (Thisform.printrpt) Noeject Noconsole To Printer Prompt

Cd (the_path)