Page number in cell

  • Thread starter Thread starter davidaloi
  • Start date Start date
VBA macro.

Sub PrintWithPgNumInTitleRow()
'print with page number in A1
Dim NumPages As Long, Pg As Long
NumPages = ExecuteExcel4Macro("Get.document(50)")
ActiveSheet.Range("TotalPages").Value = NumPages
For Pg = 1 To NumPages
With ActiveSheet
.Range("A1").Value = Pg
.PrintOut from:=Pg, To:=Pg
End With
Next Pg
End Sub

Gord Dibben Excel MVP
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

How to increment page number in a cell of worksheet 2
Page Number in cell 3
Page numbers in a CELL 2
no of pages in excel worksheet (not workbook) 9
inserting page number 2
How do I remove/edit a huge page number in the middle of a workshe 3
How to add "Page number and Pages number" in cell ? 2
Excel Change starting page number in excel spreadsheet report 0

Back
Top