Probably easiest by manually entering "Page" in a bottom cell, then do some
code on the back end.
For i = 1 to 20
Range("G40").Value = i
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate
_:=True
Next i
assuming G40 is where you put the 1 and you want 20 pages.