Comments on: Page Of Pages in a Cell

By: NARAYAN

NARAYAN — Mon, 30 Jan 2012 16:01:36 +0000

Hi Jan Karel ,

Many thanks for this amazing stuff. Just one note – the apostrophes were not actually apostrophes , and only on replacing them with actual apostrophes , the formula worked.

Tony : Please do the following :

Click on Name Manager ; click on New ; for the range name , either copy + paste or type in RowAfterpgbrk ; click in the Refers To box , and delete whatever is displayed there ; copy + paste or type in =GET.DOCUMENT(64)

Repeat this for the remaining three range names : TotPageCount , PageOfPages and ThisPage.

Within your worksheet define your print range ; go to each page break and wherever you want , on each page , type in the formula =PageOfPages ; you should see something like Page 1 of 17 ; Page 2 of 17 and so on , depending on whether you have put in the formula on the first page or the second or …. The total number of pages ( 17 in my example ) will again depend on the size of your defined print range.

Narayan

By: Tony

Tony — Sat, 24 Dec 2011 17:12:14 +0000

I tried to get.ducument() in excel 2007, but got error message: “this is not a valid function.” Any help?

By: Jan Karel Pieterse

Jan Karel Pieterse — Fri, 25 Mar 2011 20:58:00 +0000

For Excel 2010, maybe you could use that new method to make working with page setup stuff faster:

application.PrintCommunication = False

By: Brad Yundt

Brad Yundt — Fri, 25 Mar 2011 04:52:00 +0000

In trying to modify Ture's code to return the total number of pages for Jan Karel, I observed that the function below does not update automatically. The simple answer is to make it volatilebut there is a noticeable delay while it recalculates. This delay would be intolerable if you were editing the workbook. For this reason, I suggest manually triggering the recalculation, such as by changing the value in the cell being passed as a parameter.

Function PageCount(cel As Range) As Long
'Returns the number of pages for the worksheet containing range cel
'Note: function is not volatile, so it needs to be refreshed manually. _
It is not very fast, so it would be unwise to make function volatile.
Dim pb, h As Long, v As Long
Dim rg As Range, rgPrintArea As Range
With cel.Parent
If .PageSetup.PrintArea = "" Then
Set rgPrintArea = .UsedRange
Else
Set rgPrintArea = .Range(.PageSetup.PrintArea)
End If
Set rg = rgPrintArea.Cells(rgPrintArea.Rows.Count, rgPrintArea.Columns.Count)
For Each pb In .HPageBreaks
If pb.Location.Row <= rg.Row Then h = h + 1 Else Exit For
Next pb
For Each pb In .VPageBreaks
If pb.Location.Column <= rg.Column Then v = v + 1 Else Exit For
Next pb
Select Case .PageSetup.Order
Case xlDownThenOver
PageCount = ((.HPageBreaks.Count + 1) * v) + h + 1
Case xlOverThenDown
PageCount = ((.VPageBreaks.Count + 1) * h) + v + 1
End Select
End With
End Function

Brad

By: Jan Karel Pieterse

Jan Karel Pieterse — Mon, 21 Mar 2011 10:01:00 +0000

Hi Brad,

Thanks for that. I'd be interested to see a similar function for total number of pages...

By: Brad Yundt

Brad Yundt — Sat, 19 Mar 2011 05:49:00 +0000

Former Excel MVP Ture Magnusson posted a UDF to return the page number at: http://www.experts-exchange.com/Software/Office_Productivity/Office_Suites/MS_Office/Q_10213800.html#2094940
You use it with a worksheet formula like:
=PageNumber(A100) 'returns page number of cell A100

Function PageNumber(c As Range) As Long
Dim pb, h As Long, v As Long

For Each pb In c.Parent.HPageBreaks
If pb.Location.Row <= c.Row Then h = h + 1 Else Exit For
Next pb
For Each pb In c.Parent.VPageBreaks
If pb.Location.Column <= c.Column Then v = v + 1 Else Exit For
Next pb
Select Case c.Parent.PageSetup.Order
Case xlDownThenOver
PageNumber = ((c.Parent.HPageBreaks.Count + 1) * v) + h + 1
Case xlOverThenDown
PageNumber = ((c.Parent.VPageBreaks.Count + 1) * h) + v + 1
End Select
End Function

Brad

By: jason

jason — Thu, 17 Mar 2011 17:53:00 +0000

I scoured the net looking for VB solutions to these problems. I left your page open for days before trying it because I thought someone must have surely posted a simple VB or UDF that does this. Resorting to the abandoned macro functions didn't seem right. However, this is the only thing that got the job done. Seriously thank you for keeping this page available.

I will continue trying to reach a VB solution for =ThisPage but until then...

By: jkpieterse

jkpieterse — Mon, 24 Jan 2011 13:38:00 +0000

No, it does not work in the repeating rows. Rows repeated are always on page 1 so will always show page 1 of xx

By: Dick Kusleika

Dick Kusleika — Mon, 24 Jan 2011 02:23:00 +0000

I've never found a way to make it work with rows that repeat. See here http://www.dailydoseofexcel.com/archives/2010/01/26/vba-page-of-pages-in-a-cell/

As for the defined names, the only ones you really need are RowAfterPagebrk, TotPageCount, and PageOfPages. If you want to use any of the other names, you can add them.

By: Lenny33

Lenny33 — Fri, 21 Jan 2011 22:18:00 +0000

Stuart and Ron never got a response to their question regarding formulas placed in repeating rows.... is there a way to update the formulas for each page within the designated print area? I played a bit with this and depending upon how 'deep' the print area was, the number of pages did change by not the 'page' (from 1 of 3 to 1 of 10), however - this appeared the same on each of the 10 pages.

Also - I noticed in your sample excel file that there were some additional 'defined' names that seemed to pertain to the print area that were left out of your initial response. Are these additional names crucial to the updating?

Some clarification would be immensely helpful.

Regards - Lenny33