Macro To Print Selection In Color + Landscape

Try this (Record Macro):

    
Sheets("Quality").Range("A1:Q57").Select
    With ActiveSheet.PageSetup
        .Orientation = xlLandscape
        .BlackAndWhite = False
    End With
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"

Regards,
tt3