CODE
Private Sub cmdPDFsingle_Click()
On Error GoTo Err_Handler
Dim strDocName As String
strDocName = "Directory"
Dim strCriteria As String
strCriteria = "[County] = " & Me.lstCounty.Column(0) & ""
Set Application.Printer = Nothing
Application.Printer = Application.Printers("Adobe PDF")
DoCmd.OpenReport strDocName, acViewNormal, , strCriteria
Set Application.Printer = Nothing
On Error GoTo Err_Handler
Dim strDocName As String
strDocName = "Directory"
Dim strCriteria As String
strCriteria = "[County] = " & Me.lstCounty.Column(0) & ""
Set Application.Printer = Nothing
Application.Printer = Application.Printers("Adobe PDF")
DoCmd.OpenReport strDocName, acViewNormal, , strCriteria
Set Application.Printer = Nothing
Right now when I click on the command button the "Save As PDF" box pops up and "Directory.pdf" is the default save name. Is there a way where I could make the default save name the County Name followed by "Directory.pdf"
Example: Johnson_Directory.pdf
Thanks