Just seeing if this is what you meant, if not will delete...
SetDirectory[NotebookDirectory[]];
s = Framed[
Labeled[Grid[Table[ListPlot[RandomReal[{0, 1}, 10], Joined -> True,
ImageSize -> 100], {3}, {3}], Frame -> All,
Spacings -> {.5, .5}], "my figure"], ImageSize -> {330, 300}]
Export["s.pdf", s]
pdf:
