100% free solution to printing your excel file to PDF.
First of all you need the CutePDF. This program acts like a printer on your computer.
Now after installing CutePDF, when you run this macro, you will get a pop-up to name your PDF file, and select a location to save it.
So this is not a solution if you are planning to save lots and lots of files, but it worked great for me.
Sub Print_To_PDF() '=================================================== 'Select all visible sheets, except for SOURCE DATA '=================================================== For Each ws In Sheets If ws.Name <> "SOURCE DATA" And ws.Visible Then ws.Select (False) Next '=================================================== 'Print to PDF '=================================================== Application.ActivePrinter = "CutePDF Writer on CPW2:" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End Sub