AllColors = First[ColorData["Legacy", "Range"]];
swatch[i_] :=
Graphics[{If[i <= Length[AllColors], ColorData["Legacy", AllColors[[i]]], White],
Rectangle[{0, 0}, {1, 1}]}, AspectRatio -> 1,
PlotLabel -> If[i <= Length[AllColors], AllColors[[i]], ""]];
GraphicsGrid[Table[swatch[7 i + j], {i, 0, 27}, {j, 1, 7}]]