How do I write a macro to print screen for the area on view?

[sputnik17]

Hello there,

I've a very large spreadsheet with a large diagram and a lot of data. Is there a way to write a macro that selects the printing area as viewed on the computer screen?

Many thanks

 

[Andrew Poulsom]

Do you mean?

ActiveSheet.PageSetup.PrintArea = ActiveWindow.VisibleRange.Address

 

[sputnik17]

Worked perfectly - thanks!