Hi
Thanks for your suggestion but I think this only works if the data is
setup on the one page to begin with. I'm printing the same page over and
over with some of the data changing between each print.

pianoman wrote:
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
Gareth