Gracias a todos por sus ayudas y comentarios ya resolvi mi inkietud
instale el PDFCreator lo configure con autosave y ke siempre grabe el
PDF en una carpeta especifica con el nombre xyz.pdf
despues en el boton en la propiedad click utilice lo sig:
cImpPrinter = "PDFCreator"
SET PRINTER TO NAME (cImpPrinter)
repo form gastos noconsole to prin
SET PRINTER TO default
SET DEVICE TO SCREEN
xarchivo="c:\archivosPDF\gastos"+STR(YEAR(DATE()),4)+ ;
IIF(MONTH(DATE())<10,"0"+ALLTRIM(STR(MONTH(date()))),STR(MONTH(date()),
2))+ ;
IIF(DAY(DATE())<10,"0"+ALLTRIM(STR(DAY(date()))),STR(DAY(date()),
2))+".PDF"
MESSAGEBOX("El Archivo "+ xarchivo +" se ha creado
satisfactoriamente")
RENAME C:\archivosPDF\xyz.pdf TO &xarchivo
con esto en la carpeta archivosPDF del disco se se crea el archivo
gastos20100522,pdf
Gracias de nuevo.