This is the relevant bit:
DoCmd.OutputTo acOutputReport, "lrptKUWMain", _
acFormatPDF, "h:\data\igdb\cd\" & strRegNo & "-" & strSession & ".pdf", False
DoCmd.Close acReport, "lrptKUWMain", acSaveNo
The code hasn't altered between versions but the quality of the output has