This can be done in with one line of code instead of two.
Two lines, may be more informative?
'--
Sub GetIDnumber()
Dim lngID As Long
With Application.CommandBars("Standard")
lngID = .Controls(5).ID 'On my machine in xl2003
.FindControl(ID:=lngID).Enabled = False
End With
End Sub
--
Jim Cone
Portland, Oregon USA
Add-in Review: http://www.contextures.com/excel-sort-addin.html





"mooresk257"
wrote in message
Hi Folks,
I have a workbook where I want users to be able to print only from the print
controls I have on the worksheets. I have disabled all the print controls
using:
Private Sub Workbook_Activate()
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:=4) 'print
Ctrl.Enabled = False
Next Ctrl
End Sub

However, the print button on the standard toolbar is still active. How do I
disable this too?
Thanks,
Scott