Macro to Print Multiple Sheets to Single PDF

I know there are many threads out there similar to this one, however, I have not quite found one to fit my situation. With my limited coding skills (self taught out of necessity), I am challenged on this one. I have code that creates a dialog box for the users to select which sheets to print (workbook sheets can change). This works great and adapts as sheets are added and prints to the printer just as designed. However, I now need to be able to do this same thing but print to a PDF - I can get it to print each selected sheet individually to a single PDF, but need it to not only print to PDF, but to consolidate the selected sheets into a single PDF file.

I have attached my original code that prints to a standard printer. Any help on taking this in a new direction would be greatly appreciated. I apologize in advance for my non-technical background!

Thanks.

Please Login or Register  to view this content.

First - thank you very much. I cannot get the code to work. I think I figured out how to insert the code into what I had already put together. However, I have had several errors. The latest error is "object does not support this property or method". Any thoughts?

Here is the sample file I am working on. Thanks for your help

If you have Distiller, see: http://www.excelforum.com/showthread.php?t=650151

Thanks - That gets me in the direction that I needed.