With ActiveSheet.PageSetup
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlLandscape
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With

--
Regards,
Tom Ogilvy


"universal" wrote in message
...

My Print on one page doesnt seem to be working properly (I'm being an
idiot being the most likely cause)

I have set as a name
MyPrintRange=OFFSET(View!$C$62,-1,-1,COUNTA(View!$C:$C),29)

And from a button on the Front Sheet the macro:

Sub PrintOnePage()
ActiveSheet.PageSetup.PrintArea = "MyPrintRange"
With ActiveSheet.PageSetup
CenterHorizontally = True
CenterVertically = True
Orientation = xlLandscape
FitToPagesWide = 1
FitToPagesTall = 1
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

It consistently prints out all I am asking it to do and the 58 blank
rows underneath it aswell!

What am I doing wrong?

Many thanks for everybodies help and tolerance.

Eddie


------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~View and post usenet messages directly from http://www.ExcelForum.com/

~~Now Available: Financial Statements.xls, a step by step guide to
creating financial statements