From Ron deBruin's site on Print Tips

Sub Test()
Dim TotPages As Long
TotPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
With ActiveSheet.PageSetup
.RightHeader = "Your Header info"
ActiveSheet.PrintOut From:=1, To:=1
.RightHeader = ""
ActiveSheet.PrintOut From:=2, To:=TotPages
End With
End Sub

For more tips on headers/footers see Ron's pages at

http://www.rondebruin.nl/print.htm


Gord Dibben MS Excel MVP

On Wed, 23 Aug 2006 12:51:01 -0700, Medical Records <Medical
wrote:

How do I keep the header from printing on every page but the first?