Hi Jim

Yes i know

But it is easy to change if people do not want to print the last one for example
That's why I keep it in the code

To:=TotPages -1



--
Regards Ron de Bruin
http://www.rondebruin.nl


"Jim Rech" wrote in message ...
Ron-

Looking at your helpful code I wondered whether you have to specify the "To"
parameter. It doesn't look like it, as least this prints page 2 and
everything beyond it in Excel 2003 for me:

Sub Test()
With ActiveSheet.PageSetup
.RightHeader = "Your Header info"
ActiveSheet.PrintOut From:=1, To:=1
.RightHeader = ""
ActiveSheet.PrintOut From:=2
End With
End Sub


--
Jim
"Ron de Bruin" wrote in message
...
| Try this CB
|
| http://www.rondebruin.nl/print.htm#Header
|
|
| --
| Regards Ron de Bruin
| http://www.rondebruin.nl
|
|
| "CB" wrote in message
...
|
|
|