Copy PageSetup

[jstevens]

Is it possible to copy a worksheets' PageSetup to another workbook/sheet?

Something like:
Workbooks("One").Sheets("Sheet1").PageSetup.Copy _
Destination:=Workbooks("Two").Sheets("Sheet1").PasteSpecial Paste:=PageSetup

Thanks,
John

[HansV]

Within a workbook, you can apply page setup to multiple sheets, and this provides a way to copy page setup. But between workbooks, you'd have to store all page setup properties of the 'source' sheet in variables, then set the page setup properties of the 'target' sheet to those variables.

[jstevens]

Hans,

That is what I expected.

Thank you,
John

[jstevens]

Hans,

I'm encountering a challenge with the length of time it takes (using the page setup variables) to set the "target" sheet's page setup settings.

It's taking about 30-45 seconds to complete. I set the ScreenUpdating to False and Calculation to Manual but this does not help.

Any suggestions would be appreciated.

[HansV]

See McGimpsey & Associates : Excel : Bypassing Slow VBA PageSetup.

[jstevens]

Hans,

Thanks for the suggestion. It is a very interesting solution.

Regards,
John