Macro - Print to PDF issue

Hi

I have writte a simple macro to print to PDF using Adobe PDF however I am missing the option to ask when you want to save the file.

Would you know what I need to add to promte to where I can save and open it after it has been saved? I have predetermind the file name and I thought that may cause the issue

ActiveWindow.SelectedSheets.PrintOut Copies:= 1, Collate:=True, PrToFileName:=Format(Date, "mm.dd.yyyy") & Recap " & Range("I2") & ".pdf"

In addition once the file is saved Adobe cannot reopen the as it has some deconding error, I really do not know what I would need to add.


I really appreciate any kind of help

Thank you in advance