Runtime Error

[tagliaboo]

I have an excel file with several macro that work fine on multiple computers. I have a new employee that just started and the macros do not work for him. He gets a runtime error -2147417848 (80010108). The specific macro is for creating a PDF is that matters. Not sure if it a setting in excel or version issue. Not the code since it works for everyone else.

Sub MO()
'
' MO Macro
'


Sheets("TC").Visible = True
Sheets("MO").Activate
ThisWorkbook.Sheets(Array("MO", "TC")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "" & ActiveSheet.Range("D11").Value & " Material Only ACM Proposal" & Format(Date, " MMDDYY") & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
Sheets("FO").Activate
Range("A1").Select
Sheets("TC").Visible = False
Sheets("ACM").Select
Range("B1").Select
End Sub

 

[DanteAmor]

Welcome to the forum!

I guess the error is in this line:

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF

You already tried to manually create a PDF file from the new employee's excel.
If you cannot create the PDF, it means that your excel cannot create PDF and then you must install a new version.
If you can create the PDF, then activate the macro recorder, save the PDF, return to stop the macro, the generated code is pasted here to review it.

 

[tagliaboo]

Dante,

The employee in question has to open the two worksheets and create PDF's and then combine them in a PDF reader. All others just use the macro button I created and it does everything without error.

 

[DanteAmor]

But can you ask the user to do what I put in post #2 ?

 

[tagliaboo]

Sub Macro1()
'
' Macro1 Macro
'

'
StandardWidth("IR").Select
Release "C:\Users\XXX\Desktop"
. SortOn := xlTypePDF, AutoSize := _
"C:\Users\XXX\Desktop\Proposal 11.05.19.pdf", := _
xlQualityStandard, := TRUE, := FALSE, := TRUE
End Sub

 

[RoryA]

That code is complete gibberish. I think you might need to reinstall.

 

[tagliaboo]

It worked fine, and popped up in adobe as it should. The XXX's are to mask the employee info, the recorded macro is unchanged other than that.

 

[RoryA]

As I said, that is absolute gibberish. What you posted will not compile or run.

 

[DanteAmor]

Sub Macro1()
'
' Macro1 Macro
'
 
'
    StandardWidth("IR").Select
    Release "C:\Users\XXX\Desktop"
    . SortOn := xlTypePDF, AutoSize := _
        "C:\Users\XXX\Desktop\Proposal 11.05.19.pdf",  := _
        xlQualityStandard,  := TRUE,  := FALSE,  := TRUE
End Sub

What version of excel and office does the user have?

 

[tagliaboo]

We are both using 2016