I have Excel 2003, but 1 is the correct setting. Try to also set the Zoom to False. Here is a snippet from the help:
If the Zoom property is True, the FitToPagesWide property is ignored.
Example
This example causes Microsoft Excel to print Sheet1 exactly one page wide and tall.
With Worksheets("Sheet1").PageSetup
.Zoom = False
.FitToPagesTall = 1
.FitToPagesWide = 1
End With
Michael Munroe
www.abcdef.biz