Print current page only from toolbar?

[Margate]

I have made a sheet that has been divided up into 40 pages using page breaks. On this sheet there are 40 different buttons that have macros attached to them that will print a certain page depending on what button is pressed. This works great until the user presses the print icon along the tool bar and 40 pages print out!

Is there anything that I can do to either disable this icon or preferably only print the current page when it is pressed?

Thank you very much for any help, I have no idea how to resolve this!

 

[Michael M]

To disable to PRINT icon in the toolbar, put this code in a workbook_open module

Application.CommandBars.FindControl(ID:=2521).Enabled = False

You will also need to to reinstate it when you close the workbook, use

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.CommandBars.FindControl(ID:=2521).Enabled = True
End Sub

 

[Margate]

Hello Michael,

I put the following into a Module:

Private Sub Workbook_Open()
Application.CommandBars.FindControl(ID:=2521).Enabled = False
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars.FindControl(ID:=2521).Enabled = True
End Sub


I then came out of the workbook, saved, re-opened and pressed the print icon but it printed 40 pages.
Do you have any idea what I have done wrong? I am not very good with Macros and just about know where to find a Module (Alt+F11)....!

Thank you very much for your help....

Margate.

 

[Michael M]

What version are you using ??

 

[Margate]

Hello Michael,
I am using Excel 2003

Thank you for your help

 

[Michael M]

Ok, both codes will work for 2003, but make sure you put them in "this Workbook" module

 

[Margate]

Hello Michael,

That worked perfectly. Thank you very much for your help

 

[Michael M]

pleasure...