Returning page-count to a cell
 

Is it possible to return the total pages in a workbook? I know the formula
for sheets (or tabs), but at least one sheet, when printed has 2 or more
pages.

Thanks in advance.

Returning page-count to a cell
 

As far as I know there is not a built in function for this.

There are some methods available using VBA.

This displays the count.

Sub printcounter()

wscount = ActiveWorkbook.Worksheets.Count
For a = 1 To wscount
Sheets(a).Activate
PAGECOUNT = Application.ExecuteExcel4Macro("Get.Document(50)") + PAGECOUNT

Next a
MsgBox (PAGECOUNT & " Pages to Print")

End Sub


--
If this helps, please remember to click yes.


"NAHolmes" wrote:

Is it possible to return the total pages in a workbook? I know the formula
for sheets (or tabs), but at least one sheet, when printed has 2 or more
pages.

Thanks in advance.

Returning page-count to a cell
 

Thanks Paul.

The sub did display the total pages, but it also moved all the text boxes in
the workbook.

Also, is it possible to return the number to a cell?

Thanks again for your help.

"Paul C" wrote:

As far as I know there is not a built in function for this.

There are some methods available using VBA.

This displays the count.

Sub printcounter()

wscount = ActiveWorkbook.Worksheets.Count
For a = 1 To wscount
Sheets(a).Activate
PAGECOUNT = Application.ExecuteExcel4Macro("Get.Document(50)") + PAGECOUNT

Next a
MsgBox (PAGECOUNT & " Pages to Print")

End Sub


--
If this helps, please remember to click yes.


"NAHolmes" wrote:

Is it possible to return the total pages in a workbook? I know the formula
for sheets (or tabs), but at least one sheet, when printed has 2 or more
pages.

Thanks in advance.