simple printing problem

I am barely familiar with VB in MSOffice, so I am strugglingto try and create a macro in SW that simply does this:
Run the macro and it sets the sheet size to letter and sets thecolor to B&W, then prints to default printer.

I deal with many older prints each day, these were createdapparently with a template that was set up to print in color. Also,the sheet size varies from letter to B size. Very annoying, must goto page set up every time, should be simple to address with a macroright?
Could I get a little help with this?

ThanksSolidworksUser Interface