Below is my code to SAVE a report as a PDF file. The report has been opened as ViewReport. With the exception of the Path and the report name this code work on 3 other reports. The code does not reach either the Error Handler, the Exit sub, nor the End sum. If I use this exact code but change the DoCmd.OutputTo line to a different REPORT NAME the code works works.  I have checked the report that does not work and cannot find any error there.  The database COMPILES fine with no errors. The path exists.  ANY help is appreciated

Details

****************CODE BELOW******************
Private Sub butZOutInvoiceSave_Click()
      On Error GoTo Err_Handler
    
    Const FOLDER_EXISTS = 75
    Const MESSAGE_TEXT1 = "No current invoice."
    Const MESSAGE_TEXT2 = "No folder set for storing PDF files."
    Dim strFullPath As String
    Dim varFolder As Variant
    Dim rptName As String
    vReportName = TempVars!vReportDate   'equals 20250429 for todays date
    
    
    Dim vReportDate

    'vReportName = TempVars!vReportDate
    rptName = "Z-Out By Invoice"
     ' C:\RDC-POS\Liquor Reports\Owner Reports\Z-Out by Invoice
            strFullPath = "C:\RDC-POS\Liquor Reports\Owner Reports\Z-Out by Invoice\" & " " & rptName & "-" & TempVars!vReportDate & ".pdf"
            MsgBox strFullPath
            Me.Dirty = False
            DoCmd.OutputTo acOutputReport, "rptDepartmentInventoryTotals", acFormatPDF, strFullPath, False
            
            
Exit_Here:
    Exit Sub
    
Err_Handler:
    Select Case Err.Number
        Case FOLDER_EXISTS
        Resume Next
        Case Else
        MsgBox Err.Description
        Resume Exit_Here
    End Select
            
End Sub
Copy