PrintPage OFFSET problem
 

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

I have set as a nam
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 blan
rows underneath it aswell!

What am I doing wrong?

Many thanks for everybodies help and tolerance.

Eddi

-----------------------------------------------
~~ 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

PrintPage OFFSET problem
 

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

PrintPage OFFSET problem
 

Thanks for your prompt response.

Unfortunately that doesnt seem to make any difference.

Anything else I might try?


------------------------------------------------
~~ 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

PrintPage OFFSET problem
 

did you put the periods in front of each property as I showed?

If zoom is not set to false, it overrides fit to pages.

To the best of my knowledge, that is the only setting which would case this
problem.

Try turning on the macro recorder and doing page setup manually. Remove
unnecessary settings to speed up execution, but don't remove the zoom
setting you record. It should look like

With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.75)
.RightMargin = Application.InchesToPoints(0.75)
.TopMargin = Application.InchesToPoints(1)
.BottomMargin = Application.InchesToPoints(1)
.HeaderMargin = Application.InchesToPoints(0.5)
.FooterMargin = Application.InchesToPoints(0.5)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperLetter
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With

Note that Zoom is set to false. and the attributes are preceded by periods.

--
Regards,
Tom Ogilvy


--
Regards,
Tom Ogilvy

"universal" wrote in message
...

Thanks for your prompt response.

Unfortunately that doesnt seem to make any difference.

Anything else I might try?


------------------------------------------------
~~ 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