RunTime Error 5

[krishna_gopal_2]

Hi All,

It seems an old question. I found so many posts regarding the same. But couldn't solve the error. I am trying to save my Active Sheet into a PDF using the following code. Initially, it worked fine. But recently it shows Run-time error 5. "Invalid Procedure Call & Argument". Please help me solve this.

Sub ExportToPDF1()ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=Range("C3").Value, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=False, _
IgnorePrintAreas:=False, _
From:=1, _
To:=2, _
OpenAfterPublish:=True
End Sub

Thanks in Advance

 

[chrisnash]

Hi All,

It seems an old question. I found so many posts regarding the same. But couldn't solve the error. I am trying to save my Active Sheet into a PDF using the following code. Initially, it worked fine. But recently it shows Run-time error 5. "Invalid Procedure Call & Argument". Please help me solve this.



Thanks in Advance

I'm not getting any errors from the code.

Sub ExportToPDF1()
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=Range("C3").Value, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=False, _
IgnorePrintAreas:=False, _
From:=1, _
To:=2, _
OpenAfterPublish:=True
End Sub

Can you attach a link to the actual file at all?

 

[chrisnash]

Try this code otherwise:

Sub Save_to_PDF2()

ChDir "C:\Users\Smith\Desktop\"  'Change this location




Dim strXLName As String, strPDFName As String, intPos As Integer


strXLName = ActiveWorkbook.FullName
intPos = InStr(1, strXLName, ".")
strPDFName = Left(strXLName, intPos) & "pdf"


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


End Sub

 

[krishna_gopal_2]

Same Error for this code too...

https://drive.google.com/file/d/19TaqeNC9jkXjH8XGX82YSiMqhdW-DScB

 

[krishna_gopal_2]

Tried reinstalling the Ms Office Suite.... Nothing works.... I tried some other simple macros.... Same error "5"....

 

[chrisnash]

Can you send me a link so I can download your actual workbook that is showing the errors so I can have a look please.