Here's a code example from one of my programs, in the case of 'loxfrx.targetType' = 'PDF' then it will create a PDF.

*-- For these have to create a file
IF INLIST(tcFile_Action,'PRINT','FAX','EMAIL') AND tcSend_To <> 'PRINTER'
	IF EMPTY(tcDirectory)
		IF DIRECTORY('TEMP')
			*-- current drive + default directory
			tcDirectory = SYS(5)+SYS(2003)+'\Temp\'
		ENDIF
	ENDIF

	local loSession, lnRetval
	loxfrx = XFRX("XFRX#LISTENER")
	loxfrx.targetType = tcSend_To
	loxfrx.targetFileName = RTRIM(tcDirectory)+RTRIM(tcFileName)
	loxfrx.DoNotOpenViewer = .T.
	lnRetval = loxfrx.SetParams()

	IF lnRetval = 0
		WAIT WINDOW 'Running report: '+tcReport+CHR(13)+;
					' Send To: '+loxfrx.targetType+CHR(13)+;
					' Filename: '+loxfrx.targetFileName+CHR(13)+CHR(13)+;
					' Range: '+tcRange NOWAIT
		REPORT FORM (tcReport) &tcRange OBJECT loxfrx
	ELSE
		=MESSAGEBOX("Error Printing Report!",16,"Error Code: "+ALLTRIM(STR(lnRetVal)))
	ENDIF
ENDIF