|First, a posting tip...|
Before posting any more code in this forum, please click on the blue line at the end of this post and read the instructions found via that link.
Second, it might help if you told us what you mean by "not having much luck in getting the colour set up".
Are you getting an error from Excel/VBA when you run the macro or an error from the printer or is nothing be printed with no error or something else?
Since we don't have the same printer or network as you, we can't test your code, so you need to give us some information to work with.
The one thing I noticed is that you do not have a colon on this line:
Application.ActivePrinter = "P-7401-COLOUR on S-VM-PRT01"
If I try that line using my printer and leaving off the colon, VBA throws up an error. Of course, not knowing what your specific issue is, I don't know if that's your problem.
Click Here Before Posting Data or VBA Code ---> How To Post Data or Code.