Print Selection Macro help

so what I am doing is trying to get a certain selection to print after something is entered into a box. I have tried a couple different variations and have come to this one:

Sub PrintSomeCells()
Range("F15:F17,G15:G17").PrintOut
End Sub

This kind of does what I want it to do to a point but I need it to print ONLY if G13 turns green(I already have the formula set up for this) and also to print on 1 page (currently F15-F17 print on 1 page and G15-G17 print on a second page)


Any help would be much appreciated.