This is what I use to generate invoices in a PDF format which we then Email to customers.

*****************************************************************
* code starts here
*****************************************************************
*-- check to make sure pdf converter is installed on the comptuer
Aprinter(la_PrtArray)
ln_len = alen(la_PrtArray)
lc_prtfound = .f.
for ln_count = 1 to ln_len step 1
if la_PrtArray[ln_count] = "Amyuni PDF Converter"
lc_prtfound = .t.
endif
endfor
if !lc_prtfound
messagebox("PDF Converter not installed. Contact IT Department!",0)
return
endif


*-- save invoice printout to a file named the invoice number
lc_file = alltrim(lc_invno)+".pdf"

*-- change printer default to PDF converter (must be installed on the desktop)
set printer to name "Amyuni PDF Converter"


*-- generate report to a file
report form arinv noconsole to &lc_file

*-- clear printer command
set printer to

******************************************************************
* code ends
******************************************************************


Not fancy, and I'm sure there are a hundred other ways to do it, but it works very well for our systems.

HTH

Alan Wyne
IS Manager
Rollpak Corp