Printing sheets using check boxes

I am using Excel 2007 and I have a piece of code that will allow me to use check boxes to make my sheet selection for printing. I was previously using the added code below to print selection using the default printer.

Please Login or Register  to view this content.

I was trying to change the code that would give an option of selecting what printer.
So I then changed.

Please Login or Register  to view this content.

With

Please Login or Register  to view this content.

Once the dialog appears and a printer is selected code seems to end with no error. What am I missing?
Here’s my code

Please Login or Register  to view this content.