Copying Page SetUp

[Robin Clay]

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

 

[Don Guillett]

try this for the setups you want

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

 

[Robin Clay]

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 ?

 

[Don Guillett]

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.

 

[Tom Ogilvy]

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.

 

[keepitcool]

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 >

 

[keepitcool]

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]

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.