Error 1004 Document Not Saved .ExportAsFixedFormat xlTypePDF

Hi All,

I have been working on this project for a long time and it is finally nearly done. I have a chunk of code that is intended to grab a range of cells from a form and export that range as a PDF file with a dynamic file name. This was working fine on my computer but when I tried to run the project on my coworker's computer (for whom the project is intended), I got a 1004 Error. The error box says that the PDF may be open, but there were no pdf's open and since the file name is dynamic I don't understand what it's talking about.

Both my coworker and myself are running Office 2016. Their computer does have Adobe Reader installed and I can manually export the range as a PDF just fine but the code does not work. Looking forward to any thoughts. My code is below:

Please Login or Register  to view this content.

Thank you

Try it maybe in this way:

Please Login or Register  to view this content.

Ps.:
1) use "&" to concatenate strings, not "+"
2) The 'ChDir' statement changes the default directory but not the default drive

porucha vevrku,

I apologize for not responding sooner. I haven't been able to work on this until now. I tried your code both with and without the "Possible but not needed" sections. Both version of your code produce the following error at the ws.ExportAsFixedFormat command line:

"Run-Time error '-2147024773(8007007b)': Document not saved."

Yes, ws. is declared earlier in the procedure. I should have posted my entire code, though. My full code, with your input, is below.

Please Login or Register  to view this content.

Thank you for your help. I appreciate it.