Works like a champ! I'll finish up with some error handling and a boat-load of comments so that "I" don't forget what the whole scheme is about.... 
Code:
Private Sub pdfDirect(rptName As String, CtrlName As String)
strpdfFile = Forms("frmDocuments").Controls(Replace(CtrlName, "lbl", "tb"))
strCurPDFName = strCurRptsPath & "\" & strCurRetreat & "\" & strpdfFile & ".pdf"
DoCmd.OpenReport rptName, acViewPreview, , , acHidden
DoCmd.OutputTo acOutputReport, rptName, acFormatPDF, strCurPDFName
DoCmd.Close acReport, rptName, acSaveNo
End Sub
Probably include the URL's to both this thread as well as Welshgasman's right in the comment block of the sub.