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

 

[Peter_SSs]

it doesn't make sense when it used to work perfectly.

Perhaps when you used it previously the combination of the particular path/folder/filename was not as long as it is now?

Can you test the same code but a file with a shorter path/name structure?

 

[marcenet03]

Perhaps when you used it previously the combination of the particular path/folder/filename was not as long as it is now?

Can you test the same code but a file with a shorter path/name structure?

I've already tried that. But still the same error.