I hope you can see the picture I attached.
[Private Sub CmdReport_Click()
Dim MyPath As String
Dim MyFilename As String
MyPath = "C:\Users\"
MyFilename = Format(Me.ComboSummary) & ".pdf"
Select Case Me.ComboSummary
Case "Child Nutrition"
DoCmd.OpenReport "Child Nutrition Report", acViewPreview
DoCmd.OutputTo acOutputReport, "Child Nutrition Report", acFormatPDF, MyPath & MyFilename, True
DoCmd.Close acReport, "Child Nutrition Report"
End Select]