Save Access Report to PDF and Email the PDF file via Outlook

I have some code which I found on the MS Access Help Center which saves (print) a report to a PDF file by using code.  I revised this slighly based on my needs.  In addition, once I have the PDF saved, I added the code to email the PDF file via Outlook.

Everything works perfectly with one exception.  When I run the code, I get the prompt "Save PDF File As" and have to pick the location where I want to save the PDF file.  I choose C:\TimeOff.pdf since my "Email the pdf file via Outlook" code looks for the file here.  Then the PDF file opens and the email is sent.

I need to be able to run the code without it prompting me where to save it and to save it automatically under C:\TimeOff.pdf and then not open the PDF file.  What I'm trying to accomplish is when the code is ran that it just emails the PDF file to someone.  My ultimate goal will be to run this code every day automatically using Windows Scheduled Tasks.

Here is my code.

Private Sub cmdEmailPTOCal_Click()
    Dim prnt As Printer
    Dim strRptName As String
    Dim strPDFPathNameMe As String
    Dim objOutlookApp As Object
    Dim objMailItem  As Object

    Call RunReportAsPDF("rptCalendar_Month", "c:\", "TimeOff.pdf")

'Email the pdf file via Outlook
     Dim ol As Object
     Dim itm  As Object '(Creates the Outlook Application Object by accessing the MS Outlook COM Type Library)
     Set ol = CreateObject("Outlook.Application")
     Set itm = ol.CreateItem(0) '(Outlook a Mail Message)
     itm.To = "LMueller@Senniger.com"
     itm.Subject = "PTO Calendar Report"
     itm.Body = "Attached is the PTO Calendar"
     itm.Attachments.Add ("c:\TimeOff.pdf")

     itm.Send  '(to send)
     Set itm = Nothing '(Cleans up)
     Set ol = Nothing
End Sub



mdlPDFwriter

Option Compare Database
'**************************************
'Windows API/Global Declarations for :Create PDF from MS Access Report
'**************************************
Declare Function RegEnumValue Lib "advapi32.dll" Alias "RegEnumValueA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpValueName As String, lpcbValueName As Long, ByVal lpReserved As Long, lpType As Long, ByVal lpData As String, lpcbData As Long) As Long
Declare Function RegOpenKeyEx Lib "advapi32" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Declare Function RegSetValueEx Lib "advapi32" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal szData As String, ByVal cbData As Long) As Long
Declare Function RegCloseKey Lib "advapi32" (ByVal hKey As Long) As Long
Declare Function RegCreateKeyEx Lib "advapi32" Alias "RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, phkResult As Long, lpdwDisposition As Long) As Long

    #If Win32 Then
        Public Const HKEY_CLASSES_ROOT = &H80000000
        Public Const HKEY_CURRENT_USER = &H80000001
        Public Const HKEY_LOCAL_MACHINE = &H80000002
        Public Const HKEY_USERS = &H80000003
        Public Const KEY_ALL_ACCESS = &H3F
        Public Const REG_OPTION_NON_VOLATILE = 0&
        Public Const REG_CREATED_NEW_KEY = &H1
        Public Const REG_OPENED_EXISTING_KEY = &H2
        Public Const ERROR_SUCCESS = 0&
        Public Const REG_SZ = (1)
    #End If

Type SECURITY_ATTRIBUTES
    nLength As Long
    lpSecurityDescriptor As Long
    bInheritHandle As Boolean
    End Type
'**************************************
' Name: Create PDF from MS Access Report
'
' Description:On a machine where the Adobe 'Adobe PDF' is installed, the current printer is swapped out with the 'Adobe PDF'
' and the PDF file is created. The original printer is then restored.
'
' Inputs:rptName = Microsoft Access report name you want to create pdf from. sPDFPath = the directory path where you want
' to create the pdf file (ex. - "c:\data\"). sPDFName = the name of the pdf file you are wanting to create
' (ex. - "file001.pdf").
'
' Returns:None
'
' Assumes:This code is easily modified to be used in other programs
'
' Side Effects:Please use the most recent installs of Adobe Exchange or 'Adobe PDF' to ensure proper functionality.
' This code is copyrighted and has limited warranties.
'**************************************

