Thank you, Paul. That works brilliantly!
I have a simple code that now says:
Private Sub PrintPDF_Click()
DoCmd.OpenReport "Receipt - full pay new", acViewPreview, "", "[ConsultID]=[Forms]![Payment Record Type]![ConsultID]"
DoCmd.OutputTo acOutputReport, "Receipt - full pay new"...