On Mon, 1 Aug 2005 11:29:20 -0400, "Paul B"
wrote:

Peter, here is one way by Ron de Bruin

Sub print_header()

'will print header on 1st page only

'By: Ron de Bruin

Totpage = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")

With ActiveSheet.PageSetup

.LeftHeader = "test"

.CenterFooter = ActiveSheet.Range("A1")

.CenterHeader = "&8Page &8&P & of &N"

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1

.LeftHeader = ""

.CenterHeader = ""

ActiveWindow.SelectedSheets.PrintOut From:=2, To:=Totpage

End With

End Sub


Many thanks Paul
--
Cheers

Peter

Please remove the invalid to reply