Print Cells from Name Range

Need help finishing off a macro. I'm going to do my best to explain this. I want to print out charts which get there data from changing one cell(h85). This cell has a drop down list of a bunch of categories. You change that cell and different data is displayed on the chart. I'm referring to the chart on "Comparison" tab at the bottom.

I was hoping to by clicking the "Print All Categories" command button that it would print all the categories in the drop down menu, but only the categories with data in them. So to combat this I created a Defined Name that captures only the categories names with data not equal to zero.
Defined Name: CategoryActivity

I got this far and wasn't sure how to write the macro to do as follows:
1) Select Print Area (G84:Q109)
2) Select the first category from Defined Name range
3) Print
4) Repeat until all categories from the Defined Name are printed
5) Return the old print area

Any questions, please ask.