Print selected range without printing objects (buttons, etc)

[mikeymay]

Is there a way of printing a worksheet and not including any objects within the range on the print out?


Thanks

 

[gaj104]

Hi,

This should work as a VBA solution

Sub HideObjs()

Dim ws As Worksheet
Dim s As Shape

Set ws = ActiveSheet

For Each s In ws.Shapes

    s.Visible = msoFalse

Next s

ws.PrintOut

For Each s In ws.Shapes

    s.Visible = msoTrue

Next s

End Sub

Not sure if there's a page option to do this manually.

Hope it helps

 

[JackDanIce]

Marginally faster method:

Sub HideObjs()
Dim s as Shape
with ActiveSheet
  .Shapes.SelectAll
  Selection.Visible = False
  .PrintOut
End with
For Each s In ActiveSheet.Shapes
    s.Visible = True
Next s
End Sub

I'm curious if anyone knows how to avoid looping to make the shapes revisible