Excel Print to PDF Macro Run-time error '-2147024773 (8007007b) Document not saved

[mazher]

Hi VBA Gurus I am using the following code and getting the error -2147024773 (8007007b) Document not saved

Sub Print_PDF()
    Dim ThisFile As String
    Dim ThisPath As String
    
    With Worksheets("Autoclinics")
    
        With .PageSetup
            .RightFooter = "Printed on &D at  &T"
            .PrintQuality = 600
            .CenterHorizontally = True
            .CenterVertically = False
            .Orientation = xlLandscape
            .Draft = False
            .PaperSize = xlPaperA4
        End With
    
          
            
            ThisFile = .Range("AA2").Value
            ThisPath = .Range("AB2").Value
            
        
            .Range("D3:R40").ExportAsFixedFormat _
                   Type:=xlTypePDF, _
                   Filename:=ThisPath & ThisFile & ".pdf", _
                   Quality:=xlQualityStandard, _
                   IncludeDocProperties:=True, _
                   IgnorePrintAreas:=False, _
                   OpenAfterPublish:=False
        
        
        Application.StatusBar = False
        
    End With
    
      
End Sub

Please can someone help me.

Once its sorted i need to print another range T3:Z21 and convert it to PDF and add in the above code. the above code is for page 1 and range T3:Z21 is for page 2 in the same .pdf file.

Value in AA2 = F:\FOLDER\CS\TEST\ (this is s text value)
Value in AB2 = 12102020 (this is a number ) basically i want today's date here)

I will be extremely thankful if anyone can help me.

 

[Yongle]

Debug.Print wrires to VBA immdiate window and can help diagnose problems

Below ...

ThisPath = .Range("AB2").Value

Insert ...

Debug.Print ThisPath & ThisFile & ".pdf"
Exit Sub

Run the macro again
Next ... Look in VBA immediate window ( display from menu View \ Immediate Window )

Does the path exist?
Is "\" included after path and before file name?
etc

 

[mazher]

Thanks Yongle, It worked and i found the problem

            ThisFile = .Range("AB2").Value
            ThisPath = .Range("AA2").Value

I have swapped the variables, my mistake

Please can you help me adding the second page for the range T3:Z21 in the same PDF.

I will be extremely thankful to you for your time and help

 

[Yongle]

Glad it fixed your problem
New question unrelated to thread title requires a new thread