Hi Saintsman

You can use cell values in your header if you want
Try this event in the thisworkbook module (untested)

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wkSht As Worksheet
For Each wkSht In ThisWorkbook.Worksheets
wkSht.PageSetup.RightFooter = _
Sheets("sheet1").Range("A1").Value & vbNewLine & _
Sheets("sheet1").Range("A2").Value & vbNewLine & _
Sheets("sheet1").Range("A3").Value
Next wkSht
End Sub



--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Saintsman" wrote in message ...
Being a bit dim after Xmas I'm afraid & cannot see how to do this

I want to allow the user to set header in a workbook - all will be the same
(apart from a front cover)
My plan was to have a worksheet where the user can enter the details, which
will vary, and these would then set the workbook headers

ie (on 3 rows in the header)
cell A1 = Project X
cell A2 = Revision 6
cell A3 = date

Anyone out there who can fix this for me please.

Thanks in anticipation

Sorry, use this

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wkSht As Worksheet
For Each wkSht In ThisWorkbook.Worksheets
wkSht.PageSetup.RightFooter = _
Sheets("sheet1").Range("A1").Value & Chr(10) & _
Sheets("sheet1").Range("A2").Value & Chr(10) & _
Sheets("sheet1").Range("A3").Value
Next wkSht
End Sub


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Saintsman" wrote in message ...
Stupendously quick reply - thanks!
Minor problem - it gives blank rows between each row - any thoughts?

Saintsman

"Ron de Bruin" wrote:

Hi Saintsman

You can use cell values in your header if you want
Try this event in the thisworkbook module (untested)

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wkSht As Worksheet
For Each wkSht In ThisWorkbook.Worksheets
wkSht.PageSetup.RightFooter = _
Sheets("sheet1").Range("A1").Value & vbNewLine & _
Sheets("sheet1").Range("A2").Value & vbNewLine & _
Sheets("sheet1").Range("A3").Value
Next wkSht
End Sub



--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Saintsman" wrote in message ...
Being a bit dim after Xmas I'm afraid & cannot see how to do this

I want to allow the user to set header in a workbook - all will be the same
(apart from a front cover)
My plan was to have a worksheet where the user can enter the details, which
will vary, and these would then set the workbook headers

ie (on 3 rows in the header)
cell A1 = Project X
cell A2 = Revision 6
cell A3 = date

Anyone out there who can fix this for me please.

Thanks in anticipation

Can't reproduce this

Which Excel version do you use ?

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Saintsman" wrote in message ...
Ron
Something strange occurring!
I cannot select multiple sheets - every time I select more than 1 sheet to
print it defaults to the 'active sheet' only. Never experienced this before
so i assume it is something to do with the code - this is the only code I
have in the spreadsheet

Any ideas?

Regards
Saintsman

"Ron de Bruin" wrote:

Sorry, use this

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wkSht As Worksheet
For Each wkSht In ThisWorkbook.Worksheets
wkSht.PageSetup.RightFooter = _
Sheets("sheet1").Range("A1").Value & Chr(10) & _
Sheets("sheet1").Range("A2").Value & Chr(10) & _
Sheets("sheet1").Range("A3").Value
Next wkSht
End Sub


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Saintsman" wrote in message ...
Stupendously quick reply - thanks!
Minor problem - it gives blank rows between each row - any thoughts?

Saintsman

"Ron de Bruin" wrote:

Hi Saintsman

You can use cell values in your header if you want
Try this event in the thisworkbook module (untested)

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wkSht As Worksheet
For Each wkSht In ThisWorkbook.Worksheets
wkSht.PageSetup.RightFooter = _
Sheets("sheet1").Range("A1").Value & vbNewLine & _
Sheets("sheet1").Range("A2").Value & vbNewLine & _
Sheets("sheet1").Range("A3").Value
Next wkSht
End Sub



--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Saintsman" wrote in message ...
Being a bit dim after Xmas I'm afraid & cannot see how to do this

I want to allow the user to set header in a workbook - all will be the same
(apart from a front cover)
My plan was to have a worksheet where the user can enter the details, which
will vary, and these would then set the workbook headers

ie (on 3 rows in the header)
cell A1 = Project X
cell A2 = Revision 6
cell A3 = date

Anyone out there who can fix this for me please.

Thanks in anticipation

Ron
Excel 2003
Experimented last night on different pc = same result
If I remove the code the print all sheets works
Odd?

"Ron de Bruin" wrote:

Can't reproduce this

