ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Custom Footers (https://www.excelbanter.com/excel-programming/306267-custom-footers.html)

Charmaine

Custom Footers
 
Hey,

I need to have Printed By:________ 06Aug04 on the same
line in the RightFooter.

Sub Dates()
ActiveSheet.PageSetup.RightFooter = "Printed By:_______"
ActiveSheet.PageSetup.RightFooter = Format(Now, "dd mmm
yy")
End Sub

No matter how I have tried to break this up different ways
it will either give me the Printed By or the date but not
both.

Any and all help would be appreciated.

Thanks,
Charmaine

quartz[_2_]

Custom Footers
 
Charmaine,

Try:

ActiveSheet.PageSetup.RightFooter = "Printed By:_______" & " " & Format(Now,
"dd mmm yy")

NOTE: The above must all be written as one line of code in your module.

"Charmaine" wrote:

Hey,

I need to have Printed By:________ 06Aug04 on the same
line in the RightFooter.

Sub Dates()
ActiveSheet.PageSetup.RightFooter = "Printed By:_______"
ActiveSheet.PageSetup.RightFooter = End Sub

No matter how I have tried to break this up different ways
it will either give me the Printed By or the date but not
both.

Any and all help would be appreciated.

Thanks,
Charmaine


Charmaine[_2_]

Custom Footers
 
quartz,

Thank you for your help. The funny thing is that at one
point I did try putting in "and" but never thought of
using & instead.

Again thank you this was a big help!!!

Charmaine
-----Original Message-----
Charmaine,

Try:

ActiveSheet.PageSetup.RightFooter = "Printed By:_______"

& " " & Format(Now,
"dd mmm yy")

NOTE: The above must all be written as one line of code

in your module.

"Charmaine" wrote:

Hey,

I need to have Printed By:________ 06Aug04 on the same
line in the RightFooter.

Sub Dates()
ActiveSheet.PageSetup.RightFooter = "Printed By:_______"
ActiveSheet.PageSetup.RightFooter = End Sub

No matter how I have tried to break this up different

ways
it will either give me the Printed By or the date but

not
both.

Any and all help would be appreciated.

Thanks,
Charmaine

.


quartz[_2_]

Custom Footers
 
No problem Charmaine,

I've been there believe me, and these kinds of things that make you crazy.
Glad I could help.

"Charmaine" wrote:

quartz,

Thank you for your help. The funny thing is that at one
point I did try putting in "and" but never thought of
using & instead.

Again thank you this was a big help!!!

Charmaine
-----Original Message-----
Charmaine,

Try:

ActiveSheet.PageSetup.RightFooter = "Printed By:_______"

& " " & Format(Now,
"dd mmm yy")

NOTE: The above must all be written as one line of code

in your module.

"Charmaine" wrote:

Hey,

I need to have Printed By:________ 06Aug04 on the same
line in the RightFooter.

Sub Dates()
ActiveSheet.PageSetup.RightFooter = "Printed By:_______"
ActiveSheet.PageSetup.RightFooter = End Sub

No matter how I have tried to break this up different

ways
it will either give me the Printed By or the date but

not
both.

Any and all help would be appreciated.

Thanks,
Charmaine

.




All times are GMT +1. The time now is 01:16 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com