with Sheet1.PageSetup
.PrintArea = "B1:CW43" 'Sets the Print area
.FitToPagesWide = 1
.FitToPagesTall = 1
.Zoom = False
sheet1.PrintOut 'Prints the Print area
.PrintArea = "" 'Clears the
end with

--
Regards,
Tom Ogilvy


"grahammal" wrote:


Have just tried the above but it still overflows to page 2 by the same
amount?


--
grahammal
------------------------------------------------------------------------
grahammal's Profile: http://www.excelforum.com/member.php...o&userid=20336
View this thread: http://www.excelforum.com/showthread...hreadid=538868