General discussion

Locked

Excel consec. page #'s thru all tabs

By kspugh ·
I have seven sheet tabs in a file. Each has 5 pages. Is there a way I can print the entire workbook and have the pages numbered one thru 35?

This conversation is currently closed to new comments.

4 total posts (Page 1 of 1)  
| Thread display: Collapse - | Expand +

All Comments

Collapse -

Excel consec. page #'s thru all tabs

by DKlippert In reply to Excel consec. page #'s th ...

On each Worksheet, go to File>Page Setup and set your page numbering. such as
Page &[Page] of &[Pages]
Now hold down the Ctrl key and select all 7 tabs.
Now when you print the page numbers will be sequential.

Collapse -

Excel consec. page #'s thru all tabs

by DKlippert In reply to Excel consec. page #'s th ...

BTW, here's away to determine the number of pages after you have grouped the sheets.

Function CountPrintedPages() As Integer
Dim oActive As Object, oSheet As Object
Set oActive = ActiveSheet
Application.ScreenUpdating = False
For EachoSheet In ActiveWorkbook.Sheets
oSheet.Activate
CountPrintedPages = CountPrintedPages + _
ExecuteExcel4Macro("GET.DOCUMENT(50)")
Next oSheet
oActive.Activate
Application.ScreenUpdating = True
End Function


Sub GetPageCount()
PageCount = CountPrintedPages()
MsgBox "The page count is " & PageCount
End Sub

Collapse -

Excel consec. page #'s thru all tabs

by kspugh In reply to Excel consec. page #'s th ...

That's what I needed. Thanks! You are the Greatest!

Collapse -

Excel consec. page #'s thru all tabs

by kspugh In reply to Excel consec. page #'s th ...

This question was closed by the author

Back to Software Forum
4 total posts (Page 1 of 1)  

Related Discussions

Related Forums