RESIZE ALL OBJECTS TO PRINTABLE AREA

Hello,

I ask macro to:

1. Select all objects on active page 

2. Resize all selected objects to printable area

Greetings!