VBA refine code .PrintOut to define pdf Filename and current location

I have a macro that selects worksheets to be printed from worksheets that carry a value in cell A1.

I am trying to adjust the code so that it will print the pdf file with a predetermined name, eg "Output.pdf" and into the folder that the excel file is currently saved

I do not have the VBA skills to do it - I have been trying to find code in various forums, without luck.

My code currently is:

Please Login or Register  to view this content.

Any help with refining the following area in particular will be greatly appreciated

Please Login or Register  to view this content.

I have now resolved this with the following code:

Please Login or Register  to view this content.