Works sweet June - thanks

the entire thing (I was able to reduce two into one too)




Code:
Function SavedReportAsPDF(ReportName As String, WhereCondition As Variant) As String


Dim MyPDFPath As String


'makes a temp folder
 If Dir("C:\PDF Files", vbDirectory) = "" Then
        MkDir ("C:\PDF Files")
    End If


MyPDFPath = "C:\PDF Files\" & ReportName & ".pdf"


DoCmd.OpenReport ReportName, acViewPreview, , WhereCondition
DoCmd.OutputTo acOutputReport, "", acFormatPDF, MyPDFPath, False
DoCmd.Close acReport, ReportName


SavedReportAsPDF = MyPDFPath


End Function