Something like this might get you some of the way:
lcHeadings = set("HEADINGS") set headings on type "my_prg_file.prg" to printer auto prompt number set headings &lcHeadings
So that will print out the prg, with a heading containing the filename and date\time, wrap long lines, include line numbers and prompt for the printer.