SetDirectory@"C:\\drorbn\\AcademicPensieve\\Classes\\1617-257-AnalysisII"

files= FileNames[RegularExpression@"\\d\\d.png", {"160912"}];
images = Table[
ImageCompose[
Import[f],
ImageCrop@Rasterize[Style[f//FileBaseName, Pink], RasterSize->75, ImageSize->75],
{Right,Top},{Right,Top}
],
{f,files}
];
col160912=ImageCollage[
Scaled[1]->images,
"Fit", {1500, 1800},
Method -> "ClosestPacking",Background -> White, Padding -> Red, ImagePadding -> 4
]

Export["160912/LinAlgReview.png", col160912]

files= FileNames[RegularExpression@"\\d\\d.png", {"160914"}];
images = Table[
ImageCompose[
Import[f],
ImageCrop@Rasterize[Style[f//FileBaseName, Pink], RasterSize->75, ImageSize->75],
{Right,Top},{Right,Top}
],
{f,files}
];
col160914=ImageCollage[
Scaled[1]->images,
"Fit", {1500, 1800},
Method -> "ClosestPacking",Background -> White, Padding -> Red, ImagePadding -> 6
]

Export["160914/LinAlgReview2.png", col160914]