Exporting a row of graphics objects broken in MMA8

How do you make Mathematica export a Row of graphics. I do not like how GraphicsRow handles the graphics, all the aspect ratios and paddings in the figures get messed up. What I like to do is work with each individual figure and then use a simple Row,Column or Grid to combine my figures. Take the following for instance:

g1 = Plot[Sin[x], {x, -Pi, Pi}, 
      Frame -> True, FrameLabel -> {"x", "y"}, ImageSize -> 2.6*72
    ]

This creates the Sin plot. What I want to 开发者_运维百科do now is create the following Figure:

Fig = Row[{g1, g1, g1}]

Then you can use Export

Export["TestFig.pdf", Fig]

This is the pdf I obtain in MMA8:

I just tried this code in MMA7 and it works fine. It had been a while since I wanted to create this type of figures and I never bothered to check if it worked in MMA8. Does any one have a fix for this in MMA8?

The desired output is the one I obtained in MMA7:

It is worth bearing in mind that GraphicsGrid assumes equal-width columns so using Grid is sometimes more useful. The same syntax as in belisarius' answer applies. It might be worth exploring the ImageSize option to Export (see documentation and tutorial).

Also, note the exporting in PDF format uses the PrintingStyleEnvironment, which is not how things look on screen. You might get better results if you change your page setup in Printing Settings.

Export["c:\\TestFig.pdf", GraphicsGrid[{{g1, g1, g1}}]]