Vba to save as a PDF

[alexduy]

I've attached an excel file. In the file, I have a pivot table in the tab name "PivotTableSheet". Basically, I want my macro to double click on the total on cell B2 and B3, expand them and and save each each as a pdf. However, when it's saved as A pdf, it doesn't show everything on the same page, in the pdf file, since width is too wide. Is there a way to set the page layout so that it will save as one page, instead of several pages? The following the is code I wrote so far.

Thanks in advance for the help.