run time error 53, file not found

[marcenet03]

Hello, I have the following macro and used to run perfectly but now isn't working. As it shows run time error 53, file not found. Can someone please help me with what I'm missing?

Sub printxxx()


' Print_quote XXX Macro

    ActiveSheet.PageSetup.Orientation = xlLandscape
    Worksheets("Quote").PageSetup.PrintArea = "$H$6:$Z$133"
     strFile = ThisWorkbook.Path & "\" & strFile
    
    

  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    ThisWorkbook.Path & "\" & CreateObject("Scripting.FileSystemObject").GetFile(ThisWorkbook.FullName).ParentFolder.Name & " XXXQuote ", _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, OpenAfterPublish:=True


ActiveSheet.PageSetup.Orientation = xlPortrait
  
End Sub

 

[rlv01]

This line is strange and I think may be trying to save the file to a path that does not exists.

  ThisWorkbook.Path & "\" & CreateObject("Scripting.FileSystemObject").GetFile(ThisWorkbook.FullName).ParentFolder.Name & " XXXQuote ", _

What is your intent for file name and folder name?

 

[marcenet03]

the path exists, used to work perfectly. We have multiple projects with customer names. Folder name is customer name and file name is project customer name. Anyhow, used to work fine.

 

[Peter_SSs]

Are you trying to run it on a workbook that has not yet been saved?

Perhaps put this as the first line in that macro and see what it returns

MsgBox ActiveSheet.Parent.FullName

 

[marcenet03]

Are you trying to run it on a workbook that has not yet been saved?

Perhaps put this as the first line in that macro and see what it returns

MsgBox ActiveSheet.Parent.FullName

 

[Peter_SSs]

used to work perfectly.

Was it always on Sharepoint when it was working before?

 

[marcenet03]

Was it always on Sharepoint when it was working before?

yes, it was, we always work in one drive.

 

[Peter_SSs]

Sorry then, I'm not sure why it would now be not working.

 

[rlv01]

Any chance you do not have write access?

 

[rlv01]

Does this fail, and if so, on which line of code and for what values of ExportFile and ExportFolder? Does either msgbox appear?

 Sub printxxx
    Dim ExportFolder As String, ExportFile As String
    Dim strFile As String

    ' Print_quote XXX Macro

    If ThisWorkbook.Path = "" Then
        MsgBox "This workbook (" & ThisWorkbook.Name & ") has not been saved yet and thus has no path.", vbExclamation
        Exit Sub
    End If

    ActiveSheet.PageSetup.Orientation = xlLandscape
    Worksheets("Quote").PageSetup.PrintArea = "$H$6:$Z$133"
    strFile = ThisWorkbook.Path & "\" & strFile

    ExportFile = ThisWorkbook.Path & "\" & CreateObject("Scripting.FileSystemObject").GetFile(ThisWorkbook.FullName).ParentFolder.Name & " XXXQuote "
    Debug.Print ExportFile

    ExportFolder = Left(ExportFile, InStrRev(ExportFile, "\"))
    Debug.Print ExportFolder

    With CreateObject("Scripting.FileSystemObject")
        If Not .FolderExists(ExportFolder) Then
            MsgBox "Folder " & vbCr & vbCr & ExportFolder & vbCr & vbCr & " not found.", vbExclamation
            Exit Sub
        End If
    End With

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ExportFile, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=True


    ActiveSheet.PageSetup.Orientation = xlPortrait
End Sub