Copying Page SetUp
 

Greetings !

How do I copy the Page SetUp from one Worksheet to
another ?

I do NOT want to copy it to all sheets.

I'm sure it's a very simple thing, something like

Worksheets(7).PageSetUp = Worksheets(1).PageSetUp
RunTime Error 438:
Object doesn't support this property or method

I also want to copy the Header & Footer -
would they be included?

RClay AT haswell DOT com

Copying Page SetUp
 

try this for the setups you want

Sub copysetup()
With ActiveSheet.PageSetup
..Orientation = Sheets("sheet7").PageSetup.Orientation
End With
End Sub


"Robin Clay" wrote in message
...
Greetings !

How do I copy the Page SetUp from one Worksheet to
another ?

I do NOT want to copy it to all sheets.

I'm sure it's a very simple thing, something like

Worksheets(7).PageSetUp = Worksheets(1).PageSetUp
RunTime Error 438:
Object doesn't support this property or method

I also want to copy the Header & Footer -
would they be included?

RClay AT haswell DOT com

Copying Page SetUp
 

Erm... Thanks, but... it didn't like the double dots, so I
deleted one of them.

And it didn't copy the entire layout - the orientation
remains the same - they were both landscape, anyway.

Is there a "blanket" command that will copy everything, or
do I really have to copy every single individual item in
turn ?


-----Original Message-----
try this for the setups you want

Sub copysetup()
With ActiveSheet.PageSetup
..Orientation = Sheets("sheet7").PageSetup.Orientation
End With
End Sub


"Robin Clay" wrote
in message
...
Greetings !

How do I copy the Page SetUp from one Worksheet to
another ?

I do NOT want to copy it to all sheets.

I'm sure it's a very simple thing, something like

Worksheets(7).PageSetUp = Worksheets(1).PageSetUp
RunTime Error 438:
Object doesn't support this property or method

I also want to copy the Header & Footer -
would they be included?

RClay AT haswell DOT com


.

Copying Page SetUp
 

First, I did NOT send with double dots. Don't know why that happens.

AFAIK you must do this for each part of the page setup that you want to
copy.
Suggest you only use the setup changes needed.
The landscape I gave was an EXAMPLE of how to do it.


"Robin Clay" wrote in message
...

Erm... Thanks, but... it didn't like the double dots, so I
deleted one of them.

And it didn't copy the entire layout - the orientation
remains the same - they were both landscape, anyway.

Is there a "blanket" command that will copy everything, or
do I really have to copy every single individual item in
turn ?


-----Original Message-----
try this for the setups you want

Sub copysetup()
With ActiveSheet.PageSetup
..Orientation = Sheets("sheet7").PageSetup.Orientation
End With
End Sub


"Robin Clay" wrote
in message
...
Greetings !

How do I copy the Page SetUp from one Worksheet to
another ?

I do NOT want to copy it to all sheets.

I'm sure it's a very simple thing, something like

Worksheets(7).PageSetUp = Worksheets(1).PageSetUp
RunTime Error 438:
Object doesn't support this property or method

I also want to copy the Header & Footer -
would they be included?

RClay AT haswell DOT com


.

Copying Page SetUp
 

Yes, you have to copy each setting (unless you copy the sheet itself).

Don didn't put in double dots. Some mail software puts in a dot if there is
a dot on the left margin. Otherwise the single dot is interpreted as a
formatting command.

--
Regards,
Tom Ogilvy

"Robin Clay" wrote in message
...

Erm... Thanks, but... it didn't like the double dots, so I
deleted one of them.

And it didn't copy the entire layout - the orientation
remains the same - they were both landscape, anyway.

Is there a "blanket" command that will copy everything, or
do I really have to copy every single individual item in
turn ?


-----Original Message-----
try this for the setups you want

Sub copysetup()
With ActiveSheet.PageSetup
..Orientation = Sheets("sheet7").PageSetup.Orientation
End With
End Sub


"Robin Clay" wrote
in message
...
Greetings !

How do I copy the Page SetUp from one Worksheet to
another ?

I do NOT want to copy it to all sheets.

I'm sure it's a very simple thing, something like

Worksheets(7).PageSetUp = Worksheets(1).PageSetUp
RunTime Error 438:
Object doesn't support this property or method

I also want to copy the Header & Footer -
would they be included?

RClay AT haswell DOT com


.

Copying Page SetUp
 

This is replicating the fastest manual way...

sheets(array("sheet2","sheet3","sheet4")).select
sheets("sheet3").activate
SendKeys "{enter}"
Application.Dialogs(xlDialogPageSetup).Show



keepITcool

< email : keepitcool chello nl (with @ and .)
< homepage: http://members.chello.nl/keepitcool


"Robin Clay" wrote:


Erm... Thanks, but... it didn't like the double dots, so I
deleted one of them.

And it didn't copy the entire layout - the orientation
remains the same - they were both landscape, anyway.

Is there a "blanket" command that will copy everything, or
do I really have to copy every single individual item in
turn ?


-----Original Message-----
try this for the setups you want

Sub copysetup()
With ActiveSheet.PageSetup
..Orientation = Sheets("sheet7").PageSetup.Orientation
End With
End Sub


"Robin Clay" wrote
in message
...
Greetings !

How do I copy the Page SetUp from one Worksheet to
another ?

I do NOT want to copy it to all sheets.

I'm sure it's a very simple thing, something like

Worksheets(7).PageSetUp = Worksheets(1).PageSetUp
RunTime Error 438:
Object doesn't support this property or method

I also want to copy the Header & Footer -
would they be included?

RClay AT haswell DOT com


.

Copying Page SetUp
 

tom..

can i disagree? see my post in same thread.


keepITcool

< email : keepitcool chello nl (with @ and .)
< homepage: http://members.chello.nl/keepitcool


"Tom Ogilvy" wrote:

Yes, you have to copy each setting (unless you copy the sheet itself).

Don didn't put in double dots. Some mail software puts in a dot if
there is a dot on the left margin. Otherwise the single dot is
interpreted as a formatting command.

Copying Page SetUp
 

It is a good suggestion and I am familiar with doing it manually - however,
not perfect.

Print title rows and print title columns and printarea were not transferred.
Most attributes were.

--
Regards,
Tom Ogilvy

"keepitcool" wrote in message
...
tom..

can i disagree? see my post in same thread.


keepITcool

< email : keepitcool chello nl (with @ and .)
< homepage: http://members.chello.nl/keepitcool


"Tom Ogilvy" wrote:

Yes, you have to copy each setting (unless you copy the sheet itself).

Don didn't put in double dots. Some mail software puts in a dot if
there is a dot on the left margin. Otherwise the single dot is
interpreted as a formatting command.