Sub Print_to_PDF()
Dim strName As String
Dim fso As Object
Const strPath As String = "W:\Tenants\Rent\"
    Set fso = CreateObject("Scripting.FileSystemObject")
    If Not fso.FolderExists(strPath) Then
        MsgBox "The folder " & strPath & " does not exist."
        GoTo lbl_Exit
    End If
    strName = strPath & Format(Date, "yyyy-mm-dd") & ".pdf"
    If fso.FileExists(strName) Then
        If MsgBox("File " & strName & " exists." & vbCr & vbCr & _
                  "Do you want to overwrite", vbYesNo) = vbNo Then
            GoTo lbl_Exit
        End If
    End If

    ActiveDocument.ExportAsFixedFormat OutputFileName:=strName, _
                                       ExportFormat:=wdExportFormatPDF, _
                                       OpenAfterExport:=True, _
                                       OptimizeFor:=wdExportOptimizeForPrint, _
                                       Range:=wdExportAllDocument, _
                                       Item:=wdExportDocumentContent, _
                                       IncludeDocProps:=False, _
                                       KeepIRM:=True, _
                                       CreateBookmarks:=wdExportCreateNoBookmarks, _
                                       DocStructureTags:=True, _
                                       BitmapMissingFonts:=True, _
                                       UseISO19005_1:=False
lbl_Exit:
    Set fso = Nothing
    Exit Sub
End Sub