Printer Set Up in VBA
 

Hi

I am rather new to this so any advice is greatly appreciated.

I am trying to set up a macro which creates a sheet for the user based
on their input. My main stumbling block is entering the required text
as a header in the print-page set up.

I would like to be able to take a string of text from a cell reference
and use it ( or part of it) as a title for the document.

I have been working on this for without success for sometime now.

Thanks in advance
Mike :confused:


---
Message posted from http://www.ExcelForum.com/

Printer Set Up in VBA
 

Hi PostalVote

Try this

It will add a sheet to your workbook
And use cell A1 if the activesheet in the footer (or header)

Sub test()
Dim Aws As Worksheet
Dim Nws As Worksheet

Set Aws = ActiveSheet
Set Nws = Worksheets.Add

With Nws
.PageSetup.LeftFooter = Aws.Range("a1").Value
End With
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl


"PostalVote " wrote in message ...
Hi

I am rather new to this so any advice is greatly appreciated.

I am trying to set up a macro which creates a sheet for the user based
on their input. My main stumbling block is entering the required text
as a header in the print-page set up.

I would like to be able to take a string of text from a cell reference
and use it ( or part of it) as a title for the document.

I have been working on this for without success for sometime now.

Thanks in advance
Mike :confused:


---
Message posted from http://www.ExcelForum.com/

Printer Set Up in VBA
 

Try this, it takes all of name from cell reference C5 and puts it t
centerheader.



Sub Macro1()

Dim TitleOfDocument As String

'set variable titleofdocument to be value of cell C5
TitleOfDocument = Cells(5, 3).Value
'
With ActiveSheet.PageSetup
.CenterHeader = TitleOfDocument
End With
End Su

--
Message posted from http://www.ExcelForum.com

Printer Set Up in VBA
 

Worked an absolute treat, exactly what I was looking for.

Many thanks
Mik

--
Message posted from http://www.ExcelForum.com