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]

![Mathematica graphics](https://i.sstatic.net/i2OMH.png)

pdf:

![Mathematica graphics](https://i.sstatic.net/lKGX9.png)