Hi,
try this:

Sub Test()
Dim vRet As Variant

'FitToPagesWide <-- 1
'FitToPagesTall <-- 1
vRet = ExecuteExcel4Macro("PAGE.SETUP(,,,,,,,,,,,,{1,1})" )

'Select the Zoom option
vRet = ExecuteExcel4Macro("PAGE.SETUP(,,,,,,,,,,,,{#N/A,#N/A})")

'Get the Zoom value
MsgBox ActiveSheet.PageSetup.Zoom
'or
'vRet = ExecuteExcel4Macro("GET.DOCUMENT(62)")
End Sub

--
HTH,
okaizawa


HA wrote:
Sorry for describing the problem on wrong way...

With ActiveSheet.PageSetup
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With


the problem is when fit to pages wide and tall selected from page setup (as you see in the code), zoom property set to false automatically.
if fit to page selected, with vba code ActiveSheet.PageSetup.Zoom returns False.
But from page setup dialog box, we can see the zoom factor.
I just want to know on that circumstance, is ther any possiblity to get zoom factor.

thanks...