Hide/Unhide All, Printable all/Unprintable all macro

I wan't to hide/unprint muliple layers at once not objects.
In CorelDraw you have to click on every single icon next to layer name. It's very time consuming wehn there's a lot of diferent layers and pages.

michalo have you tried " Select All ".

George

try these. Works for X7, not sure about X4. One to hide all layers except the active one. One to Unhide all.

Sub HideOtherLayers()
For Each lay In ActivePage.Layers
If lay.Name = ActiveLayer.Name Then
lay.Visible = True
Else
lay.Visible = False
End If
Next lay

End Sub
Sub UnHideLayers()
For Each lay In ActivePage.Layers
If lay.Name = ActiveLayer.Name Then
lay.Visible = True
Else
lay.Visible = True
End If
Next lay
End Sub

It's perfect! Thakn you very much!