PrintPage OFFSET problem

  • Thread starter Thread starter universal
  • Start date Start date
U

universal

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
 
With ActiveSheet.PageSetup
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlLandscape
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With

--
Regards,
Tom Ogilvy


universal said:
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


------------------------------------------------



~~Now Available: Financial Statements.xls, a step by step guide to
Click to expand...
creating financial statements
 
Thanks for your prompt response.

Unfortunately that doesnt seem to make any difference.

Anything else I might try?
 
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 said:
Thanks for your prompt response.

Unfortunately that doesnt seem to make any difference.

Anything else I might try?


------------------------------------------------



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