Page number in cell

G

Gord Dibben

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
 
Top