Macro to Set Worksheet to Specific Print Settings

Hello,

I would like to create a Macro that prints a specific worksheet just the way I want it.
The name of the worksheet I want to set up just right goes by the name of “Personnel”. The data is contained from cell A5 to D19. The data is contained within the pivot table and it can change, for example, data currently stops at D19, but it could change to P500 or AZ1000, so the last column and row can vary. The data sample I am providing as part of this post is just a sample of the very big pivot table I have. I figure I keep things simple.

I want the Macro to:
1: Include data in report from cells A5 to last column/last row
2. Print column titles on every page (Columns titles are now found on Row 9 starting from A9 to last column)
3. Autofit Columns to best Width
4. Scale Worksheet to fit all columns on One Page
5. Orientation: Portrait
6. Center on Page: Horizontally

If you need further explanation let me know.

BC

Thanks everyone.

BC

BC,
do you have the solution perhaps? Looking for a similar solution.
Thx.