VBA SETUP PRINTER

When the program run, it flips the {TRUE COLOR} to {Monochrome}, but when it completes is is supposed to set the Plot to 11x17, Datafields off, Linewieghts Off and the color: Monochrome, This was recorded and a few lines added from another recording attempt. I am Unable to keep the Color: truecolor   off, it flips back.

Please help, I have enclosed the code as it is and fails, any suggestions?