Which Excel version do you use ?

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Saintsman" wrote in message ...
Ron
Something strange occurring!
I cannot select multiple sheets - every time I select more than 1 sheet to
print it defaults to the 'active sheet' only. Never experienced this before
so i assume it is something to do with the code - this is the only code I
have in the spreadsheet

Any ideas?

Regards
Saintsman

"Ron de Bruin" wrote:

Sorry, use this

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wkSht As Worksheet
For Each wkSht In ThisWorkbook.Worksheets
wkSht.PageSetup.RightFooter = _
Sheets("sheet1").Range("A1").Value & Chr(10) & _
Sheets("sheet1").Range("A2").Value & Chr(10) & _
Sheets("sheet1").Range("A3").Value
Next wkSht
End Sub


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Saintsman" wrote in message ...
Stupendously quick reply - thanks!
Minor problem - it gives blank rows between each row - any thoughts?

Saintsman

"Ron de Bruin" wrote:

Hi Saintsman

You can use cell values in your header if you want
Try this event in the thisworkbook module (untested)

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wkSht As Worksheet
For Each wkSht In ThisWorkbook.Worksheets
wkSht.PageSetup.RightFooter = _
Sheets("sheet1").Range("A1").Value & vbNewLine & _
Sheets("sheet1").Range("A2").Value & vbNewLine & _
Sheets("sheet1").Range("A3").Value
Next wkSht
End Sub



--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Saintsman" wrote in message ...
Being a bit dim after Xmas I'm afraid & cannot see how to do this

I want to allow the user to set header in a workbook - all will be the same
(apart from a front cover)
My plan was to have a worksheet where the user can enter the details, which
will vary, and these would then set the workbook headers

ie (on 3 rows in the header)
cell A1 = Project X
cell A2 = Revision 6
cell A3 = date

Anyone out there who can fix this for me please.

Thanks in anticipation

Hi Saintsman

Test it in 2003 without a problem

Send me the test file private and I test it on my system



--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Saintsman" wrote in message ...
Ron
Excel 2003
Experimented last night on different pc = same result
If I remove the code the print all sheets works
Odd?

"Ron de Bruin" wrote:

Can't reproduce this

Which Excel version do you use ?

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Saintsman" wrote in message ...
Ron
Something strange occurring!
I cannot select multiple sheets - every time I select more than 1 sheet to
print it defaults to the 'active sheet' only. Never experienced this before
so i assume it is something to do with the code - this is the only code I
have in the spreadsheet

Any ideas?

Regards
Saintsman

"Ron de Bruin" wrote:

Sorry, use this

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wkSht As Worksheet
For Each wkSht In ThisWorkbook.Worksheets
wkSht.PageSetup.RightFooter = _
Sheets("sheet1").Range("A1").Value & Chr(10) & _
Sheets("sheet1").Range("A2").Value & Chr(10) & _
Sheets("sheet1").Range("A3").Value
Next wkSht
End Sub


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Saintsman" wrote in message ...
Stupendously quick reply - thanks!
Minor problem - it gives blank rows between each row - any thoughts?

Saintsman

"Ron de Bruin" wrote:

Hi Saintsman

You can use cell values in your header if you want
Try this event in the thisworkbook module (untested)

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wkSht As Worksheet
For Each wkSht In ThisWorkbook.Worksheets
wkSht.PageSetup.RightFooter = _
Sheets("sheet1").Range("A1").Value & vbNewLine & _
Sheets("sheet1").Range("A2").Value & vbNewLine & _
Sheets("sheet1").Range("A3").Value
Next wkSht
End Sub



--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Saintsman" wrote in message
...
Being a bit dim after Xmas I'm afraid & cannot see how to do this

I want to allow the user to set header in a workbook - all will be the same
(apart from a front cover)
My plan was to have a worksheet where the user can enter the details, which
will vary, and these would then set the workbook headers

ie (on 3 rows in the header)
cell A1 = Project X
cell A2 = Revision 6
cell A3 = date

Anyone out there who can fix this for me please.

Thanks in anticipation

You are welcome

Thanks for the feedback


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Saintsman" wrote in message ...
Ron
Managed to fix it (looks like the spreadsheet was corrupt somwhere) I
recreated it & everything is fine
Thanks very much for your help!

David

"Ron de Bruin" wrote:

Hi Saintsman

Test it in 2003 without a problem

Send me the test file private and I test it on my system



--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Saintsman" wrote in message ...
Ron
Excel 2003
Experimented last night on different pc = same result
If I remove the code the print all sheets works
Odd?

"Ron de Bruin" wrote:

Can't reproduce this

Which Excel version do you use ?

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Saintsman" wrote in message ...
Ron
Something strange occurring!
I cannot select multiple sheets - every time I select more than 1 sheet to
print it defaults to the 'active sheet' only. Never experienced this before
so i assume it is something to do with the code - this is the only code I
have in the spreadsheet

