I am using following macro to print fit to one page. But it is not happening
and print is actually running on two pages.

With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
.Orientation = xlLandscape
.LeftFooter = "Left Footer text: "
.RightFooter = "Right Footer Text: "
.FitToPagesWide = 1
.FitToPagesTall = 1
End With

Can any one help me understand the reason why I am not able to get print fit
to single page and what change do I need to make to my code.



--
Yogesh Gupta