Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 36
Default Make text in a cell appear in a footer

Is there a way to make text that appears in a cell to appear in the
footer? If so, for example, how would I make A1 appear in the
footer? Thanking you in advance.

Michael
  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 2,494
Default Make text in a cell appear in a footer

adapt this to what you need, just watch for word-wrap.


Sub Print_sheet()
Dim ws As Worksheet
Dim rng As Range
Dim lastrow As Long
Set ws = Worksheets("sheet1")
lastrow = ws.Cells(Rows.Count, "I").End(xlUp).Row
Application.ScreenUpdating = False
Set rng = ws.Range("D1:R" & lastrow)

With ws
With .PageSetup
.Orientation = xlLandscape
.FooterMargin = Application.InchesToPoints(0.25)
.RightMargin = Application.InchesToPoints(0.4)
.LeftMargin = Application.InchesToPoints(0.4)
.TopMargin = Application.InchesToPoints(0.5)
.BottomMargin = Application.InchesToPoints(0.45)
.PrintArea = rng.Address
.HeaderMargin = Application.InchesToPoints(0.25)
.RightFooter = ".Range("A1")
.FitToPagesWide = 1
.CenterHorizontally = True
End With
.PrintPreview
End With
Application.ScreenUpdating = True
End Sub


--


Gary


wrote in message
...
Is there a way to make text that appears in a cell to appear in the
footer? If so, for example, how would I make A1 appear in the
footer? Thanking you in advance.

Michael



  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 2,836
Default Make text in a cell appear in a footer

I think you need to use code:
Sub Begin()
ActiveSheet.PageSetup.LeftHeader = _
Format(Worksheets("Sheet1").Range("B5").Value)
End Sub

From he
http://www.cpearson.com/excel/headfoot.htm

BTW, that is a great resource. If you really want to learn Excel, you
shoudl try to get acquainted with the cpearson stuff!!

Regards,
Ryan--

--
RyGuy


" wrote:

Is there a way to make text that appears in a cell to appear in the
footer? If so, for example, how would I make A1 appear in the
footer? Thanking you in advance.

Michael

  #4   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 36
Default Make text in a cell appear in a footer

Thanks guys for your help.

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
How to have a cell auto resize the font to make text fit in cell? tanner08 Excel Worksheet Functions 2 April 4th 23 02:24 PM
how do i make a footer on second page only? Betty Excel Worksheet Functions 2 September 1st 09 11:01 PM
Macro to print text from a cell in the page footer claude jerry Excel Discussion (Misc queries) 1 August 26th 09 10:56 AM
make footer longer Lyndsie Excel Discussion (Misc queries) 4 July 27th 07 12:00 PM
Make the default always with a Footer hsjj Excel Discussion (Misc queries) 2 January 28th 05 01:41 AM


All times are GMT +1. The time now is 08:03 PM.

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"