Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel,microsoft.public.excel.misc,microsoft.public.excel.printing,microsoft.public.excel.programming
external usenet poster
 
Posts: 204
Default Can I put something in the footer that reads from the sheet

Hello, I want the footer in my print-out to pull some information from my
workbook (ideally from a different sheet)

Is this possible?

Thanks

M

  #2   Report Post  
Posted to microsoft.public.excel.misc,microsoft.public.excel.printing,microsoft.public.excel.programming,microsoft.public.excel
external usenet poster
 
Posts: 8,520
Default Can I put something in the footer that reads from the sheet

Hi Michelle

You will have to make use of the workbook event...

Set the security level to low/medium in (Tools|Macro|Security). From
workbook press Alt+F11 to launch VBE (Visual Basic Editor). From the left
treeview search for the workbook name and click on + to expand it. Within
that you should see the following

VBAProject(Your_Filename)
Microsoft Excel Objects
Sheet1(Sheet1)
Sheet2(Sheet2)
Sheet3(Sheet3)
This Workbook

Double click 'This WorkBook' and paste the below code to the right code pane.

'Edit sheetname
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftFooter = Sheets("Sheetname").Range("A1").Value
End Sub


--
Jacob (MVP - Excel)


"Michelle" wrote:

Hello, I want the footer in my print-out to pull some information from my
workbook (ideally from a different sheet)

Is this possible?

Thanks

M

  #3   Report Post  
Posted to microsoft.public.excel.misc,microsoft.public.excel.printing,microsoft.public.excel.programming,microsoft.public.excel
external usenet poster
 
Posts: 204
Default Can I put something in the footer that reads from the sheet

With hindsight, I realise I shouldn't have posted to the VBA group.

What I really want is a field that I can put into the footer that will just
read from a cell.

something like: &[=sheet1!A1]

is there any such thing?

Cheers

M


"Jacob Skaria" wrote in message
...
Hi Michelle

You will have to make use of the workbook event...

Set the security level to low/medium in (Tools|Macro|Security). From
workbook press Alt+F11 to launch VBE (Visual Basic Editor). From the left
treeview search for the workbook name and click on + to expand it. Within
that you should see the following

VBAProject(Your_Filename)
Microsoft Excel Objects
Sheet1(Sheet1)
Sheet2(Sheet2)
Sheet3(Sheet3)
This Workbook

Double click 'This WorkBook' and paste the below code to the right code
pane.

'Edit sheetname
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftFooter =
Sheets("Sheetname").Range("A1").Value
End Sub


--
Jacob (MVP - Excel)


"Michelle" wrote:

Hello, I want the footer in my print-out to pull some information from my
workbook (ideally from a different sheet)

Is this possible?

Thanks

M


  #4   Report Post  
Posted to microsoft.public.excel.misc,microsoft.public.excel.printing,microsoft.public.excel.programming,microsoft.public.excel
external usenet poster
 
Posts: 8,520
Default Can I put something in the footer that reads from the sheet

Sorry.. not possible other than a VBA solution.

--
Jacob (MVP - Excel)


"Michelle" wrote:

With hindsight, I realise I shouldn't have posted to the VBA group.

What I really want is a field that I can put into the footer that will just
read from a cell.

something like: &[=sheet1!A1]

is there any such thing?

Cheers

M


"Jacob Skaria" wrote in message
...
Hi Michelle

You will have to make use of the workbook event...

Set the security level to low/medium in (Tools|Macro|Security). From
workbook press Alt+F11 to launch VBE (Visual Basic Editor). From the left
treeview search for the workbook name and click on + to expand it. Within
that you should see the following

VBAProject(Your_Filename)
Microsoft Excel Objects
Sheet1(Sheet1)
Sheet2(Sheet2)
Sheet3(Sheet3)
This Workbook

Double click 'This WorkBook' and paste the below code to the right code
pane.

'Edit sheetname
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftFooter =
Sheets("Sheetname").Range("A1").Value
End Sub


--
Jacob (MVP - Excel)


"Michelle" wrote:

Hello, I want the footer in my print-out to pull some information from my
workbook (ideally from a different sheet)

Is this possible?

Thanks

M


  #5   Report Post  
Posted to microsoft.public.excel.misc,microsoft.public.excel.printing,microsoft.public.excel.programming,microsoft.public.excel
external usenet poster
 
Posts: 204
Default Can I put something in the footer that reads from the sheet

Thanks Jacob.

M


"Jacob Skaria" wrote in message
...
Sorry.. not possible other than a VBA solution.

--
Jacob (MVP - Excel)


"Michelle" wrote:

With hindsight, I realise I shouldn't have posted to the VBA group.

What I really want is a field that I can put into the footer that will
just
read from a cell.

something like: &[=sheet1!A1]

is there any such thing?

Cheers

M


"Jacob Skaria" wrote in message
...
Hi Michelle

You will have to make use of the workbook event...

Set the security level to low/medium in (Tools|Macro|Security). From
workbook press Alt+F11 to launch VBE (Visual Basic Editor). From the
left
treeview search for the workbook name and click on + to expand it.
Within
that you should see the following

VBAProject(Your_Filename)
Microsoft Excel Objects
Sheet1(Sheet1)
Sheet2(Sheet2)
Sheet3(Sheet3)
This Workbook

Double click 'This WorkBook' and paste the below code to the right code
pane.

'Edit sheetname
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftFooter =
Sheets("Sheetname").Range("A1").Value
End Sub


--
Jacob (MVP - Excel)


"Michelle" wrote:

Hello, I want the footer in my print-out to pull some information from
my
workbook (ideally from a different sheet)

Is this possible?

Thanks

M



Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
set default header, footer, fonts for new sheet Hardik Shah Excel Discussion (Misc queries) 3 December 31st 08 02:08 PM
add footer to spread sheet ironman Excel Discussion (Misc queries) 2 July 18th 07 06:14 PM
can I format a workbook so that every sheet has the same footer brklively Excel Worksheet Functions 2 July 13th 06 11:43 PM
Excel Sheet Footer Amit Excel Discussion (Misc queries) 1 January 3rd 06 12:54 PM
Footer Settings in an Excel Sheet Dave Peterson Excel Discussion (Misc queries) 0 January 24th 05 10:58 PM


All times are GMT +1. The time now is 05:07 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"