How do I make a Header stop printing on page 1 only?

J

Jim Rech

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
| Try this CB
|
| http://www.rondebruin.nl/print.htm#Header
|
|
| --
| Regards Ron de Bruin
| http://www.rondebruin.nl
|
|
| >
|
|
 
R

Ron de Bruin

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
 
J

Jim Rech

But it is easy to change

Ahh, I see.

--
Jim
| 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
|
|
| > 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
| > | > | Try this CB
| > |
| > | http://www.rondebruin.nl/print.htm#Header
| > |
| > |
| > | --
| > | Regards Ron de Bruin
| > | http://www.rondebruin.nl
| > |
| > |
| > | > | >
| > |
| > |
| >
| >
|
|
 
Top