Select All shapes on printable layers

[knowbodynow]

Can someone please tell me how to do this? It seems I've forgotten how to code using CorelDraw VBA. Thanks.

[knowbodynow]

OK, this works if I activate each page:

Dim p As Page, l As Layer, sr As ShapeRange

For Each p In ActiveDocument.Pages


    ActiveDocument.ClearSelection
    ActiveDocument.Pages(p.Index).Activate


    For Each l In p.AllLayers
    If l.Printable = True And l.Visible = True Then
    ActiveDocument.Pages(p.Index).AllLayers(l.name).Shapes.all.AddToSelection
    End If
    Next l


    If ActiveSelection.Shapes.Count > 0 Then

    Set sr = ActiveSelection.DuplicateAsRange

    Set sr = ActiveSelectionRange

    MsgBox sr.Shapes.Count

    End If
   
Next p

But how to select objects without activating the page? Surely that's possible?