Create a button to print a sheet

Hi


Here is a small piece of code that hopefully will help

Sub Print_roster()

Dim a As Integer, lastrow As Integer
Application.ScreenUpdating = False

For a = 1 To 3
Sheets(a).Select
Let lastrow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Range(Cells(1, 1), Cells(lastrow, 24)).PrintOut
Next a
Sheets(1).Select

Application.ScreenUpdating = True
End Sub

Regards

Jeff

Thank you, but what do I do with this? This is VB right? do I need to change any of the content within the code?

I recorded a macro, but for some reason my illustrations tab does not highlight to enable me to select objects to create a button for my macro. It's not password protected, so I don't know what's going on. If I open a new work book, I can select the illustrations box.

Thank you for everyone's help Problems solved.

I thought I solved it, but it was on a different workbook. I am not in pagebreak preview and it's not password protected. Why can't I insert an object to create to assign my macro?

that worked. Thank you Iwill close this post. Thank you for your time and effort in helping me.