poly = 1 + 6 x + 8 x^2 - 38 y - 10 x y + 9 y^2;
(MonomialList[poly, {y, x}, #] /.
List[arg__] :> HoldForm[Plus[arg]]) & /@ {"Lexicographic",
"DegreeLexicographic", "DegreeReverseLexicographic",
"NegativeLexicographic", "NegativeDegreeLexicographic",
"NegativeDegreeReverseLexicographic"} // Column