Hi,
Here's a bit of code I've used...

With ActiveSheet.PageSetup
.CenterHeader = "Service Parts - Risk Reviews"
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.PaperSize = xlPaperA4
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 2

It's the last two rows you'll need I think...
Hope this helps
Garet

--
pianoma
-----------------------------------------------------------------------
pianoman's Profile: http://www.excelforum.com/member.php...fo&userid=3371
View this thread: http://www.excelforum.com/showthread.php?threadid=54939