page setup setting

[morteza2006]

hi all
I have a problem.
How did the settings as shown below vba
thanks

[enrand22]

may be this could help you:

With ActiveSheet.PageSetup
.FooterMargin = Application.InchesToPoints(0.45)
.FitToPagesWide = 1
End With

[morteza2006]

Thank you very much
But my problem is still not resolved
Someone please help me