Print only current page! Not all 47 pages when print button is pressed?

Hello Everyone,

I have made a sheet that has been divided up into 47 pages. Each page has a macro on a button that when the button is pressed will only print the current page. The problem is that the users are not using the button with the macro on it but the tool bar print button that by default prints every page (47 in total!). They only ever need to print the current page and never all pages! Is there any way that the print button on the tool bar can be configured to only print the current page in view when it is clicked on? Perhaps some code that will be activated when the print icon is pressed?

Thank you very much for any help

Margate

Can you show the code for your 1st and 47th print macros?

Hello AlphaFrog,

The code is below:
There are actually only 22 print areas. I had to do it this way because the in between pages have no information!
Thank you for your help.



Sub PrintPageOne()
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
End Sub



Sub PrintPageTwentyTwo()
ActiveWindow.SelectedSheets.PrintOut From:=43, To:=43, Copies:=1, Collate _
:=True
End Sub

If you put this in the ThisWorkbook code module, it will show a message when the worksheet is printed and cancel the print.

Please Login or Register  to view this content.

Then change your print macros like this so they don't trigger the message.

Please Login or Register  to view this content.

Hello Alpha Frog,

Thank you very much (again) it worked exactly how I wanted it to