Macro To Print Selection In Color + Landscape

Hi Guys,

I need a macro that will print a selection Sheet Quality Grid("A1:Q57") in color and landscape mode. Can anyone help out ?

Thanks,