Error 2501

[GraeagleBill]

When I run this code:

Public Sub PrintDailyMenu(ChoiceNum As Integer)
'*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*
'  ChoiceNum 2 > 8 means Sunday > Saturday
'*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*
Dim strPDFname As String


strPDFname = "C:\SDM\" & DLookup("Day", "tblWeekDays", "Id = " & ChoiceNum) & "Menu" & ".PDF"    Sorry for the false alarm.


On Error GoTo Err_Handler


Call LoadMenuStrings(ChoiceNum)


DoCmd.OutputTo acOutputReport, "rptDailyMenu", acFormatPDF, strPDFname, True


Call pdfDirect("rptDailyMenu", strPDFname)


Exit_Handler:
   Exit Sub
   
Err_Handler:
Stop
    If Err.Number = 2501 Then     'Ignore the 2501 errors
        Resume Exit_Handler
   Else
        MsgBox "Error " & Err.Number & " in sub ""PrintDailyMenu"" attempting to populate menu lines " & Err.Description
        Resume Exit_Handler
   End If


End Sub

I get this error:

Notice that the error message did not broadcast from my error handler, see Msgbox statement. Moreover, the error isn't valid, as the pdf file was created as intended. If I re-boot and run the code again, no error is displayed. However, if I run the code a second time, the error sill once again be issued.

Any ideas what might cause this condition?


Good Grief!! I thought the call PDFDirect had been deleted from this module a long time ago, it is now!!!