Any ideas?

Regards
Saintsman

"Ron de Bruin" wrote:

Sorry, use this

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wkSht As Worksheet
For Each wkSht In ThisWorkbook.Worksheets
wkSht.PageSetup.RightFooter = _
Sheets("sheet1").Range("A1").Value & Chr(10) & _
Sheets("sheet1").Range("A2").Value & Chr(10) & _
Sheets("sheet1").Range("A3").Value
Next wkSht
End Sub


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Saintsman" wrote in message
...
Stupendously quick reply - thanks!
Minor problem - it gives blank rows between each row - any thoughts?

Saintsman

"Ron de Bruin" wrote:

Hi Saintsman

You can use cell values in your header if you want
Try this event in the thisworkbook module (untested)

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wkSht As Worksheet
For Each wkSht In ThisWorkbook.Worksheets
wkSht.PageSetup.RightFooter = _
Sheets("sheet1").Range("A1").Value & vbNewLine & _
Sheets("sheet1").Range("A2").Value & vbNewLine & _
Sheets("sheet1").Range("A3").Value
Next wkSht
End Sub



--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Saintsman" wrote in message
...
Being a bit dim after Xmas I'm afraid & cannot see how to do this

I want to allow the user to set header in a workbook - all will be the same
(apart from a front cover)
My plan was to have a worksheet where the user can enter the details, which
will vary, and these would then set the workbook headers

ie (on 3 rows in the header)
cell A1 = Project X
cell A2 = Revision 6
cell A3 = date

Anyone out there who can fix this for me please.

Thanks in anticipation

Hi Saintsman

I see the problem also.
I test more this weekend and send a bug report

Thanks


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Saintsman" wrote in message ...
Ron
Back again!
Found the problem
There is an issue when you use the 'rows to repeat at the top'

I set this up on one worksheet, select multiple sheets (2 is enough) & print
preview

1 - if I include the sheet with rows to repeat active it works
2 - select 2 other sheets & it doesn't work

Hope this makes sense

David

"Ron de Bruin" wrote:

You are welcome

Thanks for the feedback


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Saintsman" wrote in message ...
Ron
Managed to fix it (looks like the spreadsheet was corrupt somwhere) I
recreated it & everything is fine
Thanks very much for your help!

David

"Ron de Bruin" wrote:

Hi Saintsman

Test it in 2003 without a problem

Send me the test file private and I test it on my system



--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Saintsman" wrote in message ...
Ron
Excel 2003
Experimented last night on different pc = same result
If I remove the code the print all sheets works
Odd?

"Ron de Bruin" wrote:

Can't reproduce this

Which Excel version do you use ?

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Saintsman" wrote in message
...
Ron
Something strange occurring!
I cannot select multiple sheets - every time I select more than 1 sheet to
print it defaults to the 'active sheet' only. Never experienced this before
so i assume it is something to do with the code - this is the only code I
have in the spreadsheet

Any ideas?

Regards
Saintsman

"Ron de Bruin" wrote:

Sorry, use this

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wkSht As Worksheet
For Each wkSht In ThisWorkbook.Worksheets
wkSht.PageSetup.RightFooter = _
Sheets("sheet1").Range("A1").Value & Chr(10) & _
Sheets("sheet1").Range("A2").Value & Chr(10) & _
Sheets("sheet1").Range("A3").Value
Next wkSht
End Sub


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Saintsman" wrote in message
...
Stupendously quick reply - thanks!
Minor problem - it gives blank rows between each row - any thoughts?

Saintsman

"Ron de Bruin" wrote:

Hi Saintsman

You can use cell values in your header if you want
Try this event in the thisworkbook module (untested)

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wkSht As Worksheet
For Each wkSht In ThisWorkbook.Worksheets
wkSht.PageSetup.RightFooter = _
Sheets("sheet1").Range("A1").Value & vbNewLine & _
Sheets("sheet1").Range("A2").Value & vbNewLine & _
Sheets("sheet1").Range("A3").Value
Next wkSht
End Sub



--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Saintsman" wrote in message
...
Being a bit dim after Xmas I'm afraid & cannot see how to do this

I want to allow the user to set header in a workbook - all will be the same
(apart from a front cover)
My plan was to have a worksheet where the user can enter the details, which
will vary, and these would then set the workbook headers

ie (on 3 rows in the header)
cell A1 = Project X
cell A2 = Revision 6
cell A3 = date

Anyone out there who can fix this for me please.

Thanks in anticipation