Switching Style for more than one Print item (like escape sequences)

Question

I know about the possibility to use Style in Print to influence the color of the next item, e.g.

Print[
 Style["this prints red ", Red], 
 "now back to default black ", 
 Style["this prints green ", Green]
]

I just want to print some lines in an extended output with some other color but I want to avoid to enclose every single item in e.g. Style[item, color].

What I am after:

Something to mix into a Print statement that applies for the rest of this particular Print statement up to the next style switching item in it but not beyond the end of this particular Print statement. Something like the well known escape sequences control printers which use character fonts rather than graphics raster printing.

Answer 1

A little bit unclear to me but maybe this:

foo = Print @@ (Style[Row[{##2}], #] & @@@ (Split[#, 
       Not@MatchQ[#2, _Directive] &])) &

foo @ {  Directive[Red], "this prints", "red ", Directive[{}], "now back", 
 "to default black ",  Directive[Green], "this prints green"
}

Answer 2

In Mathematica problems like this are often easily solve by writing simple functions that act as shortcuts for tedious typing. In your case, you could write

red[txt_] := Style[txt, Red]
grn[txt_] := Style[txt, Green]

Print[
  red @ "this prints red ",
  "now back to default black ",
  grn @ "this prints green "]