Public Function bGetRegValue(ByVal hKey As Long, ByVal sKey As String, ByVal sSubKey As String) As String
    Dim lResult As Long
    Dim phkResult As Long
    Dim dWReserved As Long
    Dim szBuffer As String
    Dim lBuffSize As Long
    Dim szBuffer2 As String
    Dim lBuffSize2 As Long
    Dim lIndex As Long
    Dim lType As Long
    Dim sCompKey As String
    Dim bFound As Boolean
    lIndex = 0
    lResult = RegOpenKeyEx(hKey, sKey, 0, 1, phkResult)

    Do While lResult = ERROR_SUCCESS And Not (bFound)
        szBuffer = Space(255)
        lBuffSize = Len(szBuffer)
        szBuffer2 = Space(255)
        lBuffSize2 = Len(szBuffer2)
        lResult = RegEnumValue(phkResult, lIndex, szBuffer, lBuffSize, dWReserved, lType, szBuffer2, lBuffSize2)

        If (lResult = ERROR_SUCCESS) Then
            sCompKey = Left(szBuffer, lBuffSize)

            If (sCompKey = sSubKey) Then
                bGetRegValue = Left(szBuffer2, lBuffSize2 - 1)
                RegCloseKey phkResult
                Exit Function
            End If
        End If
        lIndex = lIndex + 1
    Loop
    RegCloseKey phkResult
End Function
Public Function bSetRegValue(ByVal hKey As Long, ByVal lpszSubKey As String, ByVal sSetValue As String, ByVal sValue As String) As Boolean
    On Error Resume Next
    Dim phkResult As Long
    Dim lResult As Long
    Dim SA As SECURITY_ATTRIBUTES
    Dim lCreate As Long
    RegCreateKeyEx hKey, lpszSubKey, 0, "", REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, SA, phkResult, lCreate
    lResult = RegSetValueEx(phkResult, sSetValue, 0, REG_SZ, sValue, CLng(Len(sValue) + 1))
    RegCloseKey phkResult
    bSetRegValue = (lResult = ERROR_SUCCESS)
End Function
Public Function RunReportAsPDF(rptName As String, sPDFPath As String, sPDFName As String)
    '---------------------------------
    'rptName = Microsoft Access report name you want to create pdf from sPDFPath = the directory path where you
    'want to create the pdf file (ex. - "c:\data\") sPDFName = the name of the pdf file you are
    'wanting to create (ex. - "file001.pdf")
    '
    '---------------------------------
    Dim sMyDefPrinter As String
    On Error GoTo Err_RunReport
    'Save current default printer
    sMyDefPrinter = bGetRegValue(HKEY_CURRENT_USER, "Software\Microsoft\WIndows NT\CurrentVersion\Windows", "Device")
    ' Set default printer to PDF Writer
    bSetRegValue HKEY_CURRENT_USER, "Software\Microsoft\Windows NT\CurrentVersion\Windows", "Device", "Adobe PDF"
    'Setting value for PDFFileName in the registry stops file dialog box from appearing
    bSetRegValue HKEY_CURRENT_USER, "Software\Adobe\Adobe PDF", "PDFFileName", sPDFPath + sPDFName
    'Run the report
   
  DoCmd.OpenReport rptName, acViewNormal

Exit_RunReport:
        ' Restore default printer
        bSetRegValue HKEY_CURRENT_USER, "Software\Microsoft\WIndows NT\CurrentVersion\Windows", "Device", sMyDefPrinter
        Exit Function
Err_RunReport:
        MsgBox Err.Description
        Resume Exit_RunReport
    End Function
       

Thanks in advance for your assistance!