Hide/Unhide All, Printable all/Unprintable all macro

Hi,


I'm trying to write a macro that will set all layers visible or invisible and printable/unprintable on given page (or even all pages).
My tryings were failures so I'm asking You to help me.
Anyone knows how to write this?

Thanks in advice.