Sub Some_Titles()
Dim TotPages As Long
TotPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$1"
ActiveSheet.PrintOut From:=1, To:=2
.PrintTitleRows = ""
ActiveSheet.PrintOut From:=3, To:=TotPages
End With
End Sub

Thanks to Ron de Bruin for the nuts and bolts.


Gord Dibben MS Excel MVP

On Thu, 25 Sep 2008 11:13:11 -0700, peterb
wrote:

Yes, when